tag:blogger.com,1999:blog-32575439958282624702024-03-06T04:07:38.770+01:00Olivier - VBA Excel - BureautiqueDéveloppement, Conseil, Formation...VBA, Excel, Bureautique...Olivier VBAhttp://www.blogger.com/profile/01518798078822033158noreply@blogger.comBlogger163125tag:blogger.com,1999:blog-3257543995828262470.post-27856906419305247342016-01-25T11:59:00.005+01:002016-01-25T12:01:40.145+01:00VBA : Les ActiveX de contrôle des dates<br />
<br />
<span style="font-family: "georgia" , "times new roman" , serif;">Dans cette article je souhaite expliquer comment utiliser les contrôles <a href="https://fr.wikipedia.org/wiki/ActiveX" target="_blank">ActiveX</a> "<b>Microsoft Monthview</b> "et "<b>Microsoft DTPicker</b>", puisqu'ils ne sont plus fournis en natif dans les versions <b>Excel 2013 et 2016</b>. Dans une première partie nous développerons la récupération et l'installation de ces contrôles, puis leurs utilisations pour contrôler efficacement une saisie de date dans une feuille de calcul ou dans un formulaire VBA.</span><br />
<br />
<h2>
<span style="font-family: "georgia" , "times new roman" , serif;"> Installation des contrôles</span></h2>
<h2>
<span style="font-family: "georgia" , "times new roman" , serif;"> </span></h2>
<div class="separator" style="clear: both; text-align: center;">
</div>
<span style="font-family: "georgia" , "times new roman" , serif;"> En premier lieu, mettons en place les contrôles "Microsoft Monthview" et "Microsoft DTPicker", le fichier <b>MSCOMCT2.OCX</b> contient les contrôles en question, ainsi que les contrôles UpDown, ScrollBar et Animation. Il faut commencer par télécharger <span style="font-family: "georgia" , "times new roman" , serif;">c</span>e fichier, car il n'existe probablement pas sur votre ordinateur (si vous utilisez Excel 2013 ou 2016) vous pouvez le télécharger à l'adresse suivante : <a href="http://www.ocxme.com/ocx/files/mscomct2_ocx.html" target="_blank">http://www.ocxme.com/ocx/files/mscomct2_ocx.html</a><br />
Vous devez ensuite copier le fichier dans le dossier c:\Windows\system32 si vous avez une version 32 bits de Windows, ou dans le dossier c:\windows\sysWOW64\ en cas de version 64 bits.<br />
<span id="goog_2574804"></span><span id="goog_2574805"></span>Il faut à présent Exécuter le fichier OCX, pour cela activer l'invite de commande en mode Administrateur<span style="font-family: "georgia" , "times new roman" , serif;"> : </span>Utiliser la commande <b>CMD </b>dans votre commande <i><b>Démarrer / Exécuter </b></i>ou dans <i><b>la zone de recherche</b></i> selon votre version de Windows. Attention de bien valider la saisie à l'aide des touches <span style="font-family: "georgia" , "times new roman" , serif;"><b>SHIFT</b></span><b>+ CTRL + Entrée </b>du clavier pour bien basculer l'invite de commande en mode Administrateur.</span><br />
<span style="font-family: "georgia" , "times new roman" , serif;"><br />
</span><br />
<div class="separator" style="clear: both; text-align: center;">
<span style="font-family: "georgia" , "times new roman" , serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjUb4KNiM2EU2GLZQS9jAj0_RM2WsGgZL048-VTLMpA08bBS8HAH2E6DH6HIx_NuQfzQ05x9-ouh_C9d0Eowvr511Ng8YPNZNgM-laK6AhwTYu3WNrxFyfRFtv4eQ5qo_dffRLayaGpm9k/s1600/cmd.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjUb4KNiM2EU2GLZQS9jAj0_RM2WsGgZL048-VTLMpA08bBS8HAH2E6DH6HIx_NuQfzQ05x9-ouh_C9d0Eowvr511Ng8YPNZNgM-laK6AhwTYu3WNrxFyfRFtv4eQ5qo_dffRLayaGpm9k/s1600/cmd.jpg" /></a></span></div>
<br />
<span style="font-family: "georgia" , "times new roman" , serif;">La ligne de commande à saisir, sera alors : <br />
<br />
<b>Pour windows 32 bits </b>: %systemroot%\System32\regsvr32 c:\windows\System32\MSCOMCT2.OCX<br />
<b>Pour windows 64 bits</b> : %systemroot%\SysWoW64\regsvr32 c:\windows\SysWOW64\MSCOMCT2.OCX</span><br />
<br />
<h2>
<span style="font-family: "georgia" , "times new roman" , serif;"> Utilisation des contrôles dans Excel : Saisir une date dans une cellule</span></h2>
<h2>
<span style="font-family: "georgia" , "times new roman" , serif;"> </span></h2>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh-rXxnyKRcHoAEWJT56vrMsdOmgwru3lsDM70F5od-zspcx15Fakh3wWbRlRA5ggbPKdDS2HcznkrDvSqnKPDdIX5rPJllDebbfl5cV18lx8t_LGMs5BykI09tFcRE51B9zbUhqjNChoo/s1600/activeX.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="228" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh-rXxnyKRcHoAEWJT56vrMsdOmgwru3lsDM70F5od-zspcx15Fakh3wWbRlRA5ggbPKdDS2HcznkrDvSqnKPDdIX5rPJllDebbfl5cV18lx8t_LGMs5BykI09tFcRE51B9zbUhqjNChoo/s320/activeX.jpg" width="320" /></a></div>
<h3>
</h3>
<ol></ol>
<ul>
<li><span style="font-family: "georgia" , "times new roman" , serif;"> Accéder à l'onglet <i><b>Développeur </b></i>du <i><b>Ruban</b></i></span></li>
<li><span style="font-family: "georgia" , "times new roman" , serif;"> Utilisez la commande <i><b>Insérer / contrôles ActiveX / Autres contrôles</b></i></span></li>
<li><span style="font-family: "georgia" , "times new roman" , serif;"> Sélectionnez le contrôle "<i><b>Microsoft Date and Time Picker control 6.0 (SP6)</b></i>"</span></li>
</ul>
<span style="font-family: "georgia" , "times new roman" , serif;"><br />
</span><br />
<div class="separator" style="clear: both; text-align: center;">
<span style="font-family: "georgia" , "times new roman" , serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg8xcSAPfjljUrPm_ug-Ypu37RjDoRDo3rVC-h6k_fUU15Pib1wdC2J7r919THQn_DsrfdnPR2ugJXIieWg4Ii1yXWl28maMHYpJ16KJAO9YYTRIUvbXQ4OsXXCJkZ3khiGjdKy88YWqfw/s1600/picker.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="252" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg8xcSAPfjljUrPm_ug-Ypu37RjDoRDo3rVC-h6k_fUU15Pib1wdC2J7r919THQn_DsrfdnPR2ugJXIieWg4Ii1yXWl28maMHYpJ16KJAO9YYTRIUvbXQ4OsXXCJkZ3khiGjdKy88YWqfw/s320/picker.jpg" width="320" /></a></span></div>
<br />
<ul>
<li><span style="font-family: "georgia" , "times new roman" , serif;"> Dessinez l'objet en glissant + Positionnement et redimensionnement</span></li>
</ul>
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhaYm3dhEg3rtbO9iIpr9-1ao5vLe0aRHgWpUifigQbyxSPLp718l7Vt_dC6Gwz_tUhvAS6NAuF-mF6hwdBJ-8nqIBgpv9NN7vg-HR7-Pnjsq9h7L80HopxXIN7uiMX6azAgzdkDPfDAXw/s1600/mc.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhaYm3dhEg3rtbO9iIpr9-1ao5vLe0aRHgWpUifigQbyxSPLp718l7Vt_dC6Gwz_tUhvAS6NAuF-mF6hwdBJ-8nqIBgpv9NN7vg-HR7-Pnjsq9h7L80HopxXIN7uiMX6azAgzdkDPfDAXw/s1600/mc.jpg" /></a><span style="font-family: "georgia" , "times new roman" , serif;"> <i>Attention la commande <b>Mode Création </b>du <b>ruban Développeur</b> est alors active, </i></span><span style="font-family: "georgia" , "times new roman" , serif;"><i>pour faire le test de fonctionnement, vous devrez d'abord la désactiver.</i></span><br />
<br />
<br />
<br />
<br />
<ul>
<li><span style="font-family: "georgia" , "times new roman" , serif;"> Quelques réglages de bases possibles grâce au <i><b>menu contextuel</b></i> de l'Objet</span></li>
</ul>
<span style="font-family: "georgia" , "times new roman" , serif;"></span><br />
<div class="separator" style="clear: both; text-align: center;">
<span style="font-family: "georgia" , "times new roman" , serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEheWNm-msQCwvn_MVoeZa09twZiNhKQYFgT05HuGfzEt24c6Npo0mvQ6QsKoOmiO0h9ZEwFIzKFdfiqPtHhrmW3eWnF5IjC7FUDq6Er3L0ddXWIuzNK1QxkpRM-Py03CiQYJqt6OsHSIEQ/s1600/objetDTPicker.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="197" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEheWNm-msQCwvn_MVoeZa09twZiNhKQYFgT05HuGfzEt24c6Npo0mvQ6QsKoOmiO0h9ZEwFIzKFdfiqPtHhrmW3eWnF5IjC7FUDq6Er3L0ddXWIuzNK1QxkpRM-Py03CiQYJqt6OsHSIEQ/s320/objetDTPicker.jpg" width="320" /></a></span></div>
<br />
<br />
<ul>
<li><span style="font-family: "georgia" , "times new roman" , serif;"> Pour affectez le choix utilisateur à une cellule, utilisez la commande <i><b>Propriétés </b></i>du <b><i>Menu contextuel</i></b>, </span></li>
</ul>
<br />
<span style="font-family: "georgia" , "times new roman" , serif;"></span><br />
<div class="separator" style="clear: both; text-align: center;">
<span style="font-family: "georgia" , "times new roman" , serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi5WDKZQR10f8L_ZBrYKArNnH_kxXo0nNTVV224XywdymJduzyerbadi-6PGMtHFiyynyX2xSB6lLkv1x-CfVLMhirqUXkTT2saIewTZTWXk0Q7m0U4aB7qR5MFir3JRZsnx7EMgGaFHaA/s1600/calProperty.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi5WDKZQR10f8L_ZBrYKArNnH_kxXo0nNTVV224XywdymJduzyerbadi-6PGMtHFiyynyX2xSB6lLkv1x-CfVLMhirqUXkTT2saIewTZTWXk0Q7m0U4aB7qR5MFir3JRZsnx7EMgGaFHaA/s320/calProperty.jpg" width="206" /></a></span></div>
<br />
<ul>
<li><span style="font-family: "georgia" , "times new roman" , serif;"> Renseignez la propriété <i><b>LinKedCell</b></i></span></li>
</ul>
<h2>
<span style="font-family: "georgia" , "times new roman" , serif;"> </span></h2>
<h2>
<span style="font-family: "georgia" , "times new roman" , serif;">Utilisation des contrôles en VBA : Saisir une date dans un <span style="font-family: "georgia" , "times new roman" , serif;">formulaire</span></span></h2>
<h2>
<span style="font-family: "georgia" , "times new roman" , serif;"><span style="font-family: "georgia" , "times new roman" , serif;"> </span></span></h2>
<span style="font-family: "georgia" , "times new roman" , serif;"> Nous allons en premier lieu ajouter les contrôles dans la boite à Outils<span style="font-family: "georgia" , "times new roman" , serif;"> : </span></span><br />
<span style="font-family: "georgia" , "times new roman" , serif;"><br />
</span><br />
<div class="separator" style="clear: both; text-align: center;">
<span style="font-family: "georgia" , "times new roman" , serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEguFGKHENq1M1fhMzbtVFTjUn5EAjMkzwzJR-Bm5NlUUsu3Z_H68lI-GMvSUOCo02CCLY0MD8wbdPQ6SOc7ts1IQVx6kxlZ-dQRw42rPB7sUmUv-FAnwtpdhy27hvD8z-r5Jjt0vnphAAM/s1600/formulaire.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="190" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEguFGKHENq1M1fhMzbtVFTjUn5EAjMkzwzJR-Bm5NlUUsu3Z_H68lI-GMvSUOCo02CCLY0MD8wbdPQ6SOc7ts1IQVx6kxlZ-dQRw42rPB7sUmUv-FAnwtpdhy27hvD8z-r5Jjt0vnphAAM/s320/formulaire.jpg" width="320" /></a></span></div>
<br />
<ul>
<li><a href="http://www.olivier-bureautique.blogspot.fr/2011/02/vba-creer-un-formulaire.html" target="_blank"><span style="font-family: "georgia" , "times new roman" , serif;">Cré<span style="font-family: "georgia" , "times new roman" , serif;">ez</span> un<b> </b>formulaire VBA</span></a></li>
</ul>
<ul>
<li><span style="font-family: "georgia" , "times new roman" , serif;"> Affich<span style="font-family: "georgia" , "times new roman" , serif;">ez</span> la <b>boîte à outils </b></span></li>
</ul>
<ul>
<li><span style="font-family: "georgia" , "times new roman" , serif;"> Fai<span style="font-family: "georgia" , "times new roman" , serif;">tes</span> clic droit pour obtenir le <i><b>menu contextuel</b></i> de la bo<span style="font-family: "georgia" , "times new roman" , serif;">î</span>te</span></li>
</ul>
<ul>
<li><span style="font-family: "georgia" , "times new roman" , serif;"> Sélectionner alors la commande <i><b>Contrôle Supplémentaires…</b></i></span></li>
</ul>
<br />
<br />
<ul>
<li><span style="font-family: "georgia" , "times new roman" , serif;"> Dans la liste des contrôles Choisissez "<i><b>Microsoft MonthView control 6.0 (SP6)</b></i>" et "<b><i>Microsoft Date and Time control 6.0 (SP6)</i></b>"</span></li>
</ul>
<span style="font-family: "georgia" , "times new roman" , serif;"></span><br />
<div class="separator" style="clear: both; text-align: center;">
<span style="font-family: "georgia" , "times new roman" , serif;"><i><b><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjJu6dK1mxSldFYynS5Lu-Nz8ReCxcAwFG-bxlFPW5VgTzeZcu6ytfN924Skn76mJWou3Na9Q3CUANZx6isdzTiW_wv1_apTOIDc8yCWs-JGgb_wh-fRh6CQd6roABe0p57LcFwey765OQ/s1600/csupp.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="222" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjJu6dK1mxSldFYynS5Lu-Nz8ReCxcAwFG-bxlFPW5VgTzeZcu6ytfN924Skn76mJWou3Na9Q3CUANZx6isdzTiW_wv1_apTOIDc8yCWs-JGgb_wh-fRh6CQd6roABe0p57LcFwey765OQ/s320/csupp.jpg" width="320" /></a></b></i></span></div>
<br />
<span style="font-family: "georgia" , "times new roman" , serif;"><i><b> </b> </i></span><br />
<ul>
<li><span style="font-family: "georgia" , "times new roman" , serif;"><span style="font-family: "georgia" , "times new roman" , serif;">Cliquez sur <i><b>OK</b></i></span></span></li>
<li><span style="font-family: "georgia" , "times new roman" , serif;"><span style="font-family: "georgia" , "times new roman" , serif;">Dessiner les 2 objets <b>MonthView1</b> et <b>DTPicker1</b> sur votre formulaire grâce aux n<span style="font-family: "georgia" , "times new roman" , serif;"><span style="font-family: "georgia" , "times new roman" , serif;">ouveaux</span> contr<span style="font-family: "georgia" , "times new roman" , serif;"><span style="font-family: "georgia" , "times new roman" , serif;">ô</span>les apparaissant dans la boîte à outils.</span></span><i><b> </b></i></span></span></li>
</ul>
<br />
<div class="separator" style="clear: both; text-align: center;">
<span style="font-family: "georgia" , "times new roman" , serif;"><span style="font-family: "georgia" , "times new roman" , serif;"><i><b><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhzcv3Ud1OZmYX7p9wrJPip6Dzjs_4rJ6uki863zYASpyukwB_slEE07KBFaaRNgh_TBx8yJxwr6BBA4S_hjNcwOxOAwskYKrYzB5qrdKT_qq5AQ5Q_9DWJQx7jAurpR8QI8SZe__A2wjg/s1600/formulaire-date.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="218" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhzcv3Ud1OZmYX7p9wrJPip6Dzjs_4rJ6uki863zYASpyukwB_slEE07KBFaaRNgh_TBx8yJxwr6BBA4S_hjNcwOxOAwskYKrYzB5qrdKT_qq5AQ5Q_9DWJQx7jAurpR8QI8SZe__A2wjg/s320/formulaire-date.jpg" width="320" /></a></b></i></span></span></div>
<br />
<br />
<span style="font-family: "georgia" , "times new roman" , serif;">Ici le code VBA nous montre comment affecter le choix de l'utilisateur dans un contrôle ou l'autre, à une cellule de la feuille de calcul.<br />
<br />
<span style="font-size: large;">Private Sub CommandButton1_Click()<br />
<span style="color: red;"><i> Range("a10").Value = DTPicker1.Value<br />
Range("a11").Value = MonthView1.Value</i></span><br />
UserForm1.Hide<br />
End Sub</span><br />
<br />
<br />
Merci de votre attention…</span><br />
<br />
<br />Olivier VBAhttp://www.blogger.com/profile/01518798078822033158noreply@blogger.com11Bordeaux, France44.837789 -0.5791799999999511844.6577155 -0.90190349999995112 45.0178625 -0.25645649999995118tag:blogger.com,1999:blog-3257543995828262470.post-30687300945150758532016-01-14T10:57:00.000+01:002016-01-14T10:57:03.670+01:00VBA : Modifier la casse à l'aide du clic droit<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></span> <span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></span> <span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">La <a href="https://fr.wikipedia.org/wiki/Casse" target="_blank">casse </a>est un terme utilisé dans les domaines de la <a href="https://fr.wikipedia.org/wiki/Casse_%28typographie%29" target="_blank">typographie </a>et de l'<a href="https://fr.wikipedia.org/wiki/Sensibilit%C3%A9_%C3%A0_la_casse" target="_blank">informatique </a>pour distinguer une alternative entre les lettres écrites en capitales (MAJUSCULE) et les lettres écrites en minuscule. En l’absence d'utilisation des fonctions de traitement de <a href="https://fr.wikipedia.org/wiki/Cha%C3%AEne_de_caract%C3%A8res" target="_blank">chaînes de caractères</a> :</span></span><br />
<ol>
<li><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">=MAJUSCULE( chaîne de caractères )</span></span></li>
<li><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">=MINUSCULE( </span></span><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">chaîne de caractères </span></span>)</span></span></li>
<li><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">=NOMPROPRE( </span></span><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">chaîne de caractères</span></span>) - 1<sup>er</sup> lettre de chaque mot de la </span></span><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">chaîne de caractères </span></span>en majuscule</span></span></li>
</ol>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhltPNwAnc0wfZeQ3eOuFbeeIdOoonDuRfL8pkn_BYSzwXDO-pnsEcFagJS7eNRGY4T7m_gaAkOxNfBjQldgxXpbzT-WtQQjjFKURlOq24h-eatb7XRZuiwOKtssjZiSP8I59K_YjG0-KY/s1600/menu1.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhltPNwAnc0wfZeQ3eOuFbeeIdOoonDuRfL8pkn_BYSzwXDO-pnsEcFagJS7eNRGY4T7m_gaAkOxNfBjQldgxXpbzT-WtQQjjFKURlOq24h-eatb7XRZuiwOKtssjZiSP8I59K_YjG0-KY/s1600/menu1.jpg" /></a></div>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Actuellement, votre logiciel <b>Excel </b>ne permet pas de <b>modifier </b>la <b>casse </b>des mots contenus dans les <b>cellules </b>d'une<b> feuille de calcul</b> (ni commande, ni <a href="http://www.olivier-bureautique.blogspot.fr/2009/03/excel-2007-les-raccourcis-clavier.html" target="_blank">touche de raccourci clavier</a>). Aussi je vous propose ce <b>code VBA</b> permettant la bascule entre les trois positions. La difficulté ici ne réside pas dans la modification de la casse d'un contenu sélectionné mais plutôt dans le choix de l'affectation de ce code en vue de son exécution. Afin de rendre son utilisation la plus aisée possible, j'ai choisi ici d'utiliser le menu contextuel, c'est à dire de reprogrammer le menu surgissant du bouton droit de la souris. Pour que cette application puisse être utilisable quelque soit le classeur que vous manipulez, vous avez le choix d'incorporer votre code soit dans un classeur de <a href="http://www.olivier-bureautique.blogspot.fr/2009/06/excel-2007-vba-creer-une-macro-multi.html" target="_blank">macros personnelles</a>, soit dans un classeur de <a href="http://www.olivier-bureautique.blogspot.fr/2012/10/vba-les-fichiers-xlam.html" target="_blank">macros complémentaires</a>.</span></span><br />
<h3>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"> </span></span></h3>
<h3>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"> </span></span></h3>
<h3>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"> </span></span></h3>
<h3>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"> </span></span></h3>
<h3>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"> </span></span></h3>
<h3>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"> </span></span></h3>
<h3>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"> </span></span></h3>
<h3>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Première étape : </span></span><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Modifier le menu contextuel des cellules.</span></span></h3>
<h3>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"> </span></span></h3>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgJ4rjIL59NrxjyKTfDv3zvwF2ubJpjtO7fitCsNh1PisKn1GnP73H3TEYPRqx27ZDJ-7uoKDh-yO7-B4MwUr_TKV3lW194zk25goPAnp2V4DJOSajOi0X2ijuT1ghMstAiLqdKYl9qa9Y/s1600/menu2.jpg" imageanchor="1" style="clear: right; float: right; margin-bottom: 1em; margin-left: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgJ4rjIL59NrxjyKTfDv3zvwF2ubJpjtO7fitCsNh1PisKn1GnP73H3TEYPRqx27ZDJ-7uoKDh-yO7-B4MwUr_TKV3lW194zk25goPAnp2V4DJOSajOi0X2ijuT1ghMstAiLqdKYl9qa9Y/s1600/menu2.jpg" /></a></div>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Les <b>procédures </b>sont évidement stockées dans le <b>module ThisWorkbook </b>du <b>projet VBA</b>, j'ai ici choisi d'utiliser mon <b>classeur </b>(.<b>xlsb</b>) de <b>macros personnelles</b>. </span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br /></span></span>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Sub resetmenu()<br /> Application.CommandBars("cell").Reset</span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"> End Sub</span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><span style="color: red;">'**********************************************************</span></span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Private Sub Workbook_Open()<br />resetmenu<br /><span style="color: red;">'appel la macro qui effacera la commande du menu contextuel<br />'crée lors de la session précédente</span><br /><br /> Dim Cpop1 As CommandBarPopup<br /> Dim Cbut As CommandBarButton<br /> Dim MaBarre As CommandBar<br /> Set MaBarre = Application.CommandBars("cell")<br /> Set Cpop1 = MaBarre.Controls.Add(msoControlPopup)<br /><span style="color: red;"> 'on ajoute le popup qui va comporté tout les boutons</span><br /> With Cpop1<br /> .Caption = "Modifier la casse" <span style="color: red;"> 'label du sous-menu</span><br /> End With<br /><span style="color: red;"> 'on ajoute un bouton au sous-menu contextuel</span><br /> Set Cbut = Cpop1.Controls.Add(Type:=msoControlButton)<br /> With Cbut<br /> .FaceId = 403 <span style="color: red;"> ' bouton avec icône (référence à une table)</span><br /> .Caption = "MAJUSCLE" <span style="color: red;"> ' label du bouton</span><br /> .OnAction = "majuscule" <span style="color: red;"> 'appel de la macro associée</span><br /> End With<br /> <span style="color: red;"> 'on répéte l'opération pour les deux autres boutons</span><br /> Set Cbut = Cpop1.Controls.Add(Type:=msoControlButton)<br /> With Cbut<br /> .FaceId = 404<br /> .Caption = "minuscule"<br /> .OnAction = "minuscule"<br /> End With<br /> Set Cbut = Cpop1.Controls.Add(Type:=msoControlButton)<br /> With Cbut<br /> .FaceId = 306<br /> .Caption = "Nom Propre"<br /> .OnAction = "nompropre"<br /> End With<br />End Sub</span></span><br />
<br />
<h3>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Etape 2 : Écrire les trois macros pour la gestion de la casse</span></span></h3>
<br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Les
procédures sont stockées dans une feuille de <b>module de code du
projet VBA</b>, du même classeur (.<b>xlsb</b>) de macros
personnelles. </span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br /></span></span>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Dim Ch As Range<br />Sub majuscule()<br /> For Each Ch In Selection<br /> <span style="color: red;"> 'Pour chaque cellule Ch de ma sélection Selection<br /> 'Selection permet de renvoyer l'objet sélectionné dans la fenêtre active</span><br /> If Not Ch.HasFormula Then<br /><span style="color: red;"> 'la propriété HasFormula de l'objet range permet de tester qu'aucune<br /> ' cellules de la plage ne contiennent de formule, dans ce cas la conversion est ignorée</span><br /> Ch.Value = UCase(Ch.Value)<span style="color: red;"> 'Upper Case = MAJUSCULE</span><br /> End If<br /> Next Ch<br />End Sub</span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><span style="color: red;">'*************************************************************</span><br />Sub minuscule()<br /> For Each Ch In Selection<br /> If Not Ch.HasFormula Then<br /> Ch.Value = LCase(Ch.Value)<span style="color: red;"> 'Lower Case = minuscule</span><br /> End If<br /> Next Ch<br />End Sub</span></span><br />
<br /><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><span style="color: red;">'*************************************************************</span></span></span></span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><span style="color: red;"> </span></span></span>Sub nompropre()<br /> For Each Ch In Selection<br /> If Not Ch.HasFormula Then<br /> Ch.Value = Application.Proper(Ch.Value)<br /> <span style="color: red;"> 'si une fonction Excel n'a pas d'équivalent en VBA<br /> 'utiliser le la fonction Excel (anglais) comme une méthode de l'objet application</span><br /> End If<br /> Next Ch<br />End Sub</span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br /></span></span>
<b><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Merci de votre attention...</span></span></b><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br /></span></span>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br /></span></span>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br /></span></span>Olivier VBAhttp://www.blogger.com/profile/01518798078822033158noreply@blogger.com0Bordeaux, France44.837789 -0.5791799999999511844.6577155 -0.90190349999995112 45.0178625 -0.25645649999995118tag:blogger.com,1999:blog-3257543995828262470.post-68848357717095739442016-01-08T12:36:00.003+01:002016-01-08T12:49:42.670+01:00VBA : En 2016, Quelles nouveautés ?<br />
<div>
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgmvc5qi7PBesfIfZ6L9ISqWMdY73Bq74k_ndq_MnZbFoDCuUFG6hPKX1frw-Fv3u8Wh4xSOC318RJu2V0_G_eSOu1GE-szITf4Rz-4TWwWDPlX9zg_ve2PWQi_xZR5fb1D_TC42dZk_q4/s1600/voeux-2016.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="120" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgmvc5qi7PBesfIfZ6L9ISqWMdY73Bq74k_ndq_MnZbFoDCuUFG6hPKX1frw-Fv3u8Wh4xSOC318RJu2V0_G_eSOu1GE-szITf4Rz-4TWwWDPlX9zg_ve2PWQi_xZR5fb1D_TC42dZk_q4/s200/voeux-2016.jpg" width="200" /></a><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">De retour après quelques mois d'absences, permettez-moi d'abord chères lecteurs et chères lectrices de vous présenter mes meilleurs vœux pour l'année 2016. Pour ma part je ferais simplement le vœu que ce blog puisse continuer à vous être utile tout au cours de cette nouvelle année.</span></span></div>
<br />
<div>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Je commencerai donc dans ce premier article par une webographie succincte, me permettant ainsi de vous présenter quelques nouveautés qui pourraient s'avérer utiles pour vos développements et autres codages…. </span></span></div>
<br />
<h3>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"> </span></span></h3>
<h3>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"> </span></span></h3>
<h3>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"> </span></span></h3>
<h3>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Nouvelle version d'Office : </span></span></h3>
<h3>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"> </span></span></h3>
<div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjU0G3ze8iGu7H5rMHXKpqV4gGuXVX-58257PSnprCQb0VYo9KLkCpsjLjvJR2hTnmoKPdy6dboHfI2h6H5d1-CEj1kVAdlj_BSQwmEAG2AqJxc2TUCdPVIW2kAJvcTMIjxDfpvLPYyvDg/s1600/office-2016-logo-2.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><br /></a></div>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"> <b>Office 2016</b> est disponible depuis la fin du mois de septembre, et se décline actuellement en <a href="https://products.office.com/fr-fr/whats-new-office" target="_blank">deux gammes de produits</a> : </span></span></div>
<ul>
<li><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Sur <b>Office 365</b> (Famille 5 postes 99 € par an, Personnel 1 poste 69 € par an), </span></span></li>
<li><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">En <b>version 2016</b> (Famille et étudiant 1 poste 149 € par an, Professionnel 539 €)</span></span></li>
</ul>
<div class="MsoNormal">
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgdwX1_pnQu8hYESVczX-GCc4bk_Vd7fL2NNYdvha6PY8OeVA3YESe0SD8KVvVSJDLs-9rjZ-kMeipaASDuqrxgwiClIyLcbdCWwR6sCRUugVRpdgOlaLu1LNVAXnYIi1cI320d9J-bn8Y/s1600/office-2016-logo-3.jpg" imageanchor="1" style="clear: right; float: right; margin-bottom: 1em; margin-left: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgdwX1_pnQu8hYESVczX-GCc4bk_Vd7fL2NNYdvha6PY8OeVA3YESe0SD8KVvVSJDLs-9rjZ-kMeipaASDuqrxgwiClIyLcbdCWwR6sCRUugVRpdgOlaLu1LNVAXnYIi1cI320d9J-bn8Y/s1600/office-2016-logo-3.jpg" /></a></div>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Mon propos n'est pas ici de vous présenter l'ensemble des nouveautés de cette <b>version 2016</b>, <a href="http://www.journaldunet.com/solutions/saas-logiciel/office-2015-les-nouveautes.shtml" target="_blank">le journal du net</a> à réaliser un excellent <a href="http://www.journaldunet.com/solutions/saas-logiciel/office-2016-en-images/" target="_blank">diaporama</a> à ce sujet. Il est clair dans les deux cas que les prix ont très sensiblement augmentés. Par contre <a href="https://dev.office.com/blogs/VBA-improvements-in-Office-2016" target="_blank">pour les développeurs </a><b><a href="https://dev.office.com/blogs/VBA-improvements-in-Office-2016" target="_blank">VBA</a> </b>vous pouvez noter les points suivants :</span></span></div>
<br />
<ul>
<li><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Accès à une <b>API Javascript</b> complète sous <b>Windows </b>et <b>Mac</b></span></span></li>
<li><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">De nouveaux objets <b>requêtes </b>et <b>WorkbookQuery </b>pour accélérer et faciliter l'interrogation des bases de données.</span></span></li>
<li><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Des objets comme <b>ModelFormatboolean </b>ou <b>ModelFormatCurrency </b>permettront de fixer un format déclaratif pour des booléens ou des nombres</span></span></li>
<li><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Enfin sachez que de nombreuses nouveautés concernent en fait les versions <b>Mac</b>, notamment la personnalisation du <b>ruban </b>via <b>XML</b></span></span></li>
</ul>
<br />
<h3>
<span style="font-family: Georgia,"Times New Roman",serif;">Nouvelle version de MZ-Tools :</span></h3>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgg7pdMSERsc3gwd_Pq0oaRpiOgQ8BRyuXjHX3RNl29szc78gcRDGJZHK_aTlBDaxtVB519rAUbrLLy7Ak1hqxRb9Ype6opqxymz8-IE4JVoDmAwXP1X5WYS7OeRV03vDG8f3oQ3lSxEq4/s1600/mz-tools-8.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgg7pdMSERsc3gwd_Pq0oaRpiOgQ8BRyuXjHX3RNl29szc78gcRDGJZHK_aTlBDaxtVB519rAUbrLLy7Ak1hqxRb9Ype6opqxymz8-IE4JVoDmAwXP1X5WYS7OeRV03vDG8f3oQ3lSxEq4/s1600/mz-tools-8.png" /></a></div>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Au mois de Mai, j'avais rédigé <a href="http://olivier-bureautique.blogspot.fr/2015/05/vba-connaissez-vous-mz-tools.html" target="_blank">un article détaillé</a> pour vous présenter l'intérêt à utiliser ce logiciel. Une nouvelle version (8.0) est disponible pour les développeurs Visual Basic, VBA, Visual C# et VB.NET. <b>MZ-Tools 8.0 for VBA</b>, est compatible avec la nouvelle mouture d'Office (2016) et avec les versions 64bits d'office ce qui n'était pas le cas jusqu'à présent, de plus il est possible de l'installer en l'absence de droit d'administration. Télécharger cette nouvelle version sur le <a href="http://www.mztools.com/v8/download_trial.aspx" target="_blank">site de MZ-Tools</a>.</span></span><br />
<br />
<br />
<br />
<br />
<br />
<b>Merci de votre attention</b><br />
<br />
<br />Olivier VBAhttp://www.blogger.com/profile/01518798078822033158noreply@blogger.com0Bordeaux, France44.837789 -0.5791799999999511844.6577155 -0.90190349999995112 45.0178625 -0.25645649999995118tag:blogger.com,1999:blog-3257543995828262470.post-65432315632926168212015-05-06T17:37:00.001+02:002015-05-06T17:38:48.712+02:00VBA : L’objet Fichier système<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br /></span></span>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"></span></span>
<!--[if gte mso 9]><xml>
<o:OfficeDocumentSettings>
<o:AllowPNG/>
</o:OfficeDocumentSettings>
</xml><![endif]--><br />
<!--[if gte mso 9]><xml>
<w:WordDocument>
<w:View>Normal</w:View>
<w:Zoom>0</w:Zoom>
<w:TrackMoves/>
<w:TrackFormatting/>
<w:HyphenationZone>21</w:HyphenationZone>
<w:PunctuationKerning/>
<w:ValidateAgainstSchemas/>
<w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid>
<w:IgnoreMixedContent>false</w:IgnoreMixedContent>
<w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText>
<w:DoNotPromoteQF/>
<w:LidThemeOther>FR</w:LidThemeOther>
<w:LidThemeAsian>X-NONE</w:LidThemeAsian>
<w:LidThemeComplexScript>X-NONE</w:LidThemeComplexScript>
<w:Compatibility>
<w:BreakWrappedTables/>
<w:SnapToGridInCell/>
<w:WrapTextWithPunct/>
<w:UseAsianBreakRules/>
<w:DontGrowAutofit/>
<w:SplitPgBreakAndParaMark/>
<w:EnableOpenTypeKerning/>
<w:DontFlipMirrorIndents/>
<w:OverrideTableStyleHps/>
</w:Compatibility>
<m:mathPr>
<m:mathFont m:val="Cambria Math"/>
<m:brkBin m:val="before"/>
<m:brkBinSub m:val="--"/>
<m:smallFrac m:val="off"/>
<m:dispDef/>
<m:lMargin m:val="0"/>
<m:rMargin m:val="0"/>
<m:defJc m:val="centerGroup"/>
<m:wrapIndent m:val="1440"/>
<m:intLim m:val="subSup"/>
<m:naryLim m:val="undOvr"/>
</m:mathPr></w:WordDocument>
</xml><![endif]--><!--[if gte mso 9]><xml>
<w:LatentStyles DefLockedState="false" DefUnhideWhenUsed="false"
DefSemiHidden="false" DefQFormat="false" DefPriority="99"
LatentStyleCount="371">
<w:LsdException Locked="false" Priority="0" QFormat="true" Name="Normal"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 1"/>
<w:LsdException Locked="false" Priority="9" SemiHidden="true"
UnhideWhenUsed="true" QFormat="true" Name="heading 2"/>
<w:LsdException Locked="false" Priority="9" SemiHidden="true"
UnhideWhenUsed="true" QFormat="true" Name="heading 3"/>
<w:LsdException Locked="false" Priority="9" SemiHidden="true"
UnhideWhenUsed="true" QFormat="true" Name="heading 4"/>
<w:LsdException Locked="false" Priority="9" SemiHidden="true"
UnhideWhenUsed="true" QFormat="true" Name="heading 5"/>
<w:LsdException Locked="false" Priority="9" SemiHidden="true"
UnhideWhenUsed="true" QFormat="true" Name="heading 6"/>
<w:LsdException Locked="false" Priority="9" SemiHidden="true"
UnhideWhenUsed="true" QFormat="true" Name="heading 7"/>
<w:LsdException Locked="false" Priority="9" SemiHidden="true"
UnhideWhenUsed="true" QFormat="true" Name="heading 8"/>
<w:LsdException Locked="false" Priority="9" SemiHidden="true"
UnhideWhenUsed="true" QFormat="true" Name="heading 9"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="index 1"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="index 2"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="index 3"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="index 4"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="index 5"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="index 6"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="index 7"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="index 8"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="index 9"/>
<w:LsdException Locked="false" Priority="39" SemiHidden="true"
UnhideWhenUsed="true" Name="toc 1"/>
<w:LsdException Locked="false" Priority="39" SemiHidden="true"
UnhideWhenUsed="true" Name="toc 2"/>
<w:LsdException Locked="false" Priority="39" SemiHidden="true"
UnhideWhenUsed="true" Name="toc 3"/>
<w:LsdException Locked="false" Priority="39" SemiHidden="true"
UnhideWhenUsed="true" Name="toc 4"/>
<w:LsdException Locked="false" Priority="39" SemiHidden="true"
UnhideWhenUsed="true" Name="toc 5"/>
<w:LsdException Locked="false" Priority="39" SemiHidden="true"
UnhideWhenUsed="true" Name="toc 6"/>
<w:LsdException Locked="false" Priority="39" SemiHidden="true"
UnhideWhenUsed="true" Name="toc 7"/>
<w:LsdException Locked="false" Priority="39" SemiHidden="true"
UnhideWhenUsed="true" Name="toc 8"/>
<w:LsdException Locked="false" Priority="39" SemiHidden="true"
UnhideWhenUsed="true" Name="toc 9"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Normal Indent"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="footnote text"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="annotation text"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="header"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="footer"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="index heading"/>
<w:LsdException Locked="false" Priority="35" SemiHidden="true"
UnhideWhenUsed="true" QFormat="true" Name="caption"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="table of figures"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="envelope address"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="envelope return"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="footnote reference"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="annotation reference"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="line number"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="page number"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="endnote reference"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="endnote text"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="table of authorities"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="macro"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="toa heading"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="List"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="List Bullet"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="List Number"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="List 2"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="List 3"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="List 4"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="List 5"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="List Bullet 2"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="List Bullet 3"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="List Bullet 4"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="List Bullet 5"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="List Number 2"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="List Number 3"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="List Number 4"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="List Number 5"/>
<w:LsdException Locked="false" Priority="10" QFormat="true" Name="Title"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Closing"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Signature"/>
<w:LsdException Locked="false" Priority="1" SemiHidden="true"
UnhideWhenUsed="true" Name="Default Paragraph Font"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Body Text"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Body Text Indent"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="List Continue"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="List Continue 2"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="List Continue 3"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="List Continue 4"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="List Continue 5"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Message Header"/>
<w:LsdException Locked="false" Priority="11" QFormat="true" Name="Subtitle"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Salutation"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Date"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Body Text First Indent"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Body Text First Indent 2"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Note Heading"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Body Text 2"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Body Text 3"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Body Text Indent 2"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Body Text Indent 3"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Block Text"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Hyperlink"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="FollowedHyperlink"/>
<w:LsdException Locked="false" Priority="22" QFormat="true" Name="Strong"/>
<w:LsdException Locked="false" Priority="20" QFormat="true" Name="Emphasis"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Document Map"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Plain Text"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="E-mail Signature"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="HTML Top of Form"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="HTML Bottom of Form"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Normal (Web)"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="HTML Acronym"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="HTML Address"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="HTML Cite"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="HTML Code"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="HTML Definition"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="HTML Keyboard"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="HTML Preformatted"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="HTML Sample"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="HTML Typewriter"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="HTML Variable"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Normal Table"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="annotation subject"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="No List"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Outline List 1"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Outline List 2"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Outline List 3"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Table Simple 1"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Table Simple 2"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Table Simple 3"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Table Classic 1"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Table Classic 2"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Table Classic 3"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Table Classic 4"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Table Colorful 1"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Table Colorful 2"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Table Colorful 3"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Table Columns 1"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Table Columns 2"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Table Columns 3"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Table Columns 4"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Table Columns 5"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Table Grid 1"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Table Grid 2"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Table Grid 3"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Table Grid 4"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Table Grid 5"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Table Grid 6"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Table Grid 7"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Table Grid 8"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Table List 1"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Table List 2"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Table List 3"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Table List 4"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Table List 5"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Table List 6"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Table List 7"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Table List 8"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Table 3D effects 1"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Table 3D effects 2"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Table 3D effects 3"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Table Contemporary"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Table Elegant"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Table Professional"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Table Subtle 1"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Table Subtle 2"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Table Web 1"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Table Web 2"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Table Web 3"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Balloon Text"/>
<w:LsdException Locked="false" Priority="39" Name="Table Grid"/>
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
Name="Table Theme"/>
<w:LsdException Locked="false" SemiHidden="true" Name="Placeholder Text"/>
<w:LsdException Locked="false" Priority="1" QFormat="true" Name="No Spacing"/>
<w:LsdException Locked="false" Priority="60" Name="Light Shading"/>
<w:LsdException Locked="false" Priority="61" Name="Light List"/>
<w:LsdException Locked="false" Priority="62" Name="Light Grid"/>
<w:LsdException Locked="false" Priority="63" Name="Medium Shading 1"/>
<w:LsdException Locked="false" Priority="64" Name="Medium Shading 2"/>
<w:LsdException Locked="false" Priority="65" Name="Medium List 1"/>
<w:LsdException Locked="false" Priority="66" Name="Medium List 2"/>
<w:LsdException Locked="false" Priority="67" Name="Medium Grid 1"/>
<w:LsdException Locked="false" Priority="68" Name="Medium Grid 2"/>
<w:LsdException Locked="false" Priority="69" Name="Medium Grid 3"/>
<w:LsdException Locked="false" Priority="70" Name="Dark List"/>
<w:LsdException Locked="false" Priority="71" Name="Colorful Shading"/>
<w:LsdException Locked="false" Priority="72" Name="Colorful List"/>
<w:LsdException Locked="false" Priority="73" Name="Colorful Grid"/>
<w:LsdException Locked="false" Priority="60" Name="Light Shading Accent 1"/>
<w:LsdException Locked="false" Priority="61" Name="Light List Accent 1"/>
<w:LsdException Locked="false" Priority="62" Name="Light Grid Accent 1"/>
<w:LsdException Locked="false" Priority="63" Name="Medium Shading 1 Accent 1"/>
<w:LsdException Locked="false" Priority="64" Name="Medium Shading 2 Accent 1"/>
<w:LsdException Locked="false" Priority="65" Name="Medium List 1 Accent 1"/>
<w:LsdException Locked="false" SemiHidden="true" Name="Revision"/>
<w:LsdException Locked="false" Priority="34" QFormat="true"
Name="List Paragraph"/>
<w:LsdException Locked="false" Priority="29" QFormat="true" Name="Quote"/>
<w:LsdException Locked="false" Priority="30" QFormat="true"
Name="Intense Quote"/>
<w:LsdException Locked="false" Priority="66" Name="Medium List 2 Accent 1"/>
<w:LsdException Locked="false" Priority="67" Name="Medium Grid 1 Accent 1"/>
<w:LsdException Locked="false" Priority="68" Name="Medium Grid 2 Accent 1"/>
<w:LsdException Locked="false" Priority="69" Name="Medium Grid 3 Accent 1"/>
<w:LsdException Locked="false" Priority="70" Name="Dark List Accent 1"/>
<w:LsdException Locked="false" Priority="71" Name="Colorful Shading Accent 1"/>
<w:LsdException Locked="false" Priority="72" Name="Colorful List Accent 1"/>
<w:LsdException Locked="false" Priority="73" Name="Colorful Grid Accent 1"/>
<w:LsdException Locked="false" Priority="60" Name="Light Shading Accent 2"/>
<w:LsdException Locked="false" Priority="61" Name="Light List Accent 2"/>
<w:LsdException Locked="false" Priority="62" Name="Light Grid Accent 2"/>
<w:LsdException Locked="false" Priority="63" Name="Medium Shading 1 Accent 2"/>
<w:LsdException Locked="false" Priority="64" Name="Medium Shading 2 Accent 2"/>
<w:LsdException Locked="false" Priority="65" Name="Medium List 1 Accent 2"/>
<w:LsdException Locked="false" Priority="66" Name="Medium List 2 Accent 2"/>
<w:LsdException Locked="false" Priority="67" Name="Medium Grid 1 Accent 2"/>
<w:LsdException Locked="false" Priority="68" Name="Medium Grid 2 Accent 2"/>
<w:LsdException Locked="false" Priority="69" Name="Medium Grid 3 Accent 2"/>
<w:LsdException Locked="false" Priority="70" Name="Dark List Accent 2"/>
<w:LsdException Locked="false" Priority="71" Name="Colorful Shading Accent 2"/>
<w:LsdException Locked="false" Priority="72" Name="Colorful List Accent 2"/>
<w:LsdException Locked="false" Priority="73" Name="Colorful Grid Accent 2"/>
<w:LsdException Locked="false" Priority="60" Name="Light Shading Accent 3"/>
<w:LsdException Locked="false" Priority="61" Name="Light List Accent 3"/>
<w:LsdException Locked="false" Priority="62" Name="Light Grid Accent 3"/>
<w:LsdException Locked="false" Priority="63" Name="Medium Shading 1 Accent 3"/>
<w:LsdException Locked="false" Priority="64" Name="Medium Shading 2 Accent 3"/>
<w:LsdException Locked="false" Priority="65" Name="Medium List 1 Accent 3"/>
<w:LsdException Locked="false" Priority="66" Name="Medium List 2 Accent 3"/>
<w:LsdException Locked="false" Priority="67" Name="Medium Grid 1 Accent 3"/>
<w:LsdException Locked="false" Priority="68" Name="Medium Grid 2 Accent 3"/>
<w:LsdException Locked="false" Priority="69" Name="Medium Grid 3 Accent 3"/>
<w:LsdException Locked="false" Priority="70" Name="Dark List Accent 3"/>
<w:LsdException Locked="false" Priority="71" Name="Colorful Shading Accent 3"/>
<w:LsdException Locked="false" Priority="72" Name="Colorful List Accent 3"/>
<w:LsdException Locked="false" Priority="73" Name="Colorful Grid Accent 3"/>
<w:LsdException Locked="false" Priority="60" Name="Light Shading Accent 4"/>
<w:LsdException Locked="false" Priority="61" Name="Light List Accent 4"/>
<w:LsdException Locked="false" Priority="62" Name="Light Grid Accent 4"/>
<w:LsdException Locked="false" Priority="63" Name="Medium Shading 1 Accent 4"/>
<w:LsdException Locked="false" Priority="64" Name="Medium Shading 2 Accent 4"/>
<w:LsdException Locked="false" Priority="65" Name="Medium List 1 Accent 4"/>
<w:LsdException Locked="false" Priority="66" Name="Medium List 2 Accent 4"/>
<w:LsdException Locked="false" Priority="67" Name="Medium Grid 1 Accent 4"/>
<w:LsdException Locked="false" Priority="68" Name="Medium Grid 2 Accent 4"/>
<w:LsdException Locked="false" Priority="69" Name="Medium Grid 3 Accent 4"/>
<w:LsdException Locked="false" Priority="70" Name="Dark List Accent 4"/>
<w:LsdException Locked="false" Priority="71" Name="Colorful Shading Accent 4"/>
<w:LsdException Locked="false" Priority="72" Name="Colorful List Accent 4"/>
<w:LsdException Locked="false" Priority="73" Name="Colorful Grid Accent 4"/>
<w:LsdException Locked="false" Priority="60" Name="Light Shading Accent 5"/>
<w:LsdException Locked="false" Priority="61" Name="Light List Accent 5"/>
<w:LsdException Locked="false" Priority="62" Name="Light Grid Accent 5"/>
<w:LsdException Locked="false" Priority="63" Name="Medium Shading 1 Accent 5"/>
<w:LsdException Locked="false" Priority="64" Name="Medium Shading 2 Accent 5"/>
<w:LsdException Locked="false" Priority="65" Name="Medium List 1 Accent 5"/>
<w:LsdException Locked="false" Priority="66" Name="Medium List 2 Accent 5"/>
<w:LsdException Locked="false" Priority="67" Name="Medium Grid 1 Accent 5"/>
<w:LsdException Locked="false" Priority="68" Name="Medium Grid 2 Accent 5"/>
<w:LsdException Locked="false" Priority="69" Name="Medium Grid 3 Accent 5"/>
<w:LsdException Locked="false" Priority="70" Name="Dark List Accent 5"/>
<w:LsdException Locked="false" Priority="71" Name="Colorful Shading Accent 5"/>
<w:LsdException Locked="false" Priority="72" Name="Colorful List Accent 5"/>
<w:LsdException Locked="false" Priority="73" Name="Colorful Grid Accent 5"/>
<w:LsdException Locked="false" Priority="60" Name="Light Shading Accent 6"/>
<w:LsdException Locked="false" Priority="61" Name="Light List Accent 6"/>
<w:LsdException Locked="false" Priority="62" Name="Light Grid Accent 6"/>
<w:LsdException Locked="false" Priority="63" Name="Medium Shading 1 Accent 6"/>
<w:LsdException Locked="false" Priority="64" Name="Medium Shading 2 Accent 6"/>
<w:LsdException Locked="false" Priority="65" Name="Medium List 1 Accent 6"/>
<w:LsdException Locked="false" Priority="66" Name="Medium List 2 Accent 6"/>
<w:LsdException Locked="false" Priority="67" Name="Medium Grid 1 Accent 6"/>
<w:LsdException Locked="false" Priority="68" Name="Medium Grid 2 Accent 6"/>
<w:LsdException Locked="false" Priority="69" Name="Medium Grid 3 Accent 6"/>
<w:LsdException Locked="false" Priority="70" Name="Dark List Accent 6"/>
<w:LsdException Locked="false" Priority="71" Name="Colorful Shading Accent 6"/>
<w:LsdException Locked="false" Priority="72" Name="Colorful List Accent 6"/>
<w:LsdException Locked="false" Priority="73" Name="Colorful Grid Accent 6"/>
<w:LsdException Locked="false" Priority="19" QFormat="true"
Name="Subtle Emphasis"/>
<w:LsdException Locked="false" Priority="21" QFormat="true"
Name="Intense Emphasis"/>
<w:LsdException Locked="false" Priority="31" QFormat="true"
Name="Subtle Reference"/>
<w:LsdException Locked="false" Priority="32" QFormat="true"
Name="Intense Reference"/>
<w:LsdException Locked="false" Priority="33" QFormat="true" Name="Book Title"/>
<w:LsdException Locked="false" Priority="37" SemiHidden="true"
UnhideWhenUsed="true" Name="Bibliography"/>
<w:LsdException Locked="false" Priority="39" SemiHidden="true"
UnhideWhenUsed="true" QFormat="true" Name="TOC Heading"/>
<w:LsdException Locked="false" Priority="41" Name="Plain Table 1"/>
<w:LsdException Locked="false" Priority="42" Name="Plain Table 2"/>
<w:LsdException Locked="false" Priority="43" Name="Plain Table 3"/>
<w:LsdException Locked="false" Priority="44" Name="Plain Table 4"/>
<w:LsdException Locked="false" Priority="45" Name="Plain Table 5"/>
<w:LsdException Locked="false" Priority="40" Name="Grid Table Light"/>
<w:LsdException Locked="false" Priority="46" Name="Grid Table 1 Light"/>
<w:LsdException Locked="false" Priority="47" Name="Grid Table 2"/>
<w:LsdException Locked="false" Priority="48" Name="Grid Table 3"/>
<w:LsdException Locked="false" Priority="49" Name="Grid Table 4"/>
<w:LsdException Locked="false" Priority="50" Name="Grid Table 5 Dark"/>
<w:LsdException Locked="false" Priority="51" Name="Grid Table 6 Colorful"/>
<w:LsdException Locked="false" Priority="52" Name="Grid Table 7 Colorful"/>
<w:LsdException Locked="false" Priority="46"
Name="Grid Table 1 Light Accent 1"/>
<w:LsdException Locked="false" Priority="47" Name="Grid Table 2 Accent 1"/>
<w:LsdException Locked="false" Priority="48" Name="Grid Table 3 Accent 1"/>
<w:LsdException Locked="false" Priority="49" Name="Grid Table 4 Accent 1"/>
<w:LsdException Locked="false" Priority="50" Name="Grid Table 5 Dark Accent 1"/>
<w:LsdException Locked="false" Priority="51"
Name="Grid Table 6 Colorful Accent 1"/>
<w:LsdException Locked="false" Priority="52"
Name="Grid Table 7 Colorful Accent 1"/>
<w:LsdException Locked="false" Priority="46"
Name="Grid Table 1 Light Accent 2"/>
<w:LsdException Locked="false" Priority="47" Name="Grid Table 2 Accent 2"/>
<w:LsdException Locked="false" Priority="48" Name="Grid Table 3 Accent 2"/>
<w:LsdException Locked="false" Priority="49" Name="Grid Table 4 Accent 2"/>
<w:LsdException Locked="false" Priority="50" Name="Grid Table 5 Dark Accent 2"/>
<w:LsdException Locked="false" Priority="51"
Name="Grid Table 6 Colorful Accent 2"/>
<w:LsdException Locked="false" Priority="52"
Name="Grid Table 7 Colorful Accent 2"/>
<w:LsdException Locked="false" Priority="46"
Name="Grid Table 1 Light Accent 3"/>
<w:LsdException Locked="false" Priority="47" Name="Grid Table 2 Accent 3"/>
<w:LsdException Locked="false" Priority="48" Name="Grid Table 3 Accent 3"/>
<w:LsdException Locked="false" Priority="49" Name="Grid Table 4 Accent 3"/>
<w:LsdException Locked="false" Priority="50" Name="Grid Table 5 Dark Accent 3"/>
<w:LsdException Locked="false" Priority="51"
Name="Grid Table 6 Colorful Accent 3"/>
<w:LsdException Locked="false" Priority="52"
Name="Grid Table 7 Colorful Accent 3"/>
<w:LsdException Locked="false" Priority="46"
Name="Grid Table 1 Light Accent 4"/>
<w:LsdException Locked="false" Priority="47" Name="Grid Table 2 Accent 4"/>
<w:LsdException Locked="false" Priority="48" Name="Grid Table 3 Accent 4"/>
<w:LsdException Locked="false" Priority="49" Name="Grid Table 4 Accent 4"/>
<w:LsdException Locked="false" Priority="50" Name="Grid Table 5 Dark Accent 4"/>
<w:LsdException Locked="false" Priority="51"
Name="Grid Table 6 Colorful Accent 4"/>
<w:LsdException Locked="false" Priority="52"
Name="Grid Table 7 Colorful Accent 4"/>
<w:LsdException Locked="false" Priority="46"
Name="Grid Table 1 Light Accent 5"/>
<w:LsdException Locked="false" Priority="47" Name="Grid Table 2 Accent 5"/>
<w:LsdException Locked="false" Priority="48" Name="Grid Table 3 Accent 5"/>
<w:LsdException Locked="false" Priority="49" Name="Grid Table 4 Accent 5"/>
<w:LsdException Locked="false" Priority="50" Name="Grid Table 5 Dark Accent 5"/>
<w:LsdException Locked="false" Priority="51"
Name="Grid Table 6 Colorful Accent 5"/>
<w:LsdException Locked="false" Priority="52"
Name="Grid Table 7 Colorful Accent 5"/>
<w:LsdException Locked="false" Priority="46"
Name="Grid Table 1 Light Accent 6"/>
<w:LsdException Locked="false" Priority="47" Name="Grid Table 2 Accent 6"/>
<w:LsdException Locked="false" Priority="48" Name="Grid Table 3 Accent 6"/>
<w:LsdException Locked="false" Priority="49" Name="Grid Table 4 Accent 6"/>
<w:LsdException Locked="false" Priority="50" Name="Grid Table 5 Dark Accent 6"/>
<w:LsdException Locked="false" Priority="51"
Name="Grid Table 6 Colorful Accent 6"/>
<w:LsdException Locked="false" Priority="52"
Name="Grid Table 7 Colorful Accent 6"/>
<w:LsdException Locked="false" Priority="46" Name="List Table 1 Light"/>
<w:LsdException Locked="false" Priority="47" Name="List Table 2"/>
<w:LsdException Locked="false" Priority="48" Name="List Table 3"/>
<w:LsdException Locked="false" Priority="49" Name="List Table 4"/>
<w:LsdException Locked="false" Priority="50" Name="List Table 5 Dark"/>
<w:LsdException Locked="false" Priority="51" Name="List Table 6 Colorful"/>
<w:LsdException Locked="false" Priority="52" Name="List Table 7 Colorful"/>
<w:LsdException Locked="false" Priority="46"
Name="List Table 1 Light Accent 1"/>
<w:LsdException Locked="false" Priority="47" Name="List Table 2 Accent 1"/>
<w:LsdException Locked="false" Priority="48" Name="List Table 3 Accent 1"/>
<w:LsdException Locked="false" Priority="49" Name="List Table 4 Accent 1"/>
<w:LsdException Locked="false" Priority="50" Name="List Table 5 Dark Accent 1"/>
<w:LsdException Locked="false" Priority="51"
Name="List Table 6 Colorful Accent 1"/>
<w:LsdException Locked="false" Priority="52"
Name="List Table 7 Colorful Accent 1"/>
<w:LsdException Locked="false" Priority="46"
Name="List Table 1 Light Accent 2"/>
<w:LsdException Locked="false" Priority="47" Name="List Table 2 Accent 2"/>
<w:LsdException Locked="false" Priority="48" Name="List Table 3 Accent 2"/>
<w:LsdException Locked="false" Priority="49" Name="List Table 4 Accent 2"/>
<w:LsdException Locked="false" Priority="50" Name="List Table 5 Dark Accent 2"/>
<w:LsdException Locked="false" Priority="51"
Name="List Table 6 Colorful Accent 2"/>
<w:LsdException Locked="false" Priority="52"
Name="List Table 7 Colorful Accent 2"/>
<w:LsdException Locked="false" Priority="46"
Name="List Table 1 Light Accent 3"/>
<w:LsdException Locked="false" Priority="47" Name="List Table 2 Accent 3"/>
<w:LsdException Locked="false" Priority="48" Name="List Table 3 Accent 3"/>
<w:LsdException Locked="false" Priority="49" Name="List Table 4 Accent 3"/>
<w:LsdException Locked="false" Priority="50" Name="List Table 5 Dark Accent 3"/>
<w:LsdException Locked="false" Priority="51"
Name="List Table 6 Colorful Accent 3"/>
<w:LsdException Locked="false" Priority="52"
Name="List Table 7 Colorful Accent 3"/>
<w:LsdException Locked="false" Priority="46"
Name="List Table 1 Light Accent 4"/>
<w:LsdException Locked="false" Priority="47" Name="List Table 2 Accent 4"/>
<w:LsdException Locked="false" Priority="48" Name="List Table 3 Accent 4"/>
<w:LsdException Locked="false" Priority="49" Name="List Table 4 Accent 4"/>
<w:LsdException Locked="false" Priority="50" Name="List Table 5 Dark Accent 4"/>
<w:LsdException Locked="false" Priority="51"
Name="List Table 6 Colorful Accent 4"/>
<w:LsdException Locked="false" Priority="52"
Name="List Table 7 Colorful Accent 4"/>
<w:LsdException Locked="false" Priority="46"
Name="List Table 1 Light Accent 5"/>
<w:LsdException Locked="false" Priority="47" Name="List Table 2 Accent 5"/>
<w:LsdException Locked="false" Priority="48" Name="List Table 3 Accent 5"/>
<w:LsdException Locked="false" Priority="49" Name="List Table 4 Accent 5"/>
<w:LsdException Locked="false" Priority="50" Name="List Table 5 Dark Accent 5"/>
<w:LsdException Locked="false" Priority="51"
Name="List Table 6 Colorful Accent 5"/>
<w:LsdException Locked="false" Priority="52"
Name="List Table 7 Colorful Accent 5"/>
<w:LsdException Locked="false" Priority="46"
Name="List Table 1 Light Accent 6"/>
<w:LsdException Locked="false" Priority="47" Name="List Table 2 Accent 6"/>
<w:LsdException Locked="false" Priority="48" Name="List Table 3 Accent 6"/>
<w:LsdException Locked="false" Priority="49" Name="List Table 4 Accent 6"/>
<w:LsdException Locked="false" Priority="50" Name="List Table 5 Dark Accent 6"/>
<w:LsdException Locked="false" Priority="51"
Name="List Table 6 Colorful Accent 6"/>
<w:LsdException Locked="false" Priority="52"
Name="List Table 7 Colorful Accent 6"/>
</w:LatentStyles>
</xml><![endif]--><br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhKErm2ew4x2H-FIVkZ6YkDflYM-NRpSJiOW0IzLhGVugFtqAjtZeN43rKnxwBfiDtwUeXMD3DNraFzVLm5QDFMkleafulALk86dWyPMR0B5U2HLy4UcxTbBId5Y1AYDQUu5wJEcrjWMCo/s1600/Folder-icon.png" imageanchor="1" style="clear: right; float: right; margin-bottom: 1em; margin-left: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhKErm2ew4x2H-FIVkZ6YkDflYM-NRpSJiOW0IzLhGVugFtqAjtZeN43rKnxwBfiDtwUeXMD3DNraFzVLm5QDFMkleafulALk86dWyPMR0B5U2HLy4UcxTbBId5Y1AYDQUu5wJEcrjWMCo/s1600/Folder-icon.png" /></a></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiJb8t7XSGGvL7mD-Jksu2u1ycaLUvHoVyeihM0AxNkSF-FKo-L_N7vb9RejMqP6cMItHj5VAkOJ9V3qt2PbbhBxk2DQVBap3fLD2RkzRMA-2kIGYNJxtcd8huPDcI-mAjGA9m3pBebT6k/s1600/Folders-Windows-Folder-icon.png" imageanchor="1" style="clear: right; float: right; margin-bottom: 1em; margin-left: 1em;"></a><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Comment manipuler les <b>fichiers </b>positionnés sur votre disque dur, à l’aide
du <b>langage VBA</b>. L’utilisation de l’objet <b>"</b><a href="https://msdn.microsoft.com/fr-fr/library/office/gg278516.aspx" target="_blank">FileSystemObject</a><b>"</b> va nous permettre de régler cette
question. Dans cet exemple nous allons pouvoir : </span></span></div>
<br />
<ul>
<li><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><span style="font-feature-settings: normal; font-kerning: auto; font-language-override: normal; font-size-adjust: none; font-stretch: normal; font-style: normal; font-synthesis: weight style; font-variant: normal; font-weight: normal; line-height: normal;"></span>Supprimer un fichier</span></span></li>
<li><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><span style="font-feature-settings: normal; font-kerning: auto; font-language-override: normal; font-size-adjust: none; font-stretch: normal; font-style: normal; font-synthesis: weight style; font-variant: normal; font-weight: normal; line-height: normal;"></span>Renommer un fichier</span></span></li>
<li><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><span style="font-feature-settings: normal; font-kerning: auto; font-language-override: normal; font-size-adjust: none; font-stretch: normal; font-style: normal; font-synthesis: weight style; font-variant: normal; font-weight: normal; line-height: normal;"></span>Déplacer un fichier</span></span></li>
<li><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Ouvrir un fichier</span></span></li>
</ul>
<br />
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Évidement pour pouvoir réaliser ces actions il faudra au préalable
trouver sur le disque le fichier qui nous intéresse. Donc <b>rechercher un fichier</b>
sera notre première action.</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhm44CZSR_pUhrkGE0RIUIQ-R2GYQsfbu6ks-1cf7LScH4U_foPZwP3CtAmp4eVXlTA_2Uw5fYh7yKwqNxR5mSEVVVQyWjADCFwQthmPgEUeF_MwxL4pGwWUznwkxGPYLeS7sG8uaXHK0s/s1600/capture1.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhm44CZSR_pUhrkGE0RIUIQ-R2GYQsfbu6ks-1cf7LScH4U_foPZwP3CtAmp4eVXlTA_2Uw5fYh7yKwqNxR5mSEVVVQyWjADCFwQthmPgEUeF_MwxL4pGwWUznwkxGPYLeS7sG8uaXHK0s/s1600/capture1.jpg" height="138" width="400" /></a></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br /></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Nous saisissons dans la zone de texte "TextBox1" du
formulaire "UserForm2" le nom d’un fichier Excel (sans l’extension),
puis nous cliquons sur le bouton "Find". Le système parcours ici tous
les sous-dossiers d’un dossier "Blog" d’un disque "E:".</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Si le fichier est localisé ; son <b>Path</b>
(chemin d’accès) va s'afficher dans la zone de label "Label1" située
en dessous, l'utilisateur choisira alors l'action qu'il désire accomplir.</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhfN-3RwMeGWewN325ZRs9OHr0rEe60a7hEQeRVoe3QchaG7pTUXE3VLROk0qv1OYBwG8sMe2tREI3BZdECmGrY7rgsGuzT1gKvGokjqQTdevx3CmB8Oy2FAFruV01YnQuf_Pewlmz6-LI/s1600/capture2.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhfN-3RwMeGWewN325ZRs9OHr0rEe60a7hEQeRVoe3QchaG7pTUXE3VLROk0qv1OYBwG8sMe2tREI3BZdECmGrY7rgsGuzT1gKvGokjqQTdevx3CmB8Oy2FAFruV01YnQuf_Pewlmz6-LI/s1600/capture2.jpg" height="138" width="400" /></a></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br /></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Il sera nécessaire de créer 2 objets, un pour l'accès au système de
fichiers Windows (<b>scripting.FileSystemObject</b>)
et un autre objet de type dossier pour récupérer notre dossier racine par la méthode <a href="https://msdn.microsoft.com/fr-fr/library/office/gg278492.aspx" target="_blank">GetFolder</a>. Vous noterez également
l'emploi de la fonction <a href="https://msdn.microsoft.com/fr-fr/library/dk008ty4%28v=vs.90%29.aspx" target="_blank">Dir()</a> de la
classe FileSystem qui permet la récupération du nom du fichier dans une chaîne
de type Path ou une chaîne vide en cas d'absence. Le reste du code ne semble pas poser de difficultés.</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="color: red;"><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">'-----------------------------------------------------------------------</span></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Option Explicit</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Public fichier As String</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Public fichier2 As String</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Public Flder As Object</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Public comp As String</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"> Const boite = vbOKOnly +
vbInformation</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"> Const titre = "www.olivier
- picot.fr"</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"> </span></span><span style="color: red;"><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">'-----------------------------------------------------------------------</span></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><span lang="EN-US">Private Sub
Find_Click()</span></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><span lang="EN-US">Dim fso As Object</span></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Dim Dossier As Object</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Dim LeDossier As String</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><span lang="EN-US">Dim chemin As String</span></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><span lang="EN-US">comp = TextBox1.Value</span></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><span lang="EN-US">LeDossier =
"E:\Blog"</span></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><span lang="EN-US">Set fso =
CreateObject("scripting.FileSystemObject")</span></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Set Dossier = fso.getfolder(LeDossier)</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="color: #cc0000;"><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">'Examen de chaque sous dossier du dossier E:\Blog</span></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><span lang="EN-US">For Each Flder In
Dossier.subfolders</span></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"> fichier = Dir(Flder.Path
& Application.PathSeparator & comp & ".xlsx")</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"> <span lang="EN-US">If fichier <> "" Then <span style="color: red;">'donc si on l'a trouvé</span></span></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><span lang="EN-US"> chemin = Flder.Path &
Application.PathSeparator</span></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><span lang="EN-US"> Exit For</span></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><span lang="EN-US"> End If</span></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><span lang="EN-US">Next Flder</span></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">If fichier = "" Then</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"> MsgBox "le fichier
n'existe pas", vbInformation + vbOKOnly, "ERREUR"</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Else</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"> fichier = chemin & comp
& ".xlsx"</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"> <span lang="EN-US">UserForm2.Label1.Caption = fichier</span></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><span lang="EN-US">End If</span></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><span lang="EN-US">End Sub</span></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><span lang="EN-US"> </span></span></span><span style="color: red;"><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">'-----------------------------------------------------------------------</span></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><span lang="EN-US">Private Sub
Ouvrir_Click()</span></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><span lang="EN-US">Workbooks.Open fichier</span></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">MsgBox "Fichier ouvert", boite, titre</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">End Sub</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"> </span></span><span style="color: red;"><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">'-----------------------------------------------------------------------</span></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Private Sub Renommer_Click()</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">fichier2 = Flder.Path & Application.PathSeparator & "copie_"
& comp & ".xlsx"</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"> Name fichier As fichier2</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"> MsgBox "Fichier
rennomé", boite, titre</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><span lang="EN-US">End Sub</span></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><span lang="EN-US"> </span></span></span><span style="color: red;"><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">'-----------------------------------------------------------------------</span></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><span lang="EN-US">Private Sub
Supprimer_Click()</span></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><span lang="EN-US"> </span>Kill fichier</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"> MsgBox "Fichier
supprimé", boite, titre</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><span lang="EN-US">End Sub</span></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><span lang="EN-US"> </span></span></span><span style="color: red;"><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">'-----------------------------------------------------------------------</span></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><span lang="EN-US">Private Sub
Deplace_Click()</span></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><span lang="EN-US">Name fichier As
"E:\SNCF\" & comp & ".xlsx"</span></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">MsgBox "Fichier déplacé", boite, titre</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">End Sub</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"> </span></span><span style="color: red;"><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">'-----------------------------------------------------------------------</span></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><span lang="EN-US">Private Sub
sortir_Click()</span></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><span lang="EN-US"> UserForm2.Hide</span></span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">End Sub</span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Vous pourrez très facilement adapter cet exemple, </span></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<b><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Merci de votre attention</span></span></b></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<br /></div>
Olivier VBAhttp://www.blogger.com/profile/01518798078822033158noreply@blogger.com1tag:blogger.com,1999:blog-3257543995828262470.post-72467921323726886912015-05-05T18:34:00.002+02:002018-09-20T12:15:48.701+02:00VBA : Connaissez-vous MZ-Tools ?<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgWP5PgT_1p09ertWwbYEl702hSdbSLTloN1366u6dR3Cj8TpbocXHOdlN-c6fC9hC9IyTIz6gXZNp1Hrc8YtegSoScXnXOFWRuNfKq47PlMNZxQcBr_ottltB1Y0qvJaMOb06QkaVktu4/s1600/tabindex_assistant.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><br /></a></div>
<span style="font-size: small;"><span style="font-family: "georgia" , "times new roman" , serif;"><br /></span></span>
<span style="font-size: small;"><span style="font-family: "georgia" , "times new roman" , serif;"></span></span><br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhpLw3ePlsF1r3f9oofQe6RqMGrThhhHtiwhKQO65xG6CXFBAgZ3VRUJnmneqU_fJHYd4gqAwacS9g0pqv_OlBr92erXexdF1LFVM4SQTKuV9Xm76vY159xz_Eoo00ureoeu8U4vih7eFs/s1600/mztools.png" imageanchor="1" style="clear: right; float: right; margin-bottom: 1em; margin-left: 1em;"><img border="0" height="52" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhpLw3ePlsF1r3f9oofQe6RqMGrThhhHtiwhKQO65xG6CXFBAgZ3VRUJnmneqU_fJHYd4gqAwacS9g0pqv_OlBr92erXexdF1LFVM4SQTKuV9Xm76vY159xz_Eoo00ureoeu8U4vih7eFs/s1600/mztools.png" width="200" /></a></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: "georgia" , "times new roman" , serif;">Comme l’on constaté
tous les développeurs VBA, les possibilités de gestion du code offertes par l’éditeur
(Visual Basic Editor) de Microsoft sont extrêmement réduites. Les fonctionnalités de l’éditeur peuvent être
grandement améliorés par l’implémentation de logiciels divers et variés. Je
vous présente ici l’excellent logiciel espagnol, <b>MZ-Tools 3.0 for VBA</b>. Ce logiciel est compatible avec les dernières
versions d’Excel 2010 et 2013 (32-bit). Il fonctionne sous toutes les versions
de Windows, y compris Windows 8. Précisons qu’il s’agit d’un logiciel totalement
en <b>FreeWare</b>, aussi en cas d’utilisation professionnelle une donation est
toujours possible.</span></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: "georgia" , "times new roman" , serif;">Vous pourrez
le télécharger à l’adresse <a href="http://www.mztools.com/v3/download.aspx" target="_blank">http://www.mztools.com/v3/download.aspx</a></span></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: "georgia" , "times new roman" , serif;">Voici les
principales fonctionnalités amélioratrices offertes par le logiciel, de quoi se
poser sérieusement deux questions : </span></span></div>
<ol>
<li><span style="font-size: small;"><span style="font-family: "georgia" , "times new roman" , serif;"><span style="font-feature-settings: normal; font-kerning: auto; font-language-override: normal; font-size-adjust: none; font-stretch: normal; font-style: normal; font-synthesis: weight style; font-variant: normal; font-weight: normal; line-height: normal;"></span>Comment on faisait avant ?</span></span></li>
<li><span style="font-size: small;"><span style="font-family: "georgia" , "times new roman" , serif;"><span style="font-feature-settings: normal; font-kerning: auto; font-language-override: normal; font-size-adjust: none; font-stretch: normal; font-style: normal; font-synthesis: weight style; font-variant: normal; font-weight: normal; line-height: normal;"> </span>Microsoft ne pourrait ’il pas repenser
sérieusement son éditeur VBE ?</span></span></li>
</ol>
<ul>
<li><span style="font-size: small;"><span style="font-family: "georgia" , "times new roman" , serif;"><span style="font-feature-settings: normal; font-kerning: auto; font-language-override: normal; font-size-adjust: none; font-stretch: normal; font-style: normal; font-synthesis: weight style; font-variant: normal; font-weight: normal; line-height: normal;"></span>Amélioration de la<b> </b>fonction<b> Rechercher /
Remplacer </b>qui peut être transversale à plusieurs projets</span></span></li>
<li><span style="font-size: small;"><span style="font-family: "georgia" , "times new roman" , serif;"><span style="font-feature-settings: normal; font-kerning: auto; font-language-override: normal; font-size-adjust: none; font-stretch: normal; font-style: normal; font-synthesis: weight style; font-variant: normal; font-weight: normal; line-height: normal;"></span><b>Gestion</b>
du suivi des <b>appels</b> de <b>Procédures</b></span></span> </li>
<li><span style="font-size: small;"><span style="font-family: "georgia" , "times new roman" , serif;"><span style="font-feature-settings: normal; font-kerning: auto; font-language-override: normal; font-size-adjust: none; font-stretch: normal; font-style: normal; font-synthesis: weight style; font-variant: normal; font-weight: normal; line-height: normal;"></span>Création de <b>modèles
de code</b> pour stocker des extraits de code que vous insérez fréquemment dans
votre code source. <span title="To insert a code template in your source code, you can select it from a list with all code templates, or you can define a shortcut for each one for greater productivity.
">Pour
insérer un modèle de code, vous pouvez le sélectionner dans une liste ou lui
affecter un raccourci</span></span></span></li>
<li><span style="font-size: small;"><span style="font-family: "georgia" , "times new roman" , serif;"><span style="font-feature-settings: normal; font-kerning: auto; font-language-override: normal; font-size-adjust: none; font-stretch: normal; font-style: normal; font-synthesis: weight style; font-variant: normal; font-weight: normal; line-height: normal;"></span>Amélioration de la commande <b>Insertion / Procédure…</b></span></span></li>
<li><span style="font-size: small;"><span style="font-family: "georgia" , "times new roman" , serif;">Assistant pour la saisie des instructions de
type <b>Select Case…End Select </b>avec
appel par raccourci</span></span></li>
<li><span style="font-size: small;"><span style="font-family: "georgia" , "times new roman" , serif;"><b>Numérotation
de Ligne</b> : Vous pouvez ajouter ou supprimer des numéros de ligne à une
procédure, module, … simplement à l’aide du menu contextuel.</span></span></li>
<li><span style="font-size: small;"><span style="font-family: "georgia" , "times new roman" , serif;">Création possible de 9 <b>« presse papiers » privés</b> pour conserver et réutiliser des
extraits de code.</span></span></li>
</ul>
<div style="text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEixTj6hztHP7ozVQ6aQab-odAgd1jxn5hHC4v3ZKvpvbwGALxXDusGz8wlziigS70J7ueHE_8aPdbjzOnQIZejB79osuTqTiC6fKdYNROGF4RQ3zDYSiUP6-ItNJoQdB5biKUfn6I1phfY/s1600/private_clipboards.gif" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="179" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEixTj6hztHP7ozVQ6aQab-odAgd1jxn5hHC4v3ZKvpvbwGALxXDusGz8wlziigS70J7ueHE_8aPdbjzOnQIZejB79osuTqTiC6fKdYNROGF4RQ3zDYSiUP6-ItNJoQdB5biKUfn6I1phfY/s1600/private_clipboards.gif" width="320" /></a></div>
<ul>
<li><span style="font-size: small;"><span style="font-family: "georgia" , "times new roman" , serif;">Un <b>assistant</b>
de création de la boîte de dialogue <b>MsgBox</b>
évitant une saisie fastidieuse des paramètres.</span></span> </li>
</ul>
<span style="font-size: small;"><span style="font-family: "georgia" , "times new roman" , serif;"></span></span><br />
<div style="text-align: center;">
<span style="font-size: small;"><span style="font-family: "georgia" , "times new roman" , serif;"></span></span><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgMF2Kn9rwtJNLLjMUElPyDb7joEIkpcY0fyq3SaY0lhMIJvQZ8he6QEkcLj3_xTNiFipXXuwFIxJkQX875-cllSU9xK6vBFBau3dbQM5rr7FWn2ICrPekbO8nXE5clqmjHbYxNWXATpKQ/s1600/msgbox_assistant.gif" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="248" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgMF2Kn9rwtJNLLjMUElPyDb7joEIkpcY0fyq3SaY0lhMIJvQZ8he6QEkcLj3_xTNiFipXXuwFIxJkQX875-cllSU9xK6vBFBau3dbQM5rr7FWn2ICrPekbO8nXE5clqmjHbYxNWXATpKQ/s1600/msgbox_assistant.gif" width="320" /></a></div>
<ul>
<li><span style="font-size: small;"><span style="font-family: "georgia" , "times new roman" , serif;">Outils de modification de la <b>casse</b> des caractères dans le code, MAJ
/ min</span></span></li>
<li><span style="font-size: small;"><span style="font-family: "georgia" , "times new roman" , serif;">Assistant de gestion de l’ordre des <b>tabulations</b> sur les objets de
formulaires</span></span></li>
</ul>
<br />
<div style="text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgWP5PgT_1p09ertWwbYEl702hSdbSLTloN1366u6dR3Cj8TpbocXHOdlN-c6fC9hC9IyTIz6gXZNp1Hrc8YtegSoScXnXOFWRuNfKq47PlMNZxQcBr_ottltB1Y0qvJaMOb06QkaVktu4/s1600/tabindex_assistant.gif" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgWP5PgT_1p09ertWwbYEl702hSdbSLTloN1366u6dR3Cj8TpbocXHOdlN-c6fC9hC9IyTIz6gXZNp1Hrc8YtegSoScXnXOFWRuNfKq47PlMNZxQcBr_ottltB1Y0qvJaMOb06QkaVktu4/s1600/tabindex_assistant.gif" /></a></div>
<ul>
<li><span style="font-size: small;"><span style="font-family: "georgia" , "times new roman" , serif;"><b>Copier / coller</b> des <b>contrôles</b> de formulaires avec leur <b>Code </b>intégré.</span></span></li>
<li><span style="font-size: small;"><span style="font-family: "georgia" , "times new roman" , serif;"><span style="font-feature-settings: normal; font-kerning: auto; font-language-override: normal; font-size-adjust: none; font-stretch: normal; font-style: normal; font-synthesis: weight style; font-variant: normal; font-weight: normal; line-height: normal;"></span><b>Renommer</b>
des <b>contrôles</b> entraine
automatiquement le renommage de <b>l’objet</b>
correspondant dans le <b>code</b> d’où un
gain de temps considérable et une sérieuse diminution du nombre d’erreurs.</span></span></li>
<li><span style="font-size: small;"><span style="font-family: "georgia" , "times new roman" , serif;"><span style="font-feature-settings: normal; font-kerning: auto; font-language-override: normal; font-size-adjust: none; font-stretch: normal; font-style: normal; font-synthesis: weight style; font-variant: normal; font-weight: normal; line-height: normal;"></span>Demande automatique de saisie du <b>nom</b> et de la <b>légende</b> d’un <b>contrôle</b>
lorsque vous l’ajouter dans votre <b>formulaire</b>.</span></span></li>
<li><span style="font-size: small;"><span style="font-family: "georgia" , "times new roman" , serif;"><span style="font-feature-settings: normal; font-kerning: auto; font-language-override: normal; font-size-adjust: none; font-stretch: normal; font-style: normal; font-synthesis: weight style; font-variant: normal; font-weight: normal; line-height: normal;"></span>Outils de <b>détection</b>
dans le code source des <b>variables</b> et
<b>constantes</b> <b>inutilisées</b>, pour amélioration de la performance.</span></span></li>
<li><span style="font-size: small;"><span style="font-family: "georgia" , "times new roman" , serif;"><span style="font-feature-settings: normal; font-kerning: auto; font-language-override: normal; font-size-adjust: none; font-stretch: normal; font-style: normal; font-synthesis: weight style; font-variant: normal; font-weight: normal; line-height: normal;"></span><b>Effacement</b>
automatique de la <b>fenêtre</b> <b>d’exécution</b></span></span></li>
<li><span style="font-size: small;"><span style="font-family: "georgia" , "times new roman" , serif;"><span style="font-feature-settings: normal; font-kerning: auto; font-language-override: normal; font-size-adjust: none; font-stretch: normal; font-style: normal; font-synthesis: weight style; font-variant: normal; font-weight: normal; line-height: normal;"></span><b>Fermez</b>
toutes les <b>fenêtres ouvertes</b> dans <b>l’éditeur</b> sauf éventuellement la fenêtre
active.</span></span></li>
</ul>
<br />
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: "georgia" , "times new roman" , serif;">Cette liste
est loin d’être exhaustive, je me suis concentré sur les éléments me paraissant
particulièrement intéressant pour un gain de productivité, il y a aussi une
gestion possible des tâches d’un projet, des retours statistiques sur vos codes
... et bien d’autres fonctionnalités à découvrir.</span></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-size: small;"><span style="font-family: "georgia" , "times new roman" , serif;">Merci de
votre attention</span></span></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
Olivier VBAhttp://www.blogger.com/profile/01518798078822033158noreply@blogger.com9tag:blogger.com,1999:blog-3257543995828262470.post-19868983934302563612015-02-02T16:22:00.001+01:002015-02-16T08:28:06.285+01:00Calcul de la médiane<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgE376YrWnA8jqEReKZLo3jGJCF8bRSsydmBwOzE6yo2ZL60PGOL4cgDm3PyNGnJsBkq70R5PwCrLoVCRvjBVt6bw_k600Tbg_dbzpx_a1RhWcKdDnZ4EuNWxNY6VtnXA9vfyjsQVedd2o/s1600/mediane_1.jpg" imageanchor="1" style="clear: right; float: right; margin-bottom: 1em; margin-left: 1em;"><br /></a></span></span></div>
<div style="text-align: justify;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">A la suite de l’article précédent poursuivons nos travaux sur une autre caractéristique de <b>tendance</b> centrale, la <a href="http://fr.wikipedia.org/wiki/M%C3%A9diane" target="_blank"><b>médiane</b></a>. La <b>médiane </b>d'un série est la valeur qui partage cette série en deux séries aux effectifs égaux. Dans la première les valeurs inférieures à la <b>médiane </b>et les valeurs supérieurs dans la seconde série. Nous ne considérons bien sur que des données <b>quantitatives </b>et nous envisagerons dans cet article deux hypothèses : </span></span></div>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br /></span></span>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><b>Hypothèse 1 : Effectif impair sans valeur répétée</b></span></span><br />
<br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg6OXXe4YdBeaDqCnuqbh-0o8IT65I3NJ3RTyZxtHYSxQdm45a0wQsYukbHvE5LZv4EBnNBpsLyKZS-eYPOVQYemq6IvfLF2uciE1R5sAgPtnaoGNOqARYEa78JFaqy3qi7d5YkFBePFqY/s1600/mediane_2.jpg" imageanchor="1" style="clear: right; float: right; margin-bottom: 1em; margin-left: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg6OXXe4YdBeaDqCnuqbh-0o8IT65I3NJ3RTyZxtHYSxQdm45a0wQsYukbHvE5LZv4EBnNBpsLyKZS-eYPOVQYemq6IvfLF2uciE1R5sAgPtnaoGNOqARYEa78JFaqy3qi7d5YkFBePFqY/s1600/mediane_2.jpg" height="190" width="200" /></a>Soit ici un effectif de 5 chiffres, qu'il faut d'abord classés par ordre croissant, puis déterminer la valeur de la position qui partage l'effectif total en deux sous effectifs égaux en appliquant la formule <i><b>(n + 1) / 2</b></i>. </span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Ainsi il a été utilisé ici la fonction <i>=MEDIANE(B2:B6)</i> dans le tableau de gauche, et dans le tableau ci-dessous une détermination de la position grâce à la fonction <i>=NB()</i> puis la récupération de la valeur de cette position à l'aide de la fonction <i>=INDEX( )</i>.</span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Bien sur il convient de vérifier qu'il y a bien partage de l'effectif en deux parties égales.</span></span><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgRNGxYWF3BaUdrqj-uSuchQ_gjjs7DgWBozsh110fq8G3JrOGtkU2iDCAbuwZQCHDgPW0iF8PgL1KxYYWpOwRlJ2emL6tJSoFGOlZh19m8qvqhndCr7_hCzBfnYAhP7LU2z2fUk_1UYwQ/s1600/mediane_3.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgRNGxYWF3BaUdrqj-uSuchQ_gjjs7DgWBozsh110fq8G3JrOGtkU2iDCAbuwZQCHDgPW0iF8PgL1KxYYWpOwRlJ2emL6tJSoFGOlZh19m8qvqhndCr7_hCzBfnYAhP7LU2z2fUk_1UYwQ/s1600/mediane_3.jpg" height="155" width="400" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><b>Hypothèse 2 : Effectif pair sans valeur répétée</b></span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br /></span></span>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiE2sdGOotBSBybk5UjZ3mG1esJVBz3k8Lguqxdrl1uKa_lkSl5Kw_j1FyC8lCNaV9MpPByhrIHOcGj2nStz7PKtAvcuuP5ORYTBuPWKaxYuSZvj6EsKVrNm7svRBchlWXgA418P7RglF0/s1600/mediane_4.jpg" imageanchor="1" style="clear: right; float: right; margin-bottom: 1em; margin-left: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiE2sdGOotBSBybk5UjZ3mG1esJVBz3k8Lguqxdrl1uKa_lkSl5Kw_j1FyC8lCNaV9MpPByhrIHOcGj2nStz7PKtAvcuuP5ORYTBuPWKaxYuSZvj6EsKVrNm7svRBchlWXgA418P7RglF0/s1600/mediane_4.jpg" height="200" width="160" /></a>Quand l'effectif est pair, la médiane n'est pas une valeur de la série. Soit ici un effectif de 8 chiffres, qu'il faut d'abord classés par
ordre croissant, puis appliquer la formule <b>
(n + 1) / 2, </b>ce qui indique l'intervalle médian, ici entre la 4éme et la 5éme valeur. La médiane est donc = ( 7 + 9 ) / 2.</span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Donc la médiane est égale à la moyenne arithmétique. Bien sur il convient de vérifier qu'il y a bien partage de l'effectif en deux parties égales.</span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Dans le tableau de gauche on obtient directement le résultat à l'aide de la fonction <i>=MEDIANE(B2:B9)</i>, dans le tableau ci dessous la méthode pour déterminer l'intervalle médian puis les 2 valeurs de l'intervalle, à l'aide des fonctions =<i>ARRONDI.INF( )</i> et <i>ARRONDI.SUP()</i>.</span></span><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgX02crCgzTylpBxqS1qaIBbuLW7I860KWvJbZyV-vg1VH-Vj75uM_h_IkT5gfesJdyYPX4Qj3dlpGaf6nyY-5LeI4Qn3-Ak1_K8pcxmFiXbSxUseFjwbke5UIooet6d4M0Cd5_IHUOEBY/s1600/mediane_5.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgX02crCgzTylpBxqS1qaIBbuLW7I860KWvJbZyV-vg1VH-Vj75uM_h_IkT5gfesJdyYPX4Qj3dlpGaf6nyY-5LeI4Qn3-Ak1_K8pcxmFiXbSxUseFjwbke5UIooet6d4M0Cd5_IHUOEBY/s1600/mediane_5.jpg" height="99" width="400" /></a></div>
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<div style="text-align: left;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Merci de votre attention... </span></span></div>
<br />
<br />Olivier VBAhttp://www.blogger.com/profile/01518798078822033158noreply@blogger.com0tag:blogger.com,1999:blog-3257543995828262470.post-46486839919985804162014-10-10T11:59:00.000+02:002014-10-10T11:59:27.896+02:00VBA : Mon premier SPOC<span style="font-family: Georgia, Times New Roman, serif;"><br /></span>
<div dir="ltr" style="background-color: white; margin-bottom: 0pt; margin-top: 0pt;">
<span style="background-color: transparent; font-size: 15px; line-height: 17.25px; white-space: pre-wrap;"><span style="font-family: Georgia, Times New Roman, serif;"><br /></span></span></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgqc4zXdeBftzjf4qQ7W8At9WoOtK2O2IORED8MqziW8Mw_GmvfrCG2UkG1yL6ixt1jzCBa-iDsGuYWABbfkPr-QiXpjJCgPKpPYMHEsoWAzCFk7qS6SwNUEN7SXnDbJQ21IJaBHUogCBw/s1600/Logo_Unow.jpg" imageanchor="1" style="clear: right; float: right; margin-bottom: 1em; margin-left: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgqc4zXdeBftzjf4qQ7W8At9WoOtK2O2IORED8MqziW8Mw_GmvfrCG2UkG1yL6ixt1jzCBa-iDsGuYWABbfkPr-QiXpjJCgPKpPYMHEsoWAzCFk7qS6SwNUEN7SXnDbJQ21IJaBHUogCBw/s1600/Logo_Unow.jpg" height="155" width="400" /></a></div>
<div dir="ltr" style="background-color: white; margin-bottom: 0pt; margin-top: 0pt;">
<span style="font-family: Georgia, Times New Roman, serif;"><span style="background-color: transparent; font-size: 15px; line-height: 17.25px; white-space: pre-wrap;">Après</span><span style="font-size: 15px; line-height: 17.25px; white-space: pre-wrap;"> ces quelques semaines d’absence, j</span><span style="background-color: transparent; font-size: 15px; vertical-align: baseline; white-space: pre-wrap;">’ai le plaisir de vous inviter à </span><span style="background-color: transparent; font-size: 15px; font-weight: bold; vertical-align: baseline; white-space: pre-wrap;">ma nouvelle </span><a href="https://www.capitainespoc.com/index.php/spoc/les-fondamentaux-du-vba" style="color: #1155cc; font-size: 13px; line-height: 1.15; text-decoration: none;" target="_blank"><span style="background-color: transparent; font-size: 15px; font-weight: bold; text-decoration: underline; vertical-align: baseline; white-space: pre-wrap;">formation en ligne “VBA : Niveau 1”</span></a><span style="background-color: transparent; font-size: 15px; font-weight: bold; vertical-align: baseline; white-space: pre-wrap;"> au format SPOC</span><span style="background-color: transparent; font-size: 15px; vertical-align: baseline; white-space: pre-wrap;">, qui vient d’être lancée sur le site </span><a href="http://www.capitainespoc.com/" style="color: #1155cc; font-size: 13px; line-height: 1.15; text-decoration: none;" target="_blank"><span style="background-color: transparent; font-size: 15px; text-decoration: underline; vertical-align: baseline; white-space: pre-wrap;">www.capitainespoc.com</span></a><span style="background-color: transparent; font-size: 15px; vertical-align: baseline; white-space: pre-wrap;">.</span></span></div>
<span style="font-family: Georgia, Times New Roman, serif;"><br style="background-color: white; color: #222222; font-size: 13px;" /></span>
<div dir="ltr" style="background-color: white; color: #222222; font-size: 13px; line-height: 1.15; margin-bottom: 0pt; margin-top: 0pt;">
<span style="font-family: Georgia, Times New Roman, serif;"><span style="background-color: transparent; color: black; font-size: 15px; vertical-align: baseline; white-space: pre-wrap;">Un “</span><span style="background-color: transparent; color: black; font-size: 15px; font-style: italic; vertical-align: baseline; white-space: pre-wrap;">Small Private Online Course”</span><span style="background-color: transparent; color: black; font-size: 15px; vertical-align: baseline; white-space: pre-wrap;"> est une formation en ligne tutorée et communautaire d’une durée de 5 semaines dans laquelle un groupe de participants a accès à un contenu sur-mesure : vidéos courtes interactives, quiz pour tester vos connaissances et un cas fil rouge qui vous permettra de construire progressivement vos premières macros.</span></span></div>
<span style="font-family: Georgia, Times New Roman, serif;"><br style="background-color: white; color: #222222; font-size: 13px;" /></span>
<div dir="ltr" style="background-color: white; color: #222222; font-size: 13px; line-height: 1.15; margin-bottom: 0pt; margin-top: 0pt;">
<span style="background-color: transparent; color: black; font-size: 15px; vertical-align: baseline; white-space: pre-wrap;"><span style="font-family: Georgia, Times New Roman, serif;">Au programme de cette formation, je vous propose 5 modules couvrant chacun un aspect essentiel qui vous permettra de développer votre compréhension de l’outil VBA et de travailler sur votre propre projet de macro. </span></span></div>
<span style="font-family: Georgia, Times New Roman, serif;"><br style="background-color: white; color: #222222; font-size: 13px;" /></span>
<ul style="background-color: white; color: #222222; font-size: 13px; margin-bottom: 0pt; margin-top: 0pt;">
<li dir="ltr" style="background-color: transparent; color: black; font-size: 15px; list-style-type: disc; margin-left: 15px; vertical-align: baseline;"><div dir="ltr" style="line-height: 1; margin-bottom: 0pt; margin-top: 0pt;">
<span style="background-color: transparent; vertical-align: baseline; white-space: pre-wrap;"><span style="font-family: Georgia, Times New Roman, serif;">Module 1 : Introduction à la programmation sur excel et aux macros commandes</span></span></div>
</li>
<li dir="ltr" style="background-color: transparent; color: black; font-size: 15px; list-style-type: disc; margin-left: 15px; vertical-align: baseline;"><div dir="ltr" style="line-height: 1; margin-bottom: 0pt; margin-top: 0pt;">
<span style="background-color: transparent; vertical-align: baseline; white-space: pre-wrap;"><span style="font-family: Georgia, Times New Roman, serif;">Module 2 : Les éléments de base du langage VBA</span></span></div>
</li>
<li dir="ltr" style="background-color: transparent; color: black; font-size: 15px; list-style-type: disc; margin-left: 15px; vertical-align: baseline;"><div dir="ltr" style="line-height: 1; margin-bottom: 0pt; margin-top: 0pt;">
<span style="background-color: transparent; vertical-align: baseline; white-space: pre-wrap;"><span style="font-family: Georgia, Times New Roman, serif;">Module 3 : Les formulaires VBA et la gestion des erreurs</span></span></div>
</li>
<li dir="ltr" style="background-color: transparent; color: black; font-size: 15px; list-style-type: disc; margin-left: 15px; vertical-align: baseline;"><div dir="ltr" style="line-height: 1; margin-bottom: 0pt; margin-top: 0pt;">
<span style="background-color: transparent; vertical-align: baseline; white-space: pre-wrap;"><span style="font-family: Georgia, Times New Roman, serif;">Module 4 : Éléments avancés du langage : procédures, fonctions, événements et tableaux</span></span></div>
</li>
<li dir="ltr" style="background-color: transparent; color: black; font-size: 15px; list-style-type: disc; margin-left: 15px; vertical-align: baseline;"><div dir="ltr" style="line-height: 1; margin-bottom: 0pt; margin-top: 0pt;">
<span style="background-color: transparent; vertical-align: baseline; white-space: pre-wrap;"><span style="font-family: Georgia, Times New Roman, serif;">Module Bonus : VBA et son environnement</span></span></div>
</li>
</ul>
<span style="font-family: Georgia, Times New Roman, serif;"><br style="background-color: white; color: #222222; font-size: 13px;" /></span>
<div dir="ltr" style="background-color: white; color: #222222; font-size: 13px; line-height: 1.15; margin-bottom: 0pt; margin-top: 0pt;">
<span style="font-family: Georgia, Times New Roman, serif;"><span style="background-color: transparent; color: black; font-size: 15px; vertical-align: baseline; white-space: pre-wrap;">Pour les lecteurs assidus de mon blog ou si c’est votre jour de chance et que vous tombez par hasard sur cet article, j’ai négocié pour vous </span><span style="background-color: transparent; color: black; font-size: 15px; font-weight: bold; vertical-align: baseline; white-space: pre-wrap;">une remise spéciale</span><span style="background-color: transparent; color: black; font-size: 15px; vertical-align: baseline; white-space: pre-wrap;"> : -75€ sur votre formation. Il suffit d’utiliser le code promo </span><span style="background-color: transparent; color: black; font-size: 15px; font-weight: bold; vertical-align: baseline; white-space: pre-wrap;">SpocVBA1</span><span style="background-color: transparent; color: black; font-size: 15px; vertical-align: baseline; white-space: pre-wrap;">.</span></span></div>
<span style="font-family: Georgia, Times New Roman, serif;"><br style="background-color: white; color: #222222; font-size: 13px;" /><span style="font-size: 15px; vertical-align: baseline; white-space: pre-wrap;">J’espère vous retrouver nombreux pour la première session du SPOC “VBA : Niveau 1” qui démarrera le 10 novembre 2014</span></span><span style="font-family: Arial; font-size: 15px; vertical-align: baseline; white-space: pre-wrap;"> !</span><br />
<span style="font-size: 15px; vertical-align: baseline; white-space: pre-wrap;"><span style="font-family: Georgia, Times New Roman, serif;"><br /></span></span>
<span style="font-size: 15px; vertical-align: baseline; white-space: pre-wrap;"><span style="font-family: Georgia, Times New Roman, serif;">Merci de votre attention !</span></span><br />
<span style="font-size: 15px; vertical-align: baseline; white-space: pre-wrap;"><span style="font-family: Georgia, Times New Roman, serif;"><br /></span></span>
<span style="font-size: 15px; vertical-align: baseline; white-space: pre-wrap;"><span style="font-family: Georgia, Times New Roman, serif;"><br /></span></span>
<span style="font-size: 15px; vertical-align: baseline; white-space: pre-wrap;"><span style="font-family: Georgia, Times New Roman, serif;"><br /></span></span>Olivier VBAhttp://www.blogger.com/profile/01518798078822033158noreply@blogger.com0tag:blogger.com,1999:blog-3257543995828262470.post-40309651318587166072014-05-26T09:40:00.000+02:002014-05-26T10:10:19.402+02:00Calcul du mode<div style="text-align: left;">
</div>
<div class="" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;">
<br /></div>
<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhM6J-Y409QJrFyz3AcpA7j5XjkCfcniloLOmtVrZvUs6ckvBKpoaP9fDvImX_0_VeM3-vZ2I-OvXCA1QW2KCpWWPqBV7iWPZeGzLIjGiv5JQDuxV-GIXHfGx9CCe01cBJ1NfvqYsJGcC0/s1600/mode_5.jpg" imageanchor="1" style="clear: right; float: right; margin-bottom: 1em; margin-left: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhM6J-Y409QJrFyz3AcpA7j5XjkCfcniloLOmtVrZvUs6ckvBKpoaP9fDvImX_0_VeM3-vZ2I-OvXCA1QW2KCpWWPqBV7iWPZeGzLIjGiv5JQDuxV-GIXHfGx9CCe01cBJ1NfvqYsJGcC0/s1600/mode_5.jpg" height="64" width="320" /></a></div>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Le <b>mode </b>d'une série de valeur se définie comme la valeur la plus fréquente de cette série. Le calcul dépendra <b>du type de données</b>, ici nous ne considérerons que des données numériques (<b>quantitatives</b>). Une série peut posséder plusieurs <a href="http://fr.wikipedia.org/wiki/Mode_%28statistiques%29" target="_blank">modes</a>. Voyons comment manipuler cette notion dans <b>Excel</b>. </span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><b><br />
</b></span></span> <span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><i><b>Exemple 1 </b>: Une série simple sans aucune valeur répétée.</i></span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></span> <br />
<div style="text-align: justify;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj2FSciP86Bx2lMX5LGNb86xjDp6nyXhbdm3rs9PaY0ARkcHjFi7hWGTidDcGzMElTkihXtYagzxTksWxnBVQb3JpQ5MeIYWW9MbidhiL9lIb7x-PsdDm2dW-oEpliGVqRS5oA2CinakCc/s1600/mode_1.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj2FSciP86Bx2lMX5LGNb86xjDp6nyXhbdm3rs9PaY0ARkcHjFi7hWGTidDcGzMElTkihXtYagzxTksWxnBVQb3JpQ5MeIYWW9MbidhiL9lIb7x-PsdDm2dW-oEpliGVqRS5oA2CinakCc/s1600/mode_1.jpg" height="170" width="200" /></a>Dans l’exemple suivant, chaque valeur n'étant répétée qu'une seule fois, (<b>fréquence </b>de chaque valeur = 1) il n'y a pas de <b>mode</b>, celui-ci à été évalué à l'aide de la fonction <b>=MODE.SIMPLE(B2:B7)</b> et retourne la valeur <i>#N/A</i>. Profitons en pour se rafraichir la mémoire sur les fonctions <b>Excel </b>permettant de détourner les messages d'erreurs. Ici dans la cellule B9, la formule <b>=SIERREUR( </b>MODE.SIMPLE(B2:B7) ; "Pas de mode"<b>)</b> permet aisément ce détournement.</span></span><br />
<br />
<br />
<br />
<br />
<br /></div>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></span> <span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"></span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></span> <span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"></span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><i><b>Exemple 2 :</b> Les effectifs sont groupés par valeurs.</i></span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></span> <br />
<div class="separator" style="clear: both; text-align: center;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhvnAaBAmZ8VHdU7_ItFkqq606vyA9pbDexzWGh_sM3wverCSRBOYrZeTwXR0o3bGy7s00SXi9YImIsDyynhAUoVK4WQBPtUh5bV3MiqYg3__MkaQmDVyzolngEbOnl3lbcwHgVAXCfHI8/s1600/mode_2.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhvnAaBAmZ8VHdU7_ItFkqq606vyA9pbDexzWGh_sM3wverCSRBOYrZeTwXR0o3bGy7s00SXi9YImIsDyynhAUoVK4WQBPtUh5bV3MiqYg3__MkaQmDVyzolngEbOnl3lbcwHgVAXCfHI8/s1600/mode_2.jpg" height="200" width="148" /></a></span></span></div>
<div style="text-align: justify;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiLFZ27JClznrUfr-YS2T_nLKQm9iVChmkbkZm3378u0PvcfGIn4_NELfp2JjkhDp2pnHlDq063n9Llox1Zc_S1Dl5_EXeyoXaEfrAaFoguu0OUesxOOp0epOBrL8gsuokb9Wf4UysmS50/s1600/mode_3_bis.jpg" imageanchor="1" style="clear: right; float: right; margin-bottom: 1em; margin-left: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiLFZ27JClznrUfr-YS2T_nLKQm9iVChmkbkZm3378u0PvcfGIn4_NELfp2JjkhDp2pnHlDq063n9Llox1Zc_S1Dl5_EXeyoXaEfrAaFoguu0OUesxOOp0epOBrL8gsuokb9Wf4UysmS50/s1600/mode_3_bis.jpg" /></a><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Dans ce second exemple, la fonction =mode.simple() nous permet d'obtenir un <b>mode </b>égale à<b> </b>13, pour vérifier le résultat nous allons déterminer la <b>fréquence </b>de chacune des moyennes présentes dans le tableau. Pour réaliser ce comptage un simple <b>tableau croisé dynamique à une dimension</b> fera l'affaire. Il nous restera alors à convertir le tableau croisé en <b>graphique croisé </b>ici les <b>n<sub>i</sub></b> en fonction des <b>effectifs </b>(diagramme en bâtons), le mode est représenté alors par le bâton le plus haut de la série. </span></span></div>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></span> <br />
<div class="separator" style="clear: both; text-align: center;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhZfL0r6yTQTedn9PKesRg54UEIwPFEvQUE7k-KSAgcofl6evGjHqXDDBVy4moJE0m6PgQXeocDRnvlCBgP2Fxmt4Bd3gFLbUK9vitDPhoX2vkbFHM4j-C3i5GV0i9t6fFQqv7KFVHSguw/s1600/mode_4.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhZfL0r6yTQTedn9PKesRg54UEIwPFEvQUE7k-KSAgcofl6evGjHqXDDBVy4moJE0m6PgQXeocDRnvlCBgP2Fxmt4Bd3gFLbUK9vitDPhoX2vkbFHM4j-C3i5GV0i9t6fFQqv7KFVHSguw/s1600/mode_4.jpg" height="228" width="320" /></a></span></span></div>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
<i><b> </b></i></span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><i><b>Exemple 3 :</b> Groupons les effectifs par classes d’amplitudes égales.</i></span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></span> <br />
<div class="separator" style="clear: both; text-align: justify;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhSJic-0gtzplTlv8PflzBFNTRjQsXhHAaxt9FzWoYluyXdKQW884u0a_HLWmRaKU41-FXsRF2NKitwK3uED-YqUk1nXV2exNeZDLfX8EGm_LwZ_f_yYimFqFC7E4vm3JOWqh_GBlvwxs4/s1600/mode_7.jpg" imageanchor="1" style="clear: right; float: right; margin-bottom: 1em; margin-left: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhSJic-0gtzplTlv8PflzBFNTRjQsXhHAaxt9FzWoYluyXdKQW884u0a_HLWmRaKU41-FXsRF2NKitwK3uED-YqUk1nXV2exNeZDLfX8EGm_LwZ_f_yYimFqFC7E4vm3JOWqh_GBlvwxs4/s1600/mode_7.jpg" height="109" width="320" /></a><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjN5v0xBUy5ZhYqYuHe6_cDXFlOtHfqSwSxejwzUTGJ6Yh818b0ZYnFtFdMAsMr6hTPVq0aEC6Xs5mv779ZtE6lRRZzSyXvMucpKsM9kEdPh-8cKfAYikr-b4dr6UbtR5E_XGcOgMr3mQ0/s1600/mode_6.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjN5v0xBUy5ZhYqYuHe6_cDXFlOtHfqSwSxejwzUTGJ6Yh818b0ZYnFtFdMAsMr6hTPVq0aEC6Xs5mv779ZtE6lRRZzSyXvMucpKsM9kEdPh-8cKfAYikr-b4dr6UbtR5E_XGcOgMr3mQ0/s1600/mode_6.jpg" height="320" width="100" /></a>Dans ce troisième exemple, nous souhaitons étudier un tableau de 30 valeurs en définissant 4 classes d’amplitudes égales comme dans le tableau 2. </span></span></div>
<div style="text-align: justify;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"></span></span></div>
<div style="text-align: justify;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></span></div>
<div style="text-align: justify;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiw1XglsKue-Bd2uFzbu6oybAxsrJUDSy-BrUT3ZUSs60Z4_bx9U9zhd-VasD1OohD2rp8PhvvKTEW0YJHIVqrX7YbftuCgMnnqMrdvDXEHaeOSVYMoXYofP3AJzb9oQwPiPzmJ79PEGyI/s1600/mode_9.jpg" imageanchor="1" style="clear: right; float: right; margin-bottom: 1em; margin-left: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiw1XglsKue-Bd2uFzbu6oybAxsrJUDSy-BrUT3ZUSs60Z4_bx9U9zhd-VasD1OohD2rp8PhvvKTEW0YJHIVqrX7YbftuCgMnnqMrdvDXEHaeOSVYMoXYofP3AJzb9oQwPiPzmJ79PEGyI/s1600/mode_9.jpg" height="163" width="320" /></a><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Un tableau croisé dynamique pourra calculer automatiquement pour nous les n<sub>i</sub> des 4 classes et ainsi mettre immédiatement en évidence <b>la classe modale</b>. La seule difficulté est de transformer automatiquement les x<sub>i</sub> en classe, cela est rendu possible grâce à une fonctionnalité magique des tableaux croisés d'Excel.</span></span></div>
<ol>
<li><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Positionnez-vous dans le tableau croisé</span></span></li>
<li><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Onglet contextuel Outils de tableau croisé dynamique / Options</span></span></li>
<li><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Bouton <b>"Grouper la sélection"</b></span></span></li>
<li><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">définir vos classes en précisant les valeurs de départ, d'arrivée et le pas. </span></span></li>
</ol>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></span> <span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"> Pour calculer le <b>mode </b>nous utiliserons dans la cellule F6 la formule :</span></span><br />
<div style="text-align: center;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></span> <span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><b><i>Mode </i>= x <sup>inf</sup><sub>i</sub> + a * (d1 / (d1 + d2))</b></span></span></div>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></span> <br />
<div style="text-align: justify;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">ou <b>a</b> est l'amplitude de classe et <b>x <sup>inf</sup><sub> i</sub></b> la borne inférieure de la classe modale, ces deux valeurs sont saisies ici dans les cellules H1 et H2. Les valeurs <b>d1</b> et <b>d2</b> sont extraites du tableau croisé grâce la fonction <b>=LIREDONNEESTABCROISDYNAMIQUE( )</b>. Il nous reste alors à convertir le tableau croisé en graphique croisé. Pour la transformation du "diagramme bâton" en "histogramme", consultez l'article du <a href="http://olivier-bureautique.blogspot.fr/2014/04/creer-un-histogramme-un-vrai.html" target="_blank">08/04/2014</a>.</span></span></div>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></span> <br />
<div class="separator" style="clear: both; text-align: center;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjWtQ1DW_ZSZbnyKDbUwRl6t0GI6yyT_UQRhGukRmIVo2Yx5zI5ucmivQeqYL75S4anDx18_5yEJntRYTCgpyx1JVj4xAalj0mo8uTgDJc4litLQ11JxvUEYJ4lif7MkTQ96oiH6Q-oFRY/s1600/mode_8.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjWtQ1DW_ZSZbnyKDbUwRl6t0GI6yyT_UQRhGukRmIVo2Yx5zI5ucmivQeqYL75S4anDx18_5yEJntRYTCgpyx1JVj4xAalj0mo8uTgDJc4litLQ11JxvUEYJ4lif7MkTQ96oiH6Q-oFRY/s1600/mode_8.jpg" height="251" width="400" /></a></span></span></div>
<br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Les indications portées sur le graphique permettent ici de comprendre la formule de calcul.</span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></span> <span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Merci de votre attention...</span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></span> <span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></span> <span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></span>
<!-- Blogger automated replacement: "https://images-blogger-opensocial.googleusercontent.com/gadgets/proxy?url=http%3A%2F%2F3.bp.blogspot.com%2F-SlDg_DMY4m4%2FU3zGwHsBYaI%2FAAAAAAAABRI%2FXmmHQxJuBbI%2Fs1600%2Fmode_1.jpg&container=blogger&gadget=a&rewriteMime=image%2F*" with "https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj2FSciP86Bx2lMX5LGNb86xjDp6nyXhbdm3rs9PaY0ARkcHjFi7hWGTidDcGzMElTkihXtYagzxTksWxnBVQb3JpQ5MeIYWW9MbidhiL9lIb7x-PsdDm2dW-oEpliGVqRS5oA2CinakCc/s1600/mode_1.jpg" -->Olivier VBAhttp://www.blogger.com/profile/01518798078822033158noreply@blogger.com0tag:blogger.com,1999:blog-3257543995828262470.post-68208526738092289472014-05-06T18:17:00.000+02:002014-05-06T18:17:12.655+02:00Le rendement d'un livret <br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiTlDPNoRgA4EzlbaRsBbxjwlZLy8Xj-EXwjXfjuh6BAyqjti4xAgKWqVcJ38EPl1_IpltSVcfDxLluSHDirdbrveUEykNe7LtI09_2fntSb5d9XybSqT9fmVjNTa5FAQFHGYyD2Clvbz8/s1600/pourcentage.jpg" imageanchor="1" style="clear: right; float: right; margin-bottom: 1em; margin-left: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiTlDPNoRgA4EzlbaRsBbxjwlZLy8Xj-EXwjXfjuh6BAyqjti4xAgKWqVcJ38EPl1_IpltSVcfDxLluSHDirdbrveUEykNe7LtI09_2fntSb5d9XybSqT9fmVjNTa5FAQFHGYyD2Clvbz8/s1600/pourcentage.jpg" /></a></div>
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiCZeVMC_qp5D5h0DTfD6LFoR-u8CZQr6Q43wE_M7JWSyFB5tAlkQnZBpRu69D0QvneO9AHEdrHbQ3g0azzNTyNQCJzukSsTtbiFqwNuEdNFZ-9WrY1yNrHiyjco3PvU8ezlaoxccKmMgI/s1600/pourcentage.jpg" imageanchor="1" style="clear: right; float: right; margin-bottom: 1em; margin-left: 1em;"><br /></a><br />
<span style="font-family: Georgia,"Times New Roman",serif;"><span style="font-size: small;">Voici une vidéo à destination de tous les débutants, il s'agit à travers un exemple très simple (<a href="http://www.linternaute.com/argent/epargne/conseil/comment-sont-calcules-les-interets-sur-les-livrets-d-epargne.shtml" target="_blank">le calcul du rendement d'un livret</a>) de manipuler les notions de <b>références relatives, absolues et mixtes</b>.</span></span><br />
<br />
<br />
<br />
<iframe allowfullscreen="" frameborder="0" height="270" src="//www.dailymotion.com/embed/video/xh0a3l?info=0" width="480"></iframe><br />
<br />
<br />
<br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Bonne consultaion....</span></span><br />
<br />
<br />
<br />
<br />
Olivier VBAhttp://www.blogger.com/profile/01518798078822033158noreply@blogger.com0tag:blogger.com,1999:blog-3257543995828262470.post-90668210919541489272014-04-14T16:19:00.002+02:002014-04-14T16:19:12.708+02:00Créer un histogramme - Suite et fin<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiQjtHNw5uMAoYxjIC5cNFXV96pTe0rRYlvKBsw_jo8TuanlZgpJxwu7ivwAiD-9tNnTVKsN8lJiyJBrG_6535l9YEI_4WLju8RALTtFrNyefqjj-ggzloYliFQj-n3GJK6IBoSIE4idrU/s1600/logo.jpg" imageanchor="1" style="clear: right; float: right; margin-bottom: 1em; margin-left: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiQjtHNw5uMAoYxjIC5cNFXV96pTe0rRYlvKBsw_jo8TuanlZgpJxwu7ivwAiD-9tNnTVKsN8lJiyJBrG_6535l9YEI_4WLju8RALTtFrNyefqjj-ggzloYliFQj-n3GJK6IBoSIE4idrU/s1600/logo.jpg" /></a><span style="font-family: Georgia,"Times New Roman",serif;">Poursuivons nos efforts pour tracer le plus facilement possible des <b>histogrammes </b>dans <b>Excel</b>. Cette semaine je voudrai lancer un concours de <b>formule </b>! Qu'elle est la <b>formule </b>la plus simple pour extraire les bornes supérieures et inférieurs des classes de valeurs. Effectivement les valeurs groupées par classes étant dans le <b>tableur </b>des <b>chaînes de textes</b> elles ne sont pas directement exploitables. Dans le tableau 1, j'ai réalisé l'extraction de ces bornes grâce à une <b>formule </b>de traitement de la <b>chaîne</b>. auriez vous mieux à proposer ?</span><br />
<span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span> <span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span> <span style="font-family: Georgia,"Times New Roman",serif;"> </span><span style="font-family: Georgia,"Times New Roman",serif;"> </span><br />
<table border="1" cellpadding="0" cellspacing="0" style="width: 318px;"><colgroup><col style="mso-width-alt: 2673; mso-width-source: userset; width: 71pt;" width="94"></col></colgroup><colgroup><col span="2" style="mso-width-alt: 2104; mso-width-source: userset; width: 56pt;" width="74"></col></colgroup><colgroup><col style="mso-width-alt: 2161; mso-width-source: userset; width: 57pt;" width="76"></col> </colgroup><tbody>
<tr height="21" style="height: 15.75pt;"> <td class="xl75" colspan="4" height="21" style="border-right: 1.0pt solid black; height: 15.75pt; width: 240pt;" width="318"><b><span style="font-family: Georgia,"Times New Roman",serif;">Tableau 1</span></b></td> </tr>
<tr height="21" style="height: 15.75pt;"> <td class="xl72" height="21" style="border-top: medium none; height: 15.75pt; text-align: center;"><i><span style="font-family: Georgia,"Times New Roman",serif;">Classes</span></i></td> <td class="xl73" style="border-left: medium none; border-top: medium none; text-align: center;"><i><span style="font-family: Georgia,"Times New Roman",serif;">Borne Inf.</span></i></td> <td class="xl73" style="border-left: medium none; border-top: medium none; text-align: center;"><i><span style="font-family: Georgia,"Times New Roman",serif;">Borne Sup.</span></i></td> <td class="xl74" style="border-left: medium none; border-top: medium none; text-align: center;"><i><span style="font-family: Georgia,"Times New Roman",serif;">Effectifs</span></i></td> </tr>
<tr height="20" style="height: 15.0pt;"> <td class="xl69" height="20" style="height: 15.0pt;"><span style="font-family: Georgia,"Times New Roman",serif;">[1300-1400[</span></td> <td class="xl70" style="border-left: none;"><span style="font-family: Georgia,"Times New Roman",serif;"><span style="mso-spacerun: yes;"> </span>1 300<span style="mso-spacerun: yes;"> </span></span></td> <td class="xl70" style="border-left: none;"><span style="color: red;"><span style="font-family: Georgia,"Times New Roman",serif;"><span style="mso-spacerun: yes;"> <b> </b></span><b>1 400</b><span style="mso-spacerun: yes;"><b> </b> </span></span></span></td> <td align="right" class="xl71" style="border-left: none;"><span style="font-family: Georgia,"Times New Roman",serif;">10</span></td> </tr>
<tr height="20" style="height: 15.0pt;"> <td class="xl64" height="20" style="border-top: none; height: 15.0pt;"><span style="font-family: Georgia,"Times New Roman",serif;">[1400-1500[</span></td> <td class="xl63" style="border-left: none; border-top: none;"><span style="font-family: Georgia,"Times New Roman",serif;"><span style="mso-spacerun: yes;"> </span>1 400<span style="mso-spacerun: yes;"> </span></span></td> <td class="xl63" style="border-left: none; border-top: none;"><span style="font-family: Georgia,"Times New Roman",serif;"><span style="mso-spacerun: yes;"> </span>1 500<span style="mso-spacerun: yes;"> </span></span></td> <td align="right" class="xl65" style="border-left: none; border-top: none;"><span style="font-family: Georgia,"Times New Roman",serif;">12</span></td> </tr>
<tr height="20" style="height: 15.0pt;"> <td class="xl64" height="20" style="border-top: none; height: 15.0pt;"><span style="font-family: Georgia,"Times New Roman",serif;">[1500-1600[</span></td> <td class="xl63" style="border-left: none; border-top: none;"><span style="font-family: Georgia,"Times New Roman",serif;"><span style="mso-spacerun: yes;"> </span>1 500<span style="mso-spacerun: yes;"> </span></span></td> <td class="xl63" style="border-left: none; border-top: none;"><span style="font-family: Georgia,"Times New Roman",serif;"><span style="mso-spacerun: yes;"> </span>1 600<span style="mso-spacerun: yes;"> </span></span></td> <td align="right" class="xl65" style="border-left: none; border-top: none;"><span style="font-family: Georgia,"Times New Roman",serif;">7</span></td> </tr>
<tr height="20" style="height: 15.0pt;"> <td class="xl64" height="20" style="border-top: none; height: 15.0pt;"><span style="font-family: Georgia,"Times New Roman",serif;">[1700-1800[</span></td> <td class="xl63" style="border-left: none; border-top: none;"><span style="font-family: Georgia,"Times New Roman",serif;"><span style="mso-spacerun: yes;"> </span>1 700<span style="mso-spacerun: yes;"> </span></span></td> <td class="xl63" style="border-left: none; border-top: none;"><span style="font-family: Georgia,"Times New Roman",serif;"><span style="mso-spacerun: yes;"> </span>1 800<span style="mso-spacerun: yes;"> </span></span></td> <td align="right" class="xl65" style="border-left: none; border-top: none;"><span style="font-family: Georgia,"Times New Roman",serif;">3</span></td> </tr>
<tr height="21" style="height: 15.75pt;"> <td class="xl66" height="21" style="border-top: none; height: 15.75pt;"><span style="font-family: Georgia,"Times New Roman",serif;">[1800-1900]</span></td> <td class="xl67" style="border-left: none; border-top: none;"><span style="font-family: Georgia,"Times New Roman",serif;"><span style="mso-spacerun: yes;"> </span>1 800<span style="mso-spacerun: yes;"> </span></span></td> <td class="xl67" style="border-left: none; border-top: none;"><span style="font-family: Georgia,"Times New Roman",serif;"><span style="mso-spacerun: yes;"> </span>1 900<span style="mso-spacerun: yes;"> </span></span></td> <td align="right" class="xl68" style="border-left: none; border-top: none;"><span style="font-family: Georgia,"Times New Roman",serif;">13</span></td> </tr>
</tbody></table>
<span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span> <br />
<div style="text-align: center;">
<span style="color: red;"><b><span style="font-family: Georgia,"Times New Roman",serif;"> =CNUM(GAUCHE(DROITE(A5;(NBCAR(A5)-CHERCHE("-";A5;1)));NBCAR(DROITE(A5;(NBCAR(A5)-CHERCHE("-";A5;1))))-1))</span></b></span></div>
<div style="text-align: center;">
<br /></div>
<div style="text-align: left;">
<span style="color: red;"><span style="font-family: Georgia,"Times New Roman",serif;"><span style="color: black;">Voici la formule magique que j'ai entré ici dans la cellule c5, passons sur la fonction <b>cnum()</b> qui me permet simplement de m'assurer que ma valeur finale est bien un nombre et pas un libellé. Le point commun étant le séparateur de valeur, ici "-" j'ai cherché sa position grâce à la fonction <b>cherche()</b> puis j'ai extrait tous les caractères placées à droite de cette position. Le nombre de caractère placé à droite du séparateur, m'étant inconnue je l'ai soustrait à la longueur totale de la chaîne grâce à la fonction <b>nbcar()</b>. Jusque là, la manipulation est tout ce qu'il y a de plus classique.</span></span></span></div>
<div style="text-align: left;">
<span style="color: red;"><span style="font-family: Georgia,"Times New Roman",serif;"><span style="color: black;"> </span></span><b><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></b></span></div>
<div style="text-align: center;">
<span style="font-family: Georgia,"Times New Roman",serif;"> <b>=DROITE(A5;(NBCAR(A5)-CHERCHE("-";A5;1)))</b> = <b><span style="color: red;">1400[</span></b></span></div>
<span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span> <span style="font-family: Georgia,"Times New Roman",serif;">Il reste donc à extraire le dernier caractère de cette chaîne, quelque puisse être ce caractère. en fait nous allons raisonner à l'envers en extrayant tous les caractéres placés à gauche de ce dernier caractére.</span><br />
<b><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></b> <br />
<div style="text-align: center;">
<span style="font-family: Georgia,"Times New Roman",serif;"><b>=GAUCHE(A5;NBCAR(A5)-1)</b> = <span style="color: red;"><b>1400</b></span></span></div>
<span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span> <span style="font-family: Georgia,"Times New Roman",serif;">Il reste alors assez logiquement à positionner la première partie de la formule à la place des A5 de la seconde formule. Pour une extraction de borne inférieure, nous nous contenterons d’inverser le raisonnement : </span><br />
<span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span> <br />
<div style="text-align: center;">
<span style="font-family: Georgia,"Times New Roman",serif;"><span style="color: red;"><b>=CNUM(DROITE(GAUCHE(A5;CHERCHE("-";A5;1)-1);NBCAR(GAUCHE(A5;CHERCHE("-";A5;1)-1))-1))</b></span></span></div>
<span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span> <br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEijQJ0pZEYDiVyd9Vanlq-L7uuXDT_ngaJvFAqpr4VXfOkA3pb-ky6v95WiY-194oF225PpCxNzUdIfBJWBeKSrmIeoaEvkCBunCFmlyrp6_9IlBipLPc5-KkEdUSdky2-BCqeqaneJGzY/s1600/graph1.jpg" imageanchor="1" style="clear: right; float: right; margin-bottom: 1em; margin-left: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEijQJ0pZEYDiVyd9Vanlq-L7uuXDT_ngaJvFAqpr4VXfOkA3pb-ky6v95WiY-194oF225PpCxNzUdIfBJWBeKSrmIeoaEvkCBunCFmlyrp6_9IlBipLPc5-KkEdUSdky2-BCqeqaneJGzY/s1600/graph1.jpg" height="193" width="320" /></a><span style="font-family: Georgia,"Times New Roman",serif;">Nous pouvons maintenant passer au graphique, pour cela j'ai du créer un nouveau tableau prenant en compte les bornes supérieurs et les effectifs. Toutefois vous pouvez noter la particularité de la première ligne ou il est rappelé la borne inférieur de la première classe de valeurs, car cette dernière n'étant pas nul elle n'apparaitrait pas dans le graphique.</span><br />
<span style="font-family: Georgia,"Times New Roman",serif;">Resta alors l'afichage de cette première valeur grâce au menu contextuel de l'axe des abscisses . <b>Mise en forme de l'axe / Options d'axes / Intersections de l'axe vertical / au numéro de catégorie </b>: (mettre alors la valeur 2 (0 étant considéré comme la première)). </span><br />
<br />
<table border="1" cellpadding="0" cellspacing="0" style="width: 150px;"><colgroup><col style="mso-width-alt: 2104; mso-width-source: userset; width: 56pt;" width="74"></col> <col style="mso-width-alt: 2161; mso-width-source: userset; width: 57pt;" width="76"></col> </colgroup><tbody>
<tr height="21" style="height: 15.75pt;"> <td class="xl71" colspan="2" height="21" style="border-right: 1pt solid black; height: 15.75pt; text-align: center; width: 113pt;" width="150"><b>Tableau 2</b></td> </tr>
<tr height="21" style="height: 15.75pt;"> <td class="xl66" height="21" style="border-top: medium none; height: 15.75pt; text-align: center;"><i>Borne Sup.</i></td> <td class="xl67" style="border-left: medium none; border-top: medium none; text-align: center;"><i>Effectifs</i></td> </tr>
<tr height="21" style="height: 15.75pt;"> <td class="xl70" height="21" style="height: 15.75pt;"><span style="mso-spacerun: yes;"> <span style="color: red;"><b> </b></span></span><span style="color: red;"><b>1 300</b></span><span style="mso-spacerun: yes;"><span style="color: red;"><b> </b></span> </span></td> <td class="xl65" style="border-left: none;"></td> </tr>
<tr height="20" style="height: 15.0pt;"> <td class="xl68" height="20" style="border-top: none; height: 15.0pt;"><span style="mso-spacerun: yes;"> </span>1 400<span style="mso-spacerun: yes;"> </span></td> <td align="right" class="xl63" style="border-left: none; border-top: none;">10</td> </tr>
<tr height="20" style="height: 15.0pt;"> <td class="xl68" height="20" style="border-top: none; height: 15.0pt;"><span style="mso-spacerun: yes;"> </span>1 500<span style="mso-spacerun: yes;"> </span></td> <td align="right" class="xl63" style="border-left: none; border-top: none;">12</td> </tr>
<tr height="20" style="height: 15.0pt;"> <td class="xl68" height="20" style="border-top: none; height: 15.0pt;"><span style="mso-spacerun: yes;"> </span>1 600<span style="mso-spacerun: yes;"> </span></td> <td align="right" class="xl63" style="border-left: none; border-top: none;">7</td> </tr>
<tr height="20" style="height: 15.0pt;"> <td class="xl68" height="20" style="border-top: none; height: 15.0pt;"><span style="mso-spacerun: yes;"> </span>1 800<span style="mso-spacerun: yes;"> </span></td> <td align="right" class="xl63" style="border-left: none; border-top: none;">3</td> </tr>
<tr height="21" style="height: 15.75pt;"> <td class="xl69" height="21" style="border-top: none; height: 15.75pt;"><span style="mso-spacerun: yes;"> </span>1 900<span style="mso-spacerun: yes;"> </span></td> <td align="right" class="xl64" style="border-left: none; border-top: none;">13</td> </tr>
</tbody></table>
<br />
<span style="font-family: Georgia,"Times New Roman",serif;">Appliquons maintenant tous cela de maniére identique à des classes dont les amplitudes sont inégales. (Tableau 3). La récupération des bornes permettra le calcul de la fréquence (f<sub>i</sub>), de l'amplitude (a<sub>i</sub> = (</span><span style="font-family: Georgia,"Times New Roman",serif;"><span style="font-family: Georgia,"Times New Roman",serif;">borne Sup - Born Inf )</span>), du centre de casse (c<sub>i</sub> = (borne Sup + Born Inf ) /2) et de l'amplitude corrigée (h<sub>i</sub> = fi / ai).</span><br />
<br />
<span style="font-family: Georgia,"Times New Roman",serif;"> </span><br />
<table border="1" cellpadding="0" cellspacing="0" style="width: 696px;"><colgroup><col style="mso-width-alt: 3214; mso-width-source: userset; width: 85pt;" width="113"></col> <col style="mso-width-alt: 2474; mso-width-source: userset; width: 65pt;" width="87"></col> <col style="mso-width-alt: 2190; mso-width-source: userset; width: 58pt;" width="77"></col> <col style="mso-width-alt: 1194; mso-width-source: userset; width: 32pt;" width="42"></col> <col style="mso-width-alt: 2446; mso-width-source: userset; width: 65pt;" width="86"></col> <col style="mso-width-alt: 2133; mso-width-source: userset; width: 56pt;" width="75"></col> <col span="2" style="mso-width-alt: 3072; mso-width-source: userset; width: 81pt;" width="108"></col> </colgroup><tbody>
<tr height="24" style="height: 18.0pt;"> <td class="xl65" height="24" style="height: 18.0pt; width: 85pt;" width="113"><b>Tableau 3</b></td> <td class="xl66" style="border-left: none; width: 65pt;" width="87"></td> <td class="xl66" style="border-left: none; width: 58pt;" width="77"></td> <td class="xl66" style="border-left: none; width: 32pt;" width="42"></td> <td class="xl66" style="border-left: none; width: 65pt;" width="86"></td> <td class="xl66" style="border-left: none; width: 56pt;" width="75"></td> <td class="xl66" style="border-left: none; width: 81pt;" width="108"></td> <td class="xl67" style="border-left: none; width: 81pt;" width="108"></td> </tr>
<tr height="28" style="height: 21.0pt;"> <td class="xl68" height="28" style="border-top: medium none; height: 21pt; text-align: center;"><i>Classes</i></td> <td class="xl69" style="border-left: medium none; border-top: medium none; text-align: center;"><i>Borne Inf.</i></td> <td class="xl69" style="border-left: medium none; border-top: medium none; text-align: center;"><i>Borne Sup.</i></td> <td class="xl69" style="border-left: medium none; border-top: medium none; text-align: center;"><i>n<span class="font5"><sub>i</sub></span></i></td> <td class="xl69" style="border-left: medium none; border-top: medium none; text-align: center;"><i>c<span class="font5"><sub>i</sub></span></i></td> <td class="xl69" style="border-left: medium none; border-top: medium none; text-align: center;"><i>a<span class="font5"><sub>i</sub></span></i></td> <td class="xl69" style="border-left: medium none; border-top: medium none; text-align: center;"><i>f<span class="font5"><sub>i</sub></span></i></td> <td class="xl70" style="border-left: medium none; border-top: medium none; text-align: center;"><i>h<span class="font5"><sub>i</sub></span></i></td> </tr>
<tr height="24" style="height: 18.0pt;"> <td class="xl71" height="24" style="height: 18.0pt;">[1100-1400[</td> <td class="xl78" style="border-left: none;"><span style="mso-spacerun: yes;"> </span>1100<span style="mso-spacerun: yes;"> </span></td> <td class="xl78" style="border-left: none;"><span style="mso-spacerun: yes;"> </span>1400<span style="mso-spacerun: yes;"> </span></td> <td align="right" class="xl72" style="border-left: none;">12</td> <td class="xl81" style="border-left: none;"><span style="color: red;"><span style="mso-spacerun: yes;"> </span>1 250<span style="mso-spacerun: yes;"> </span></span></td> <td class="xl81" style="border-left: none;"><span style="color: red;"><span style="mso-spacerun: yes;"> </span>300<span style="mso-spacerun: yes;"> </span></span></td> <td class="xl78" style="border-left: none;"><span style="color: red;"><span style="mso-spacerun: yes;"> </span>0,25<span style="mso-spacerun: yes;"> </span></span></td> <td class="xl82" style="border-left: none;"><span style="color: red;"><span style="mso-spacerun: yes;"> </span>0,00083<span style="mso-spacerun: yes;"> </span></span></td> </tr>
<tr height="24" style="height: 18.0pt;"> <td class="xl73" height="24" style="border-top: none; height: 18.0pt;">[1400-1500[</td> <td class="xl79" style="border-left: none; border-top: none;"><span style="mso-spacerun: yes;"> </span>1400<span style="mso-spacerun: yes;"> </span></td> <td class="xl79" style="border-left: none; border-top: none;"><span style="mso-spacerun: yes;"> </span>1500<span style="mso-spacerun: yes;"> </span></td> <td align="right" class="xl74" style="border-left: none; border-top: none;">12</td> <td class="xl83" style="border-left: none; border-top: none;"><span style="color: red;"><span style="mso-spacerun: yes;"> </span>1 450<span style="mso-spacerun: yes;"> </span></span></td> <td class="xl83" style="border-left: none; border-top: none;"><span style="color: red;"><span style="mso-spacerun: yes;"> </span>100<span style="mso-spacerun: yes;"> </span></span></td> <td class="xl79" style="border-left: none; border-top: none;"><span style="color: red;"><span style="mso-spacerun: yes;"> </span>0,25<span style="mso-spacerun: yes;"> </span></span></td> <td class="xl84" style="border-left: none; border-top: none;"><span style="color: red;"><span style="mso-spacerun: yes;"> </span>0,00250<span style="mso-spacerun: yes;"> </span></span></td> </tr>
<tr height="24" style="height: 18.0pt;"> <td class="xl73" height="24" style="border-top: none; height: 18.0pt;">[1500-1600[</td> <td class="xl79" style="border-left: none; border-top: none;"><span style="mso-spacerun: yes;"> </span>1500<span style="mso-spacerun: yes;"> </span></td> <td class="xl79" style="border-left: none; border-top: none;"><span style="mso-spacerun: yes;"> </span>1600<span style="mso-spacerun: yes;"> </span></td> <td align="right" class="xl74" style="border-left: none; border-top: none;">7</td> <td class="xl83" style="border-left: none; border-top: none;"><span style="color: red;"><span style="mso-spacerun: yes;"> </span>1 550<span style="mso-spacerun: yes;"> </span></span></td> <td class="xl83" style="border-left: none; border-top: none;"><span style="color: red;"><span style="mso-spacerun: yes;"> </span>100<span style="mso-spacerun: yes;"> </span></span></td> <td class="xl79" style="border-left: none; border-top: none;"><span style="color: red;"><span style="mso-spacerun: yes;"> </span>0,15<span style="mso-spacerun: yes;"> </span></span></td> <td class="xl84" style="border-left: none; border-top: none;"><span style="color: red;"><span style="mso-spacerun: yes;"> </span>0,00146<span style="mso-spacerun: yes;"> </span></span></td> </tr>
<tr height="24" style="height: 18.0pt;"> <td class="xl73" height="24" style="border-top: none; height: 18.0pt;">[1600-1800[</td> <td class="xl79" style="border-left: none; border-top: none;"><span style="mso-spacerun: yes;"> </span>1600<span style="mso-spacerun: yes;"> </span></td> <td class="xl79" style="border-left: none; border-top: none;"><span style="mso-spacerun: yes;"> </span>1800<span style="mso-spacerun: yes;"> </span></td> <td align="right" class="xl74" style="border-left: none; border-top: none;">4</td> <td class="xl83" style="border-left: none; border-top: none;"><span style="color: red;"><span style="mso-spacerun: yes;"> </span>1 700<span style="mso-spacerun: yes;"> </span></span></td> <td class="xl83" style="border-left: none; border-top: none;"><span style="color: red;"><span style="mso-spacerun: yes;"> </span>200<span style="mso-spacerun: yes;"> </span></span></td> <td class="xl79" style="border-left: none; border-top: none;"><span style="color: red;"><span style="mso-spacerun: yes;"> </span>0,08<span style="mso-spacerun: yes;"> </span></span></td> <td class="xl84" style="border-left: none; border-top: none;"><span style="color: red;"><span style="mso-spacerun: yes;"> </span>0,00042<span style="mso-spacerun: yes;"> </span></span></td> </tr>
<tr height="24" style="height: 18.0pt;"> <td class="xl73" height="24" style="border-top: none; height: 18.0pt;">[1800-2000]</td> <td class="xl79" style="border-left: none; border-top: none;"><span style="mso-spacerun: yes;"> </span>1800<span style="mso-spacerun: yes;"> </span></td> <td class="xl79" style="border-left: none; border-top: none;"><span style="mso-spacerun: yes;"> </span>2000<span style="mso-spacerun: yes;"> </span></td> <td align="right" class="xl74" style="border-left: none; border-top: none;">13</td> <td class="xl83" style="border-left: none; border-top: none;"><span style="color: red;"><span style="mso-spacerun: yes;"> </span>1 900<span style="mso-spacerun: yes;"> </span></span></td> <td class="xl83" style="border-left: none; border-top: none;"><span style="color: red;"><span style="mso-spacerun: yes;"> </span>200<span style="mso-spacerun: yes;"> </span></span></td> <td class="xl79" style="border-left: none; border-top: none;"><span style="color: red;"><span style="mso-spacerun: yes;"> </span>0,27<span style="mso-spacerun: yes;"> </span></span></td> <td class="xl84" style="border-left: none; border-top: none;"><span style="color: red;"><span style="mso-spacerun: yes;"> </span>0,00135<span style="mso-spacerun: yes;"> </span></span></td> </tr>
<tr height="25" style="height: 18.75pt;"> <td class="xl75" height="25" style="border-top: none; height: 18.75pt;"></td> <td class="xl76" style="border-left: none; border-top: none;"></td> <td class="xl76" style="border-left: none; border-top: none;">Total :<span style="mso-spacerun: yes;"> </span></td> <td align="right" class="xl80" style="border-left: none; border-top: none;"><span style="color: red;">48</span></td> <td class="xl76" style="border-left: none; border-top: none;"></td> <td class="xl76" style="border-left: none; border-top: none;"></td> <td class="xl80" style="border-left: medium none; border-top: medium none; text-align: center;"><span style="color: red;">1</span></td> <td class="xl77" style="border-left: none; border-top: none;"></td> </tr>
</tbody></table>
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhzvudcosgtSmKxZ1KMNHN4XsrjILgMAEE_cmgwukcbhN5ISzfefOAJi9Er3iG9d2yF8Oczl3oLbWP_vgB79yxS6BnxYJhdUOpZyrDPV0h4w3gLUX-0Y3bKt_KzbhGxfXZsYgMBiNOxuow/s1600/graph2.jpg" imageanchor="1" style="clear: right; float: right; margin-bottom: 1em; margin-left: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhzvudcosgtSmKxZ1KMNHN4XsrjILgMAEE_cmgwukcbhN5ISzfefOAJi9Er3iG9d2yF8Oczl3oLbWP_vgB79yxS6BnxYJhdUOpZyrDPV0h4w3gLUX-0Y3bKt_KzbhGxfXZsYgMBiNOxuow/s1600/graph2.jpg" height="150" width="320" /></a>Mais pour tracer le graphique nous devrons appliquer l'astuce de <a href="http://olivier-bureautique.blogspot.fr/2014/04/creer-un-histogramme-un-vrai.html">l'article précédent</a>. Génération d'un nouveau tableau (Tableau 4) en classes d'amplitude égales avec évaluation des n<sub>i</sub> réparties dans ces classes.<br />
<br />
<br />
<br />
<table border="1" cellpadding="0" cellspacing="0" style="width: 588px;"><colgroup><col style="mso-width-alt: 3214; mso-width-source: userset; width: 85pt;" width="113"></col> <col style="mso-width-alt: 2474; mso-width-source: userset; width: 65pt;" width="87"></col> <col style="mso-width-alt: 2190; mso-width-source: userset; width: 58pt;" width="77"></col> <col style="mso-width-alt: 1194; mso-width-source: userset; width: 32pt;" width="42"></col> <col style="mso-width-alt: 2446; mso-width-source: userset; width: 65pt;" width="86"></col> <col style="mso-width-alt: 2133; mso-width-source: userset; width: 56pt;" width="75"></col> <col style="mso-width-alt: 3072; mso-width-source: userset; width: 81pt;" width="108"></col> </colgroup><tbody>
<tr height="28" style="height: 21.0pt;"> <td class="xl71" height="28" style="height: 21pt; text-align: center; width: 85pt;" width="113"><b>Tableau 4</b></td> <td class="xl72" style="border-left: none; width: 65pt;" width="87"></td> <td class="xl73" style="border-left: medium none; text-align: center; width: 58pt;" width="77"><i>Borne Sup.</i></td> <td class="xl73" style="border-left: medium none; text-align: center; width: 32pt;" width="42"><i>n<span class="font5"><sub>i</sub></span></i></td> <td class="xl73" style="border-left: medium none; text-align: center; width: 65pt;" width="86"><i>a<span class="font5"><sub>i</sub></span></i></td> <td class="xl73" style="border-left: medium none; text-align: center; width: 56pt;" width="75"><i>f<span class="font5"><sub>i</sub></span></i></td> <td class="xl74" style="border-left: medium none; text-align: center; width: 81pt;" width="108"><i>h<span class="font5"><sub>i</sub></span></i></td> </tr>
<tr height="24" style="height: 18.0pt;"> <td class="xl65" height="24" style="height: 18.0pt;"></td> <td class="xl66" style="border-left: none;"></td> <td class="xl81" style="border-left: none;"><b><span style="color: red;"><span style="mso-spacerun: yes;"> </span>1100<span style="mso-spacerun: yes;"> </span></span></b></td> <td class="xl66" style="border-left: none;"></td> <td class="xl66" style="border-left: none;"></td> <td class="xl66" style="border-left: none;"></td> <td class="xl75" style="border-left: none;"></td> </tr>
<tr height="24" style="height: 18.0pt;"> <td class="xl67" height="24" style="border-top: none; height: 18.0pt;">[1100-1200[</td> <td class="xl79" style="border-left: none; border-top: none;"><span style="mso-spacerun: yes;"> </span>1100<span style="mso-spacerun: yes;"> </span></td> <td class="xl79" style="border-left: none; border-top: none;"></td> <td class="xl76" style="border-left: none; border-top: none;">4</td> <td class="xl77" style="border-left: none; border-top: none;">100</td> <td class="xl79" style="border-left: none; border-top: none;"><span style="color: red;"><span style="mso-spacerun: yes;"> </span>0,08<span style="mso-spacerun: yes;"> </span></span></td> <td class="xl82" style="border-left: none; border-top: none;"><span style="color: red;"><span style="mso-spacerun: yes;"> </span>0,00083<span style="mso-spacerun: yes;"> </span></span></td> </tr>
<tr height="24" style="height: 18.0pt;"> <td class="xl67" height="24" style="border-top: none; height: 18.0pt;">[1200-1300[</td> <td class="xl79" style="border-left: none; border-top: none;"><span style="mso-spacerun: yes;"> </span>1200<span style="mso-spacerun: yes;"> </span></td> <td class="xl79" style="border-left: none; border-top: none;"></td> <td class="xl76" style="border-left: none; border-top: none;">4</td> <td class="xl78" style="border-left: none; border-top: none;"></td> <td class="xl79" style="border-left: none; border-top: none;"><span style="color: red;"><span style="mso-spacerun: yes;"> </span>0,08<span style="mso-spacerun: yes;"> </span></span></td> <td class="xl82" style="border-left: none; border-top: none;"><span style="color: red;"><span style="mso-spacerun: yes;"> </span>0,00083<span style="mso-spacerun: yes;"> </span></span></td> </tr>
<tr height="24" style="height: 18.0pt;"> <td class="xl67" height="24" style="border-top: none; height: 18.0pt;">[1300-1400[</td> <td class="xl79" style="border-left: none; border-top: none;"><span style="mso-spacerun: yes;"> </span>1300<span style="mso-spacerun: yes;"> </span></td> <td class="xl79" style="border-left: none; border-top: none;"><span style="mso-spacerun: yes;"> </span>1400<span style="mso-spacerun: yes;"> </span></td> <td class="xl76" style="border-left: none; border-top: none;">4</td> <td class="xl78" style="border-left: none; border-top: none;"></td> <td class="xl79" style="border-left: none; border-top: none;"><span style="color: red;"><span style="mso-spacerun: yes;"> </span>0,08<span style="mso-spacerun: yes;"> </span></span></td> <td class="xl82" style="border-left: none; border-top: none;"><span style="color: red;"><span style="mso-spacerun: yes;"> </span>0,00083<span style="mso-spacerun: yes;"> </span></span></td> </tr>
<tr height="24" style="height: 18.0pt;"> <td class="xl67" height="24" style="border-top: none; height: 18.0pt;">[1400-1500[</td> <td class="xl79" style="border-left: none; border-top: none;"><span style="mso-spacerun: yes;"> </span>1400<span style="mso-spacerun: yes;"> </span></td> <td class="xl79" style="border-left: none; border-top: none;"><span style="mso-spacerun: yes;"> </span>1500<span style="mso-spacerun: yes;"> </span></td> <td class="xl76" style="border-left: none; border-top: none;">12</td> <td class="xl78" style="border-left: none; border-top: none;"></td> <td class="xl79" style="border-left: none; border-top: none;"><span style="color: red;"><span style="mso-spacerun: yes;"> </span>0,25<span style="mso-spacerun: yes;"> </span></span></td> <td class="xl82" style="border-left: none; border-top: none;"><span style="color: red;"><span style="mso-spacerun: yes;"> </span>0,00250<span style="mso-spacerun: yes;"> </span></span></td> </tr>
<tr height="24" style="height: 18.0pt;"> <td class="xl67" height="24" style="border-top: none; height: 18.0pt;">[1500-1600[</td> <td class="xl79" style="border-left: none; border-top: none;"><span style="mso-spacerun: yes;"> </span>1500<span style="mso-spacerun: yes;"> </span></td> <td class="xl79" style="border-left: none; border-top: none;"><span style="mso-spacerun: yes;"> </span>1600<span style="mso-spacerun: yes;"> </span></td> <td class="xl76" style="border-left: none; border-top: none;">7</td> <td class="xl78" style="border-left: none; border-top: none;"></td> <td class="xl79" style="border-left: none; border-top: none;"><span style="color: red;"><span style="mso-spacerun: yes;"> </span>0,15<span style="mso-spacerun: yes;"> </span></span></td> <td class="xl82" style="border-left: none; border-top: none;"><span style="color: red;"><span style="mso-spacerun: yes;"> </span>0,00146<span style="mso-spacerun: yes;"> </span></span></td> </tr>
<tr height="24" style="height: 18.0pt;"> <td class="xl67" height="24" style="border-top: none; height: 18.0pt;">[1600-1700[</td> <td class="xl79" style="border-left: none; border-top: none;"><span style="mso-spacerun: yes;"> </span>1600<span style="mso-spacerun: yes;"> </span></td> <td class="xl79" style="border-left: none; border-top: none;"></td> <td class="xl76" style="border-left: none; border-top: none;">2</td> <td class="xl78" style="border-left: none; border-top: none;"></td> <td class="xl79" style="border-left: none; border-top: none;"><span style="color: red;"><span style="mso-spacerun: yes;"> </span>0,04<span style="mso-spacerun: yes;"> </span></span></td> <td class="xl82" style="border-left: none; border-top: none;"><span style="color: red;"><span style="mso-spacerun: yes;"> </span>0,00042<span style="mso-spacerun: yes;"> </span></span></td> </tr>
<tr height="24" style="height: 18.0pt;"> <td class="xl67" height="24" style="border-top: none; height: 18.0pt;">[1700-1800[</td> <td class="xl79" style="border-left: none; border-top: none;"><span style="mso-spacerun: yes;"> </span>1700<span style="mso-spacerun: yes;"> </span></td> <td class="xl79" style="border-left: none; border-top: none;"><span style="mso-spacerun: yes;"> </span>1800<span style="mso-spacerun: yes;"> </span></td> <td class="xl76" style="border-left: none; border-top: none;">2</td> <td class="xl78" style="border-left: none; border-top: none;"></td> <td class="xl79" style="border-left: none; border-top: none;"><span style="color: red;"><span style="mso-spacerun: yes;"> </span>0,04<span style="mso-spacerun: yes;"> </span></span></td> <td class="xl82" style="border-left: none; border-top: none;"><span style="color: red;"><span style="mso-spacerun: yes;"> </span>0,00042<span style="mso-spacerun: yes;"> </span></span></td> </tr>
<tr height="24" style="height: 18.0pt;"> <td class="xl67" height="24" style="border-top: none; height: 18.0pt;">[1800-1900[</td> <td class="xl79" style="border-left: none; border-top: none;"><span style="mso-spacerun: yes;"> </span>1800<span style="mso-spacerun: yes;"> </span></td> <td class="xl79" style="border-left: none; border-top: none;"></td> <td class="xl76" style="border-left: none; border-top: none;">6,5</td> <td class="xl78" style="border-left: none; border-top: none;"></td> <td class="xl79" style="border-left: none; border-top: none;"><span style="color: red;"><span style="mso-spacerun: yes;"> </span>0,14<span style="mso-spacerun: yes;"> </span></span></td> <td class="xl82" style="border-left: none; border-top: none;"><span style="color: red;"><span style="mso-spacerun: yes;"> </span>0,00135<span style="mso-spacerun: yes;"> </span></span></td> </tr>
<tr height="24" style="height: 18.0pt;"> <td class="xl67" height="24" style="border-top: none; height: 18.0pt;">[1900-2000]</td> <td class="xl68" style="border-left: none; border-top: none;"><span style="mso-spacerun: yes;"> </span>1900<span style="mso-spacerun: yes;"> </span></td> <td class="xl68" style="border-left: none; border-top: none;"><span style="mso-spacerun: yes;"> </span>2000<span style="mso-spacerun: yes;"> </span></td> <td class="xl76" style="border-left: none; border-top: none;">6,5</td> <td class="xl78" style="border-left: none; border-top: none;"></td> <td class="xl79" style="border-left: none; border-top: none;"><span style="color: red;"><span style="mso-spacerun: yes;"> </span>0,14<span style="mso-spacerun: yes;"> </span></span></td> <td class="xl82" style="border-left: none; border-top: none;"><span style="color: red;"><span style="mso-spacerun: yes;"> </span>0,00135<span style="mso-spacerun: yes;"> </span></span></td> </tr>
<tr height="25" style="height: 18.75pt;"> <td class="xl69" height="25" style="border-top: none; height: 18.75pt;"></td> <td class="xl70" style="border-left: none; border-top: none;"></td> <td class="xl70" style="border-left: none; border-top: none;">Total :<span style="mso-spacerun: yes;"> </span></td> <td align="right" class="xl80" style="border-left: none; border-top: none;"><span style="color: red;">48</span></td> <td class="xl70" style="border-left: none; border-top: none;"></td> <td class="xl84" style="border-left: none; border-top: none;"><span style="color: red;"><span style="mso-spacerun: yes;"> </span>1<span style="mso-spacerun: yes;"> </span></span></td> <td class="xl83" style="border-left: none; border-top: none;"></td> </tr>
</tbody></table>
<br />
<br />
<span style="font-family: Georgia,"Times New Roman",serif;">Merci de votre attention...</span><br />
<br />
<br />
<br />Olivier VBAhttp://www.blogger.com/profile/01518798078822033158noreply@blogger.com0tag:blogger.com,1999:blog-3257543995828262470.post-39707125724574391272014-04-08T13:29:00.002+02:002014-04-08T13:29:42.413+02:00Créer un histogramme, un vrai !<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiHf4laye9sNx9VDo5V5CyF3s_bPO0QLAyS9Biji48wReyfD2vtJrXLXBCs3vOhMcehUidhlKpXIMrxzD_wkEmzFN3jqnOwKqgKzeaJ5L2f8AmOpYsedw9Y_bjSHgHRXUz8zOdgJDor-aM/s1600/logo.jpg" imageanchor="1" style="clear: right; float: right; margin-bottom: 1em; margin-left: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiHf4laye9sNx9VDo5V5CyF3s_bPO0QLAyS9Biji48wReyfD2vtJrXLXBCs3vOhMcehUidhlKpXIMrxzD_wkEmzFN3jqnOwKqgKzeaJ5L2f8AmOpYsedw9Y_bjSHgHRXUz8zOdgJDor-aM/s1600/logo.jpg" /></a></div>
<span style="font-family: Georgia,"Times New Roman",serif;">Créer un <b>histogramme </b>dans <b>Excel</b>, cela semble d'une telle facilité que l'on pourrait ne pas percevoir l’intérêt de rédiger un article sur un tel sujet. Pourtant, les <b>graphiques </b>que nous désignions généralement sous le terme générique d'<b>histogramme </b>sont en réalité des <b>diagrammes </b>en <b>bâtons </b>ou en <b>barres</b> verticales.</span><br />
<span style="font-family: Georgia,"Times New Roman",serif;">L'<b>histogramme </b>convient à l'étude des variables quantitatives quand celle-ci sont regroupées par classes. Alors comment créer un véritable <a href="http://fr.wikipedia.org/wiki/Histogramme" target="_blank">histogramme au sens statistique</a> du terme, deux problèmes vont venir se greffer :</span><br />
<ol>
<li><span style="font-family: Georgia,"Times New Roman",serif;">Excel considère les données de l'axe des abscisses comme des libellés et pas des valeurs (à l’exception du <b>graphique en nuage de points</b>)</span></li>
<li><span style="font-family: Georgia,"Times New Roman",serif;">Les classes sur lesquels vous travaillez sont elles d'amplitudes égales ou inégales ?</span></li>
</ol>
<span style="font-family: Georgia,"Times New Roman",serif;"><b>Amplitude de classe égales :</b> Considérons le tableau 1, donnant répartition des salaires de 100 personnes par classe de 1500 €.</span><br />
<span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span> <span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span> <br />
<table border="1" cellpadding="0" cellspacing="0" style="width: 396px;"><colgroup><col span="4" style="mso-width-alt: 2816; mso-width-source: userset; width: 74pt;" width="99"></col> </colgroup><tbody>
<tr height="21" style="height: 15.75pt;"> <td class="xl67" height="21" style="height: 15.75pt; width: 74pt;" width="99"><span style="font-family: Georgia,"Times New Roman",serif;"><b>Tableau 1</b></span></td> <td style="width: 74pt;" width="99"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></td> <td style="width: 74pt;" width="99"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></td> <td style="width: 74pt;" width="99"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></td> </tr>
<tr height="31" style="height: 23.25pt;"> <td class="xl74" height="31" style="height: 23.25pt; width: 74pt;" width="99"><br /></td> <td class="xl75" style="border-left: none; width: 74pt;" width="99"><br /></td> <td class="xl63" style="border-left: medium none; text-align: center;"><span style="font-family: Georgia,"Times New Roman",serif;"><b>n<span class="font5"><sub>i</sub></span></b></span></td> <td class="xl64" style="border-left: medium none; text-align: center;"><span style="font-family: Georgia,"Times New Roman",serif;"><b>f<span class="font5"><sub>i</sub></span></b></span></td> </tr>
<tr height="20" style="height: 15.0pt;"> <td class="xl69" height="20" style="border-top: none; height: 15.0pt;"><span style="font-family: Georgia,"Times New Roman",serif;">[0;1500[</span></td> <td class="xl68" style="border-left: medium none; border-top: medium none; text-align: right;"><span style="font-family: Georgia,"Times New Roman",serif;">1500</span></td> <td class="xl72" style="border-left: medium none; border-top: medium none; text-align: right;"><span style="font-family: Georgia,"Times New Roman",serif;">20</span></td> <td class="xl73" style="border-left: medium none; border-top: medium none; text-align: right;"><span style="font-family: Georgia,"Times New Roman",serif;"><span style="color: red;">0,2</span></span></td> </tr>
<tr height="20" style="height: 15.0pt;"> <td class="xl69" height="20" style="border-top: none; height: 15.0pt;"><span style="font-family: Georgia,"Times New Roman",serif;">[1500;3000[</span></td> <td class="xl68" style="border-left: medium none; border-top: medium none; text-align: right;"><span style="font-family: Georgia,"Times New Roman",serif;">3000</span></td> <td class="xl72" style="border-left: medium none; border-top: medium none; text-align: right;"><span style="font-family: Georgia,"Times New Roman",serif;">40</span></td> <td class="xl73" style="border-left: medium none; border-top: medium none; text-align: right;"><span style="font-family: Georgia,"Times New Roman",serif;"><span style="color: red;">0,4</span></span></td> </tr>
<tr height="20" style="height: 15.0pt;"> <td class="xl69" height="20" style="border-top: none; height: 15.0pt;"><span style="font-family: Georgia,"Times New Roman",serif;">[3000;4500[</span></td> <td class="xl68" style="border-left: medium none; border-top: medium none; text-align: right;"><span style="font-family: Georgia,"Times New Roman",serif;">4500</span></td> <td class="xl72" style="border-left: medium none; border-top: medium none; text-align: right;"><span style="font-family: Georgia,"Times New Roman",serif;">30</span></td> <td class="xl73" style="border-left: medium none; border-top: medium none; text-align: right;"><span style="font-family: Georgia,"Times New Roman",serif;"><span style="color: red;">0,3</span></span></td> </tr>
<tr height="20" style="height: 15.0pt;"> <td class="xl69" height="20" style="border-top: none; height: 15.0pt;"><span style="font-family: Georgia,"Times New Roman",serif;">[4500;6000[</span></td> <td class="xl68" style="border-left: medium none; border-top: medium none; text-align: right;"><span style="font-family: Georgia,"Times New Roman",serif;">6000</span></td> <td class="xl72" style="border-left: medium none; border-top: medium none; text-align: right;"><span style="font-family: Georgia,"Times New Roman",serif;">10</span></td> <td class="xl73" style="border-left: medium none; border-top: medium none; text-align: right;"><span style="font-family: Georgia,"Times New Roman",serif;"><span style="color: red;">0,1</span></span></td> </tr>
<tr height="21" style="height: 15.75pt;"> <td class="xl70" height="21" style="border-top: none; height: 15.75pt;"><br /></td> <td class="xl71" style="border-left: medium none; border-top: medium none; text-align: right;"><span style="font-family: Georgia,"Times New Roman",serif;">Total :<span style="mso-spacerun: yes;"> </span></span></td> <td class="xl65" style="border-left: medium none; border-top: medium none; text-align: right;"><span style="font-family: Georgia,"Times New Roman",serif;"><span style="color: red;">100</span></span></td> <td class="xl66" style="border-left: medium none; border-top: medium none; text-align: right;"><span style="font-family: Georgia,"Times New Roman",serif;"><span style="color: red;">1</span></span></td> </tr>
</tbody></table>
<span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span> <span style="font-family: Georgia,"Times New Roman",serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgrc3JbDUbCNBWXT8T-qq9iLd29J6k_n8yw8wF588v6SZUXQp8JGm8WBh19fD7me1d8gUhNDYkUV2Smw46PWJcOWyI295p_4cKNP3o-SjrKsIrfkzcjXh2dy53wKeKNRJ1CHJwojQ62BCg/s1600/bd1.jpg" imageanchor="1" style="clear: right; float: right; margin-bottom: 1em; margin-left: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgrc3JbDUbCNBWXT8T-qq9iLd29J6k_n8yw8wF588v6SZUXQp8JGm8WBh19fD7me1d8gUhNDYkUV2Smw46PWJcOWyI295p_4cKNP3o-SjrKsIrfkzcjXh2dy53wKeKNRJ1CHJwojQ62BCg/s1600/bd1.jpg" /></a>La colonne B contient les libellés (sous forme de texte '1500) de l'axe des abscisses. Passons sur les calculs effectués (en rouge) et traçons un graphique en barre à l'aide de la commande <b>Insertion / graphique / histogramme 2D</b>. Pour cela nous avons au préalable sélectionné la colonne des libellés de classe et des n<sub>i</sub>. Pour passer du <b>graphique en barre</b> à l'<b>histogramme</b>, deux manipulations seront nécessaires :</span><br />
<br />
<span style="font-family: Georgia,"Times New Roman",serif;">- Alignement à droite des libellés de l'axe des abscisses.</span><br />
<span style="font-family: Georgia,"Times New Roman",serif;">- Mise en forme des séries de données,à l'aide du menu contextuel, mettre la largeur de l'intervalle à 0%.</span><br />
<span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span> <br />
<div class="separator" style="clear: both; text-align: center;">
<span style="font-family: Georgia,"Times New Roman",serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjaNjFrfpPXyc26VHxGynW-is2X8VEsS9R_L3Fod3CMJEtWzRKaBCz89y99fv63n5QdOdCfd-q72WCYph0MbxF76OnsCOR0gMVe43wQQqX6Bh85qJuQcQK0hWTwu75fvOwA2ywjhUHmhEY/s1600/h1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjaNjFrfpPXyc26VHxGynW-is2X8VEsS9R_L3Fod3CMJEtWzRKaBCz89y99fv63n5QdOdCfd-q72WCYph0MbxF76OnsCOR0gMVe43wQQqX6Bh85qJuQcQK0hWTwu75fvOwA2ywjhUHmhEY/s1600/h1.png" height="110" width="640" /></a></span></div>
<span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span> <span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span> <span style="font-family: Georgia,"Times New Roman",serif;"><b>Amplitudes de Classe inégales :</b> Considérons le tableau 2, il est préférable d'apporter une correction à l'amplitude en divisant la fréquence par l'amplitude de classe. </span><br />
<span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span> <br />
<table border="1" cellpadding="0" cellspacing="0" style="width: 624px;"><colgroup><col span="6" style="width: 78pt;" width="104"></col> </colgroup><tbody>
<tr height="51" style="height: 38.25pt;"> <td class="xl74" height="51" style="height: 38.25pt; text-align: center; width: 78pt;" width="104"><span style="font-family: Georgia,"Times New Roman",serif;"><b>Tableau 2</b></span></td> <td style="text-align: center; width: 78pt;" width="104"><span style="font-family: Georgia,"Times New Roman",serif;"><b><br />
</b></span></td> <td class="xl75" style="text-align: center; width: 78pt;" width="104"><span style="font-family: Georgia,"Times New Roman",serif;"><b>Amplitude</b></span><br />
<span style="font-family: Georgia,"Times New Roman",serif;"><b><span style="mso-spacerun: yes;"> </span>de Classe</b></span></td> <td class="xl71" style="text-align: center; width: 78pt;" width="104"><span style="font-family: Georgia,"Times New Roman",serif;"><b><br />
</b></span></td> <td class="xl71" style="text-align: center; width: 78pt;" width="104"><span style="font-family: Georgia,"Times New Roman",serif;"><b><br />
</b></span></td> <td class="xl75" style="text-align: center; width: 78pt;" width="104"><span style="font-family: Georgia,"Times New Roman",serif;"><b>Amplitude</b></span><br />
<span style="font-family: Georgia,"Times New Roman",serif;"><b>corrigée</b></span></td> </tr>
<tr height="28" style="height: 21.0pt;"> <td class="xl76" height="28" style="height: 21pt; text-align: center;"><br /></td> <td class="xl77" style="border-left: medium none; text-align: center; width: 78pt;" width="104"><br /></td> <td class="xl67" style="border-left: medium none; text-align: center;"><span style="font-family: Georgia,"Times New Roman",serif;"><b>a<span class="font7"><sub>i</sub></span></b></span></td> <td class="xl66" style="border-left: medium none; text-align: center;"><span style="font-family: Georgia,"Times New Roman",serif;"><b>n<span class="font6"><sub>i</sub></span></b></span></td> <td class="xl66" style="border-left: medium none; text-align: center;"><span style="font-family: Georgia,"Times New Roman",serif;"><b>f<span class="font6"><sub>i</sub></span></b></span></td> <td class="xl68" style="border-left: medium none; text-align: center;"><span style="font-family: Georgia,"Times New Roman",serif;"><b>h<span class="font7"><sub>i</sub></span><span class="font5"> = f</span><span class="font7"><sub>i</sub></span><span class="font5"> / a</span><span class="font7"><sub>i</sub></span></b></span></td> </tr>
<tr height="20" style="height: 15.0pt;"> <td class="xl72" height="20" style="border-top: none; height: 15.0pt;"><span style="font-family: Georgia,"Times New Roman",serif;">[0;1500[</span></td> <td class="xl63" style="border-left: none; border-top: none;"><span style="font-family: Georgia,"Times New Roman",serif;">1500</span></td> <td align="right" class="xl63" style="border-left: none; border-top: none;"><span style="font-family: Georgia,"Times New Roman",serif;">1500</span></td> <td align="right" class="xl63" style="border-left: none; border-top: none;"><span style="font-family: Georgia,"Times New Roman",serif;">20</span></td> <td align="right" class="xl63" style="border-left: none; border-top: none;"><span style="font-family: Georgia,"Times New Roman",serif;"><span style="color: red;">0,2</span></span></td> <td align="right" class="xl69" style="border-left: none; border-top: none;"><span style="font-family: Georgia,"Times New Roman",serif;"><span style="color: red;">0,00013</span></span></td> </tr>
<tr height="20" style="height: 15.0pt;"> <td class="xl72" height="20" style="border-top: none; height: 15.0pt;"><span style="font-family: Georgia,"Times New Roman",serif;">[1500;4500[</span></td> <td class="xl63" style="border-left: none; border-top: none;"><span style="font-family: Georgia,"Times New Roman",serif;">4500</span></td> <td align="right" class="xl63" style="border-left: none; border-top: none;"><span style="font-family: Georgia,"Times New Roman",serif;">3000</span></td> <td align="right" class="xl63" style="border-left: none; border-top: none;"><span style="font-family: Georgia,"Times New Roman",serif;">70</span></td> <td align="right" class="xl63" style="border-left: none; border-top: none;"><span style="font-family: Georgia,"Times New Roman",serif;"><span style="color: red;">0,7</span></span></td> <td align="right" class="xl69" style="border-left: none; border-top: none;"><span style="font-family: Georgia,"Times New Roman",serif;"><span style="color: red;">0,00023</span></span></td> </tr>
<tr height="20" style="height: 15.0pt;"> <td class="xl72" height="20" style="border-top: none; height: 15.0pt;"><span style="font-family: Georgia,"Times New Roman",serif;">[4500;6000[</span></td> <td class="xl63" style="border-left: none; border-top: none;"><span style="font-family: Georgia,"Times New Roman",serif;">6000</span></td> <td align="right" class="xl63" style="border-left: none; border-top: none;"><span style="font-family: Georgia,"Times New Roman",serif;">1500</span></td> <td align="right" class="xl63" style="border-left: none; border-top: none;"><span style="font-family: Georgia,"Times New Roman",serif;">10</span></td> <td align="right" class="xl63" style="border-left: none; border-top: none;"><span style="font-family: Georgia,"Times New Roman",serif;"><span style="color: red;">0,1</span></span></td> <td align="right" class="xl69" style="border-left: none; border-top: none;"><span style="font-family: Georgia,"Times New Roman",serif;"><span style="color: red;">0,00007</span></span></td> </tr>
<tr height="21" style="height: 15.75pt;"> <td class="xl73" height="21" style="border-top: none; height: 15.75pt;"><br /></td> <td class="xl70" style="border-left: none; border-top: none;"><br /></td> <td class="xl70" style="border-left: none; border-top: none;"><br /></td> <td align="right" class="xl64" style="border-left: none; border-top: none;"><span style="font-family: Georgia,"Times New Roman",serif;"><span style="color: red;">100</span></span></td> <td align="right" class="xl64" style="border-left: none; border-top: none;"><span style="font-family: Georgia,"Times New Roman",serif;"><span style="color: red;">1</span></span></td> <td class="xl65" style="border-left: none; border-top: none;"><br /></td> </tr>
</tbody></table>
<span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span> <span style="font-family: Georgia,"Times New Roman",serif;">Nous tracerons alors l’histogramme sur l'amplitude corrigée plutôt que sur les n<sub>i</sub>. Pour cela il va falloir utiliser une astuce, car n'oublions pas que les classes sont d'amplitudes inégales. Nous allons donc créer un nouveau tableau qui montrera une égalité de valeur sur les n<sub>i</sub> (/2) pour la classe de revenu <i>[1500;4500[</i> qui a été redécoupée.</span><br />
<span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span> <br />
<table border="1" cellpadding="0" cellspacing="0" style="width: 312px;"><colgroup><col span="3" style="width: 78pt;" width="104"></col> </colgroup><tbody>
<tr height="51" style="height: 38.25pt;"> <td class="xl66" height="51" style="height: 38.25pt; text-align: center; width: 78pt;" width="104"><span style="font-family: Georgia,"Times New Roman",serif;"><b>Classe de</b></span><br />
<span style="font-family: Georgia,"Times New Roman",serif;"><b>revenu</b></span></td> <td class="xl67" style="border-left: medium none; text-align: center; width: 78pt;" width="104"><span style="font-family: Georgia,"Times New Roman",serif;"><b>n<span class="font5"><sub>i</sub></span></b></span></td> <td class="xl71" style="border-left: medium none; text-align: center; width: 78pt;" width="104"><span style="font-family: Georgia,"Times New Roman",serif;"><b>h<span class="font7"><sub>i</sub></span><span class="font6"> = f</span><span class="font7"><sub>i</sub></span><span class="font6"> / a</span><span class="font7"><sub>i</sub></span></b></span></td> </tr>
<tr height="28" style="height: 21.0pt;"> <td class="xl68" height="28" style="border-top: none; height: 21.0pt;"><span style="font-family: Georgia,"Times New Roman",serif;">1500</span></td> <td align="right" class="xl65" style="border-left: none; border-top: none;"><span style="font-family: Georgia,"Times New Roman",serif;">20</span></td> <td align="right" class="xl72" style="border-left: none; border-top: none;"><span style="font-family: Georgia,"Times New Roman",serif;">0,00013</span></td> </tr>
<tr height="20" style="height: 15.0pt;"> <td class="xl68" height="20" style="border-top: none; height: 15.0pt;"><span style="font-family: Georgia,"Times New Roman",serif;"><span style="color: red;"><b>3000</b></span></span></td> <td align="right" class="xl65" style="border-left: none; border-top: none;"><span style="font-family: Georgia,"Times New Roman",serif;">35</span></td> <td align="right" class="xl72" style="border-left: none; border-top: none;"><span style="font-family: Georgia,"Times New Roman",serif;">0,00023</span></td> </tr>
<tr height="20" style="height: 15.0pt;"> <td class="xl68" height="20" style="border-top: none; height: 15.0pt;"><span style="font-family: Georgia,"Times New Roman",serif;"><b>4500</b></span></td> <td align="right" class="xl65" style="border-left: none; border-top: none;"><span style="font-family: Georgia,"Times New Roman",serif;">35</span></td> <td align="right" class="xl72" style="border-left: none; border-top: none;"><span style="font-family: Georgia,"Times New Roman",serif;">0,00023</span></td> </tr>
<tr height="20" style="height: 15.0pt;"> <td class="xl68" height="20" style="border-top: none; height: 15.0pt;"><span style="font-family: Georgia,"Times New Roman",serif;">6000</span></td> <td align="right" class="xl65" style="border-left: none; border-top: none;"><span style="font-family: Georgia,"Times New Roman",serif;">10</span></td> <td align="right" class="xl72" style="border-left: none; border-top: none;"><span style="font-family: Georgia,"Times New Roman",serif;">0,00007</span></td> </tr>
<tr height="21" style="height: 15.75pt;"> <td class="xl69" height="21" style="border-top: none; height: 15.75pt;"><br /></td> <td align="right" class="xl70" style="border-left: none; border-top: none;"><span style="font-family: Georgia,"Times New Roman",serif;">100</span></td> <td class="xl73" style="border-left: none; border-top: none;"><br /></td> </tr>
</tbody></table>
<span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span> <span style="font-family: Georgia,"Times New Roman",serif;">Une fois le graphique tracé vous devez aller effacer la valeur du libellé '3000 dans le tableau.</span><br />
<span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span> <br />
<div class="separator" style="clear: both; text-align: center;">
<span style="font-family: Georgia,"Times New Roman",serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEidyY7jR3YSHiOr1QI-BezkmLazIVStSWqM6Wg4C15MBtb8sK_6CypEu7uN0ETByvNfntwiQ0BnsiIwyexbcHJFL5LOrQEbZwibLAw4-ij1VwkDBjC3YVwRDevclSx9MFC22qdqtqUoO6w/s1600/histo2.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEidyY7jR3YSHiOr1QI-BezkmLazIVStSWqM6Wg4C15MBtb8sK_6CypEu7uN0ETByvNfntwiQ0BnsiIwyexbcHJFL5LOrQEbZwibLAw4-ij1VwkDBjC3YVwRDevclSx9MFC22qdqtqUoO6w/s1600/histo2.jpg" /></a></span></div>
<span style="font-family: Georgia,"Times New Roman",serif;"></span><br />
<br />
<span style="font-family: Georgia,"Times New Roman",serif;">Pour en finir avec cette question des <a href="http://office.microsoft.com/fr-fr/excel-help/presenter-vos-donnees-dans-un-histogramme-HA010238252.aspx" target="_blank">histogrammes</a>, Sachez que l'utilitaire </span><b class="ui">Analysis ToolPak - VBA </b><span style="font-family: Georgia,"Times New Roman",serif;">contient une <b>macro </b>permettant la réalisation de ces <b>graphiques</b>, personnellement à l'issue de plusieurs tests, je ne suis pas très convaincu par l'apport de cette <b>macro</b>. <br />
</span> <span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span> <span style="font-family: Georgia,"Times New Roman",serif;"><i>Merci de votre attention...</i><br />
</span> <span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span> <span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span> <br />
<br />Olivier VBAhttp://www.blogger.com/profile/01518798078822033158noreply@blogger.com0tag:blogger.com,1999:blog-3257543995828262470.post-35326548019174153972014-04-03T13:09:00.000+02:002014-04-03T13:09:04.876+02:00Déplacez vous ! vite.<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiczo6vfswuxnUyhRGoLEeUQ_AIofZdUnFcqYujemSLOZXWPg5kShdd5Ft2n8hZ8lyIEwt_gLe5iwmO9eEWd_DKgRHhx1GoQg-XM2warM9clPDiHfFZy2-vk0bpDNArImC9rDCc8WwUG9k/s1600/pca.jpg" imageanchor="1" style="clear: right; float: right; margin-bottom: 1em; margin-left: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiczo6vfswuxnUyhRGoLEeUQ_AIofZdUnFcqYujemSLOZXWPg5kShdd5Ft2n8hZ8lyIEwt_gLe5iwmO9eEWd_DKgRHhx1GoQg-XM2warM9clPDiHfFZy2-vk0bpDNArImC9rDCc8WwUG9k/s1600/pca.jpg" /></a></div>
<span style="font-family: Georgia,"Times New Roman",serif;">Cet article, promis aux lecteurs depuis fort longtemps, fait suite à l'article du 7 Mars 2009 portant sur les <a href="http://olivier-bureautique.blogspot.fr/2009/03/excel-2007-les-raccourcis-clavier.html" target="_blank">raccourcis clavier </a>dans <b>Excel</b>. Ici nous allons exposer les <b>raccourcis </b>permettant le déplacement du <b>pointeur de la cellule active</b> puis les méthodes de <b>sélection </b>des <b>plages de cellules</b> toujours à l'aide du <b>clavier</b>.</span><br />
<span style="font-family: Georgia,"Times New Roman",serif;"> </span> <br />
<h2>
<span style="font-family: Georgia,"Times New Roman",serif;"> </span></h2>
<h2>
<span style="font-family: Georgia,"Times New Roman",serif;">Les touches de déplacements : <br /><br />
</span></h2>
<table align="center" border="1" cellpading="2" cellspacing="2" style="width: 95%px;"><tbody>
<tr valign="middle"><td align="center"></td><td align="center"><br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi0RRREASgXp0SxMI5I7K8PX2hlobVnZOZm5dJeM_gtfM-pmlahEWYeER9CcPnumQ2cWlOi2mtFJvOhGt8fgjOrhhFz_9IiR2hAXTEx9WU0ccB_rfwh4Jxcy90HiXLVOOj7fFRqYt8Hwu4/s1600/image1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi0RRREASgXp0SxMI5I7K8PX2hlobVnZOZm5dJeM_gtfM-pmlahEWYeER9CcPnumQ2cWlOi2mtFJvOhGt8fgjOrhhFz_9IiR2hAXTEx9WU0ccB_rfwh4Jxcy90HiXLVOOj7fFRqYt8Hwu4/s1600/image1.png" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
</div>
</td><td align="center"><br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh8xR5H5_w4NpgDotqgtBumfoV5cIJbO3KSBHh0unQTl9qE3fBZqYCESAeRBjCHWf4yeqTY1iSF8NzO6o5kKSIUuP_lRd44IKuS_BJt01ho8UKB8p10h9tX-udQ63LPtEhGcUccfp7gk-Y/s1600/image2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh8xR5H5_w4NpgDotqgtBumfoV5cIJbO3KSBHh0unQTl9qE3fBZqYCESAeRBjCHWf4yeqTY1iSF8NzO6o5kKSIUuP_lRd44IKuS_BJt01ho8UKB8p10h9tX-udQ63LPtEhGcUccfp7gk-Y/s1600/image2.png" /></a></div>
</td><td align="center"><div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjOobuIwZzeNWoxl7F5BS3jdqVHQzfb9B8c8xcTffrkNM0L4LFZSRFKWUCQyqChVGULP0CaPePDVngyammknQPgmhfUy0T-WzNrbkR1-4TfYfy76svP8V8QpdiXJLfD3wGmp8M8frSGADQ/s1600/image3.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjOobuIwZzeNWoxl7F5BS3jdqVHQzfb9B8c8xcTffrkNM0L4LFZSRFKWUCQyqChVGULP0CaPePDVngyammknQPgmhfUy0T-WzNrbkR1-4TfYfy76svP8V8QpdiXJLfD3wGmp8M8frSGADQ/s1600/image3.png" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
</div>
</td><td align="center"><div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgwi-VX8VUg4SmSsCHG8DbXKyIaCCwnj3Z3UVEoXzo3HUp8Qrf7JTR5HqLA7obLD6_rEQaoKqmhebd_qY0PbAcLbK7X4CV61mc-gSPMQES9FeUzczuufmXXux-VUmzrFhB_rRGqzcooLjo/s1600/image4.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgwi-VX8VUg4SmSsCHG8DbXKyIaCCwnj3Z3UVEoXzo3HUp8Qrf7JTR5HqLA7obLD6_rEQaoKqmhebd_qY0PbAcLbK7X4CV61mc-gSPMQES9FeUzczuufmXXux-VUmzrFhB_rRGqzcooLjo/s1600/image4.png" /></a></div>
</td></tr>
<tr valign="middle"><td align="center"><b><span style="font-family: Georgia,"Times New Roman",serif;">Touche</span></b><br />
<b><span style="font-family: Georgia,"Times New Roman",serif;">seule</span></b></td><td align="center"><span style="font-family: Georgia,"Times New Roman",serif;">Une colonne vers la droite<br />
Une colonne vers la gauche</span><br />
<span style="font-family: Georgia,"Times New Roman",serif;"> </span> </td><td align="center"><span style="font-family: Georgia,"Times New Roman",serif;">Une ligne vers le bas<br />
Une ligne vers le haut</span></td><td align="center"><span style="font-family: Georgia,"Times New Roman",serif;">Un écran vers le haut<br />
Un écran vers le bas</span> </td><td align="center"><span style="font-family: Georgia,"Times New Roman",serif;">Début de ligne </span></td></tr>
<tr valign="middle"><td align="center"><span style="font-family: Georgia,"Times New Roman",serif;"><b> CTRL + </b> </span></td><td align="center"><span style="font-family: Georgia,"Times New Roman",serif;">1<sup>er</sup> colonne occupée<br />
Dernière colonne occupée</span></td><td align="center"><span style="font-family: Georgia,"Times New Roman",serif;">Dernière ligne occupée<br />
1<sup>er</sup> ligne occupée</span></td><td align="center"><span style="font-family: Georgia,"Times New Roman",serif;">Feuille de calcul précédente<br />
Feuille de calcul suivante</span></td><td align="center"><span style="font-family: Georgia,"Times New Roman",serif;">Cellule A1</span></td></tr>
<tr valign="middle"><td align="center"><span style="font-family: Georgia,"Times New Roman",serif;"><b> ALT +</b> </span></td><td align="center"></td><td align="center"></td><td align="center"><span style="font-family: Georgia,"Times New Roman",serif;">Un écran vers la gauche<br />
Un écran vers la droite</span></td><td align="center"></td></tr>
</tbody></table>
<h2>
<span style="font-family: Georgia,"Times New Roman",serif;"><br />
Les méthode de sélection :<br />
<br />
</span></h2>
<table align="center" border="1" cellpading="2" cellspacing="2" style="width: 95%px;"><tbody>
<tr valign="middle"><td align="center"><div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEguRL1PmDbiNnHKsWvOLT7d6R-1TEhbCHxHFixi3GKBMDaNRtZ2o3LH99JAmum_jO4kSpyXFn0XHr1Dw4OcBPNyiq1VuMzu-TQsBOMIDWFW7rJdVojNAkXG_uojPjdQ8W_Vuw1Rb80vbMQ/s1600/image1.png" imageanchor="1" style="clear: right; float: right; margin-bottom: 1em; margin-left: 1em;"><br />
</a></div>
<br /></td><td align="center"><br />
<div class="separator" style="clear: both; text-align: center;">
<span style="font-family: Georgia,"Times New Roman",serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEguRL1PmDbiNnHKsWvOLT7d6R-1TEhbCHxHFixi3GKBMDaNRtZ2o3LH99JAmum_jO4kSpyXFn0XHr1Dw4OcBPNyiq1VuMzu-TQsBOMIDWFW7rJdVojNAkXG_uojPjdQ8W_Vuw1Rb80vbMQ/s1600/image1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEguRL1PmDbiNnHKsWvOLT7d6R-1TEhbCHxHFixi3GKBMDaNRtZ2o3LH99JAmum_jO4kSpyXFn0XHr1Dw4OcBPNyiq1VuMzu-TQsBOMIDWFW7rJdVojNAkXG_uojPjdQ8W_Vuw1Rb80vbMQ/s1600/image1.png" /></a></span></div>
</td><td align="center"><br />
<div class="separator" style="clear: both; text-align: center;">
<span style="font-family: Georgia,"Times New Roman",serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjytnL4gFA-n4GVNZscwWcRk7xLuuk0pG3K5OVMeJNt6u83wuY7dQJHuPsAs_guzjXG7FtNqKN-B_t5nZCjBDkd4b00y9StkI-mm1MjXI-DTvo0KKhvduizvvxpqem-CR2Qr9VqTov0KlY/s1600/image2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjytnL4gFA-n4GVNZscwWcRk7xLuuk0pG3K5OVMeJNt6u83wuY7dQJHuPsAs_guzjXG7FtNqKN-B_t5nZCjBDkd4b00y9StkI-mm1MjXI-DTvo0KKhvduizvvxpqem-CR2Qr9VqTov0KlY/s1600/image2.png" /></a></span></div>
</td><td align="center"><div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh5iodFxWg1avrkvO1h_M7kzP6VsqNf7Mvp8RhiMTl72WNbqYJm0ujZq40Zwa6o50dTA5SbKXAjpS3urf4CG8MfceYMBZMggMOSP2oX3iNwNLpLVJXE8vpnWEYcHnPUhe4tIPUsmcroD0o/s1600/image3.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh5iodFxWg1avrkvO1h_M7kzP6VsqNf7Mvp8RhiMTl72WNbqYJm0ujZq40Zwa6o50dTA5SbKXAjpS3urf4CG8MfceYMBZMggMOSP2oX3iNwNLpLVJXE8vpnWEYcHnPUhe4tIPUsmcroD0o/s1600/image3.png" /></a></div>
</td><td align="center"><div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiH8BPZWZc4TXyotWAwEXlUmFxBV4C9ZCoDZ8Z5voFC6tXKnenozoIf79VNhyBlIkHnbuDks3_FOgMb-eghvPda0pJiqT3Wf4PpsJ-VUfQuLG_zq5FvI405rUCVVxLcxWfDIU7jZ55kfAg/s1600/image4.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiH8BPZWZc4TXyotWAwEXlUmFxBV4C9ZCoDZ8Z5voFC6tXKnenozoIf79VNhyBlIkHnbuDks3_FOgMb-eghvPda0pJiqT3Wf4PpsJ-VUfQuLG_zq5FvI405rUCVVxLcxWfDIU7jZ55kfAg/s1600/image4.png" /></a></div>
</td></tr>
<tr valign="middle"><td align="center"></td><td align="center"></td><td align="center"></td><td align="center"></td><td align="center"></td><td align="center"></td></tr>
<tr valign="middle"><td align="center"><b>Maj + </b><br />
<b>(ou F8) </b></td><td align="center"> Sélection d'une cellule vers la gauche<br />
Sélection d'une cellule vers la droite</td><td align="center">Sélection d'une cellule vers le bas<br />
Sélection d'une cellule vers le haut</td><td align="center">Sélection de cellules sur la hauteur d'un écran vers le bas<br />
Sélection de cellules sur la hauteur d'un écran vers le haut</td><td align="center">Sélection jusqu'au début de la ligne</td></tr>
<tr valign="middle"><td align="center"><b>Maj + CTRL + </b></td><td align="center">Sélection jusqu'à <span style="font-family: Georgia,"Times New Roman",serif;">la 1<sup>er</sup> colonne occupée<br />
</span>Sélection jusqu'à la d<span style="font-family: Georgia,"Times New Roman",serif;">ernière colonne occupée</span></td><td align="center">Sélection jusqu'à la d<span style="font-family: Georgia,"Times New Roman",serif;">ernière ligne occupée<br />
</span>Sélection jusqu'à la <span style="font-family: Georgia,"Times New Roman",serif;">1<sup>er</sup> ligne occupée</span></td><td align="center"> </td><td align="center">Sélection jusqu'à la cellule A1</td></tr>
<tr valign="middle"><td align="center"></td><td align="center"></td><td align="center"></td><td align="center"></td><td align="center"></td><td align="center"></td></tr>
</tbody></table>
<span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span> <span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span> <span style="font-family: Georgia,"Times New Roman",serif;">Je me suis limité aux possibilités les plus utiles, il existe de nombreuses autres combinaisons (comme par exemple la touche F5 pour atteindre une cellule par son nom ou sa référence), aussi j’attends vos commentaires et suggestions.</span><br />
<br />
<span style="font-family: Georgia,"Times New Roman",serif;">Merci de votre attention...</span><br />
<br />
<br />
<br />Olivier VBAhttp://www.blogger.com/profile/01518798078822033158noreply@blogger.com0tag:blogger.com,1999:blog-3257543995828262470.post-21876039117138773872014-04-02T10:42:00.001+02:002014-04-02T11:46:59.510+02:00Les échelles semi-logarithmiques<div style="font-family: Georgia,"Times New Roman",serif;">
</div>
<div style="font-family: Georgia,"Times New Roman",serif;">
</div>
<div style="font-family: Georgia,"Times New Roman",serif;">
<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhmDPn8K0iORBuEKEeVJFUwlvnTIOQc95Hh9aWbXRgSySbn5r1JSECm5mo-RjbtlSHqTZ8wPteWmOkXJOupq4LF6V944adqPnU2LlcYvKjtL-pC_PZ6V-Kd-EyL5IpZrWvVcvYE5o8dGoQ/s1600/logo1.jpg" imageanchor="1" style="clear: right; float: right; margin-bottom: 1em; margin-left: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhmDPn8K0iORBuEKEeVJFUwlvnTIOQc95Hh9aWbXRgSySbn5r1JSECm5mo-RjbtlSHqTZ8wPteWmOkXJOupq4LF6V944adqPnU2LlcYvKjtL-pC_PZ6V-Kd-EyL5IpZrWvVcvYE5o8dGoQ/s1600/logo1.jpg" /></a>L’objet de cette nouvelle vidéo est d’expliquer comment il est possible de corriger l’échelle <b>arithmétique </b>d'un <b>graphique </b>lorsque cette dernière s’avère inadaptée.<br />
La mise en place d’une <a href="http://fr.wikipedia.org/wiki/%C3%89chelle_logarithmique" target="_blank">échelle<b> </b>logarithmique</a> que ce soit par une approche <b>graphique</b> ou par une approche calculée permettra de résoudre ce type de problématique.</div>
<div style="font-family: Georgia,"Times New Roman",serif;">
</div>
<div style="font-family: Georgia,"Times New Roman",serif;">
L’exemple de la vidéo, traite de deux entreprise A et B possédant des <b>taux de croissance</b> de chiffre d’affaires de proportion différentes, alors que la représentation graphique de ces taux montre deux droites parfaitement parallèles, pouvant laisser penser que la progression est rigoureusement identique.</div>
<br />
<br />
<br />
<iframe allowfullscreen="" frameborder="0" height="270" src="http://www.dailymotion.com/embed/video/x1lcqbs" width="480"></iframe><br />
<br />
<br />
<a href="http://www.dailymotion.com/video/x1lcqbs_excel-appliquer-une-echelle-semi-logarithmique_tech" target="_blank">Excel : Appliquer une échelle semi-logarithmique</a> <i>par <a href="http://www.dailymotion.com/O_Picot_chez_AV" target="_blank">O_Picot_chez_AV</a></i><br />
<br />
<div style="font-family: Georgia,"Times New Roman",serif;">
Bonne consultation...<br />
<br />
<br /></div>
<div style="font-family: Georgia,"Times New Roman",serif;">
</div>
<div style="font-family: Georgia,"Times New Roman",serif;">
</div>
<div style="font-family: Georgia,"Times New Roman",serif;">
</div>
<br />Olivier VBAhttp://www.blogger.com/profile/01518798078822033158noreply@blogger.com0tag:blogger.com,1999:blog-3257543995828262470.post-31184413622826272142014-03-16T11:30:00.000+01:002014-03-16T11:33:01.174+01:00Excel 2010 : Supprimer les doublons<br />
<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhiJYz_pRJRLpqGYIOEycQ632-SXIGkh57hiLcUjxI7sbVZ7BnKI4I2PN0MgWqBoBjphheCYI0VWC6Yjgt9NlmdhdhEgNafCK24uYeHYMppn2THWdcachgOa4DMJ2ksGxHV9of0Xc3lPV4/s1600/capture7.jpg" imageanchor="1" style="clear: right; float: right; margin-bottom: 1em; margin-left: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhiJYz_pRJRLpqGYIOEycQ632-SXIGkh57hiLcUjxI7sbVZ7BnKI4I2PN0MgWqBoBjphheCYI0VWC6Yjgt9NlmdhdhEgNafCK24uYeHYMppn2THWdcachgOa4DMJ2ksGxHV9of0Xc3lPV4/s1600/capture7.jpg" /></a><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Pour en finir avec la question des <b>doublons </b>dans les <b>listes de données</b>, je souhaitais simplement rappeler qu'un <a href="http://olivier-bureautique.blogspot.fr/2014/02/vba-supprimer-les-doublons.html" target="_blank">code </a><a href="http://olivier-bureautique.blogspot.fr/2014/02/vba-supprimer-les-doublons.html" target="_blank">VBA</a><b> </b>ou une <b>macro commande</b> ne vous sera probablement pas utile si vous êtes utilisateurs des versions <b>Excel 2010 </b>ou <b>2013</b>. Effectivement dans ces versions, des outils sont intégrés pour la suppression des doublons et devraient largement couvrir la plupart de vos besoins dans ce domaine.</span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></span> <span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Cette vidéo vous explique la démarche à suivre à travers deux méthodes très simples. Elle vous permettra de plus de découvrir la notion de <b>tableau </b>mise en œuvre par <b>Microsoft </b>pour faciliter le travaux les plus courants sur <b>vos listes de données</b>.</span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></span> <span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></span> <span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><iframe allowfullscreen="" frameborder="0" height="270" src="http://www.dailymotion.com/embed/video/x1hi8jf" width="480"></iframe><br />
</span></span> <span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
<a href="http://www.dailymotion.com/video/x1hi8jf_excel-2010-supprimer-les-doublons-dans-une-base-de-donnees_tech" target="_blank">Excel 2010 : Supprimer les doublons dans une...</a> <i>par <a href="http://www.dailymotion.com/O_Picot_chez_AV" target="_blank">O_Picot_chez_AV</a></i></span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></span> <span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></span> <span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Bonne consultation...</span></span><br />
<br />
<br />
<br />
<br />Olivier VBAhttp://www.blogger.com/profile/01518798078822033158noreply@blogger.com0tag:blogger.com,1999:blog-3257543995828262470.post-47809580420712232612014-03-07T12:03:00.000+01:002014-03-07T12:03:09.358+01:00Le quartet d'Anscombe<br />
<br />
<br />
Démarrons aujourd'hui une nouvelle série d'articles sur la construction des <b>graphiques </b>dans <b>Excel</b>. La problématique ne sera pas la réalisation technique de ces <b>graphiques </b>(les manipulations nécessaires étant en général d'une extrême simplicité) mais le choix du bon type de représentation en fonction des données à analyser.<br />
Dans ce premier article nous allons étudier le <a href="http://fr.wikipedia.org/wiki/Quartet_d%27Anscombe" target="_blank">quartet d'Anscombe</a>, il s'agit d'une suite de 4 séries statistique dont les <a href="http://fr.wikipedia.org/wiki/Moyenne_arithm%C3%A9tique" target="_blank">moyennes arithmétiques simples</a> et les <a href="http://fr.wikipedia.org/wiki/Variance_%28statistiques_et_probabilit%C3%A9s%29" target="_blank">variances </a>sont rigoureusement identiques mais dont les tracés sont totalement inégales. Certainement, il s'agit d'un cas fortuit très particulier, mais il met parfaitement en lumière l'importance de l'expression <b>graphique </b>dans l'analyse des données chiffrées.<br />
<br />
<i><b>Étape 1 :</b></i> Commençons par la réalisation du tableau chiffrée, après la saisie il suffira de calculer la moyenne <b>=MOYENNE(B5:B15)</b> et la variance <b>=VAR.P.N(B5:B15)</b> et de les recopier vers la droite.<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiECkV05Lb8SSYZKD5cPnRmVvpjzwIib0ngSIX2nP7bQkc10XZJhXLLeQPlzpGsTgiLGeCS4JQ_EwLaQAEtBKE5c3o8-jZ4zMBmCyOqYUGGUDk7A_UR4CdtttMS6ugNXl8Zwl6ZqSDdl_c/s1600/quartet.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiECkV05Lb8SSYZKD5cPnRmVvpjzwIib0ngSIX2nP7bQkc10XZJhXLLeQPlzpGsTgiLGeCS4JQ_EwLaQAEtBKE5c3o8-jZ4zMBmCyOqYUGGUDk7A_UR4CdtttMS6ugNXl8Zwl6ZqSDdl_c/s1600/quartet.jpg" height="226" width="400" /></a></div>
<br />
<i><b>Étape 2 :</b></i> Traçons maintenant les 4 <b>graphiques </b>(X,Y) à l'aide du type <b>nuage de points</b>, correspondant aux quatre séries de données.<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjA1BHYJa8uFiADmD-0t4MT74d63MwjvK7g_PayIwCg4aebUdvWlSBAkD0hhEbbOARLz54imE5XvTgbm-1HLr8GLqYyzAK2QJC3kIA0MkRV5NDSHx69EwBP2uZhdtz8i4hd15sbr23wvaQ/s1600/graph1.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><br /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEihlQTFhz7FwylS0y2829689tzmM-Z9Vallf-s6UdNskh9ZpLzG2F7oZ3qTeN8fbeGxj3_vGtZwafWjihJLWMFXvtD1rkSH9-g8y8iQO9VYy1oUUWQrg3UgUyaGUE3NCPnnKjtzOchChOQ/s1600/graph.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEihlQTFhz7FwylS0y2829689tzmM-Z9Vallf-s6UdNskh9ZpLzG2F7oZ3qTeN8fbeGxj3_vGtZwafWjihJLWMFXvtD1rkSH9-g8y8iQO9VYy1oUUWQrg3UgUyaGUE3NCPnnKjtzOchChOQ/s1600/graph.png" height="310" width="640" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh3AWJe0fO2nJ2yDidN_rUOub83y4zEqahp2LLLs6405e9CrIWRO86zu4KwZ-DpmCl7tV93J4emKwdMOe1CBZdnreUjcKL1B2xFBqu3tkewmqqGF0TxDBEQl_qr0cTfdq8itBYTwLX-SZA/s1600/graph2.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><br />
</a></div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<span id="goog_1105436004"></span><span id="goog_1105436005"></span><br />
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<i><b>Étape 3 :</b></i> Nous pouvons maintenant vérifier d'autres propriétés statistiques et constater à nouveau des résultats identiques pour les quatre séries.<br />
En premier lieu vérifions la <b>corrélation </b>des plages X et Y à l'aide des <b>coefficients de corrélation</b> r=<b>{COEFFICIENT.CORRELATION(C5:C15;B5:B15)}</b> ou de <b>détermination</b> R<sup>2</sup>=<b>{COEFFICIENT.DETERMINATION(C5:C15;B5:B15)}</b>.<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh5tbuap-tp3kqe6sHQZ50xKCI0koqx28CJBwHacZ8gwTkPP2INurCm6LWOlLXxoidL_9YOXwD7dvBmPALBYQhsK_S3pmqOQ7fPvDcn-DAVHXnB87QhZ_EbtlRv5jLIsuQrOfqCesp7r8Q/s1600/quartet2.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh5tbuap-tp3kqe6sHQZ50xKCI0koqx28CJBwHacZ8gwTkPP2INurCm6LWOlLXxoidL_9YOXwD7dvBmPALBYQhsK_S3pmqOQ7fPvDcn-DAVHXnB87QhZ_EbtlRv5jLIsuQrOfqCesp7r8Q/s1600/quartet2.jpg" height="78" width="400" /></a></div>
<br />
<br />
Ensuite calculons les paramètres a et b de l'équation y = ax + b à l'aide de la fonction <b>={DROITEREG(C5:C15;B5:B15)}</b>, le résultat est immanquablement :<br />
<br />
<div style="text-align: center;">
<span style="font-size: large;"><b>y = 1/2x + 3 </b></span></div>
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjSGCmnHEm-3HQaIRAyAwgVq8WsQRbjNeOdWgKRzkXyftZb69jAOExvjB7sM5UiliSClNbceCaKPqD69RcZkr9MM6Z0LWpjgBBr7sD1Q2i2QRzZuLQtlBvGq5WL9cTt_HXHQ4YZ6u88Ma0/s1600/quartet3.jpg" imageanchor="1" style="clear: right; float: right; margin-bottom: 1em; margin-left: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjSGCmnHEm-3HQaIRAyAwgVq8WsQRbjNeOdWgKRzkXyftZb69jAOExvjB7sM5UiliSClNbceCaKPqD69RcZkr9MM6Z0LWpjgBBr7sD1Q2i2QRzZuLQtlBvGq5WL9cTt_HXHQ4YZ6u88Ma0/s1600/quartet3.jpg" height="80" width="200" /></a>Ne reste plus alors que l'ajout à l'aide du menu contextuel de la droite de <b>régression linéaire</b> sur le graphique et la vérification par la méthode graphique d'excel du <b>R<sup>2</sup></b> et de l'équation de la droite. Si vous ne maitrisez pas cette partie, reportez vous à mon article du 1<sup>er</sup> Mars 2009 sur <a href="http://olivier-bureautique.blogspot.fr/2009/03/excel-2007-obtenir-la-tendance-dune.html" target="_blank">la tendance d'une série de valeur</a>.<br />
<br />
<br />
<i><b>Etape 4 : </b></i>Essayons maintenant de calculer le <b>r</b>, non pas pour les 11 valeurs de la série 3, mais uniquement avec 10 valeurs en excluant <a href="http://fr.wikipedia.org/wiki/Donn%C3%A9e_aberrante" target="_blank">la valeur aberrante</a>, vous constaterez alors que le coefficient passe de 0.82 à 1. <i>(r = 1 ou r = -1 indiquant une corrélation parfaite)</i><br />
<br />
<i><b>Conclusion : </b></i>Éclairage sur l’intérêt des représentations graphiques et mise en évidence de l'influence des données aberrantes, voici l'apport du quartet d'Anscombe.<br />
<br />
Merci de votre attention,<br />
<br />
<br />
<br />Olivier VBAhttp://www.blogger.com/profile/01518798078822033158noreply@blogger.com0tag:blogger.com,1999:blog-3257543995828262470.post-44218722103358799082014-02-28T11:47:00.002+01:002014-02-28T11:47:43.166+01:00VBA : Supprimer les doublons<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br /></span></span>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br /></span></span>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br /></span></span>
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjwHf86tRgH0nknJy7ODjO3Ve54xHDPgWXbjJxr-JEy50DHsCHRjO2YqYa9e5WPa3G46eKbr8EonHtFxOobksZolRuhlz-5NoDMImzfOw-FEHu00J9Fy6CsXW0n2lgwMdoPnZp0SjdkSL8/s1600/Microsoft-Excel-2013-Logo.jpg" imageanchor="1" style="clear: right; float: right; margin-bottom: 1em; margin-left: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjwHf86tRgH0nknJy7ODjO3Ve54xHDPgWXbjJxr-JEy50DHsCHRjO2YqYa9e5WPa3G46eKbr8EonHtFxOobksZolRuhlz-5NoDMImzfOw-FEHu00J9Fy6CsXW0n2lgwMdoPnZp0SjdkSL8/s1600/Microsoft-Excel-2013-Logo.jpg" height="200" width="200" /></a><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Nous voici donc sur le second article concernant le probléme des <b>doublons </b>dans les <b>bases de données</b>. La <b>procédure </b>suivante va nettoyer la <b>base </b>de tous les <b>doublons </b>qu'elle contient, ici nous considérons que les <b>clés </b>en surnombre sont placées dans la première colonne.</span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Par sécurité il n'y a pas d'action dans la base de départ, le contenu de la base est stockée dans un <b>tableau</b> a(), puis après traitement, la nouvelle base contenue dans un tableau c() sera récupérée sur une autre feuille de calcul.</span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Nous utilisons bien sur l'<b>objet Dictionary </b>pour réaliser ce traitement, vous pouvez<a href="http://olivier-bureautique.blogspot.fr/2014/02/vba-reperer-les-doublons.html"> consulter l'article précédent</a> si vous ne maîtrisez pas complétement cet <b>objet</b>.</span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br /></span></span>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br /></span></span>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Sub Doublons_BDD()<br /><br />Dim a(), c()<br />Dim mondico As Object<br />Dim ligne, i, k As Long<br /><br /> Application.ScreenUpdating = False</span></span><br />
<br />
<span style="color: red;"><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">'va suspendre l'affichage à l'écran des travaux de la macro</span></span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><span style="color: red;">'ce qui accélére son exécution le nombre de lignes dans la base pouvant être élevé</span></span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br /> Set mondico = CreateObject("Scripting.Dictionary")<br /><span style="color: red;"> <br /> '********************************************************************<br /> 'attention je suis sur la feuille ou se trouve ma base<br /> 'sinon je declare un autre dico puis le dico est stockée dans le tableau<br /> 'dim dico2 as object<br /> 'Set dico2 = Sheets("BD")<br /> 'a = dico2.Range("A1").CurrentRegion.Value<br /> '***************************************************************</span><br /> <br /> a = Range("A1").CurrentRegion.Value<br /><span style="color: red;"> 'La base est stockée dans le tableau a()</span></span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><span style="color: red;"></span><br /> <a href="http://msdn.microsoft.com/fr-fr/library/office/gg251578%28v=office.15%29.aspx" target="_blank">ReDim </a>c(1 To <a href="http://msdn.microsoft.com/fr-fr/library/office/gg278658%28v=office.15%29.aspx" target="_blank">UBound</a>(a, 1), 1 To UBound(a, 2))<br /> ligne = 1<br /> <br /> For i = 1 To UBound(a)<br /> If Not mondico.Exists(a(i, 1)) Then<br /> mondico.Add a(i, 1), 1<br /> For k = 1 To UBound(a, 2): c(ligne, k) = a(i, k): Next k<br /> ligne = ligne + 1<br /> End If<br /> Next</span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br /> Sheets("BD-2").[A1].Resize(mondico.Count, UBound(a, 2)) = c</span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><span style="color: red;">'il faut recopier le tableau c() sur la feuille de calcul "BD-2"</span><br />End Sub</span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br /><span><i><b>Bonne lecture et bon courage pour vos adaptations...</b></i></span></span></span><br />
<br />
<br />
<br />Olivier VBAhttp://www.blogger.com/profile/01518798078822033158noreply@blogger.com0tag:blogger.com,1999:blog-3257543995828262470.post-86670071085342645982014-02-20T12:20:00.002+01:002014-02-28T11:49:16.696+01:00VBA : Repérer les doublons<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></span> <span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></span> <span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Nous allons consacrés deux articles à la problématique des <b>doublons </b>à l'intérieur<br />
des bases de données. Les <b>doublons </b>pouvant se définir comme deux <b>enregistrement</b> rigoureusement identiques dans une base, les valeurs de tous les <b>champs </b>de l'<b>enregistrement</b> sont communs, ou alors seulement les données d'une colonne (généralement la colonne qui doit servir de <b>clé unique</b>) sont communes (Numéro de client, E-mail...). Enfin par <b>doublons </b>il faut entendre que la valeur n'est pas forcément doublée, elle peut être triplée etc...</span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br /></span></span>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjErDpwMqoKaLGgibwT3tYKdQQB26GF1gf47D_EIIRlxghfAJ1DOFdhHiyyyztpOen97l8x4PoVsTi6ihw7xR1vFuINPAKzJPtvGG18oYQ-DaAfoL8J-L8uOGu8gfhG-Q9ySa2d4vPtZFU/s1600/doublons.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjErDpwMqoKaLGgibwT3tYKdQQB26GF1gf47D_EIIRlxghfAJ1DOFdhHiyyyztpOen97l8x4PoVsTi6ihw7xR1vFuINPAKzJPtvGG18oYQ-DaAfoL8J-L8uOGu8gfhG-Q9ySa2d4vPtZFU/s1600/doublons.jpg" height="200" width="184" /></a></div>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">En général nous souhaitons pouvoir repérer les informations présentes en surnombre, cela fera l'objet de cet article. La suppression définitive des enregistrements redondants sera l'objet de<a href="http://olivier-bureautique.blogspot.fr/2014/02/vba-supprimer-les-doublons.html"> l'article suivant</a>. <br />
Il existe plusieurs méthodes et techniques pour intervenir sur cette problématique, j'ai notament montré dans une <a href="http://www.apprentissage-virtuel.com/exercices-bureautique/correction-exercice-excel-numero-11" target="_blank">vidéo du 12/04/2012</a> comment travailler grâce à <b>la fonction <i>=nb.si()</i></b> et la commande <b>Validation des données</b> de l'<b>onglet Données</b>.</span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"> En terme de programmation le bon réflexe est de penser <b>Collection </b>et <b>Dictionary</b>. Le premier objet étant réputé très lent en terme de résultat, nous allons ici présenter l'objet <b>Dictionary</b>.</span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"> Cet objet associe des valeurs (nommées <b>Items</b>) à des clés (<b>Keys</b>). Il s'agit en fait d'un <b>tableau</b> à une <b>dimension </b>dont on accède aux éléments par une clé et non par un indice.<br />
<br />
Soit un Dictionnaire MonDico :</span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
<table align="center" border="1" style="width: 200px;"><tbody>
<tr><td><b> Keys </b> </td><td><b> Items </b></td></tr>
<tr><td>bleu</td><td style="text-align: center;">2</td></tr>
<tr><td>rouge</td><td style="text-align: center;">6</td></tr>
<tr><td>vert</td><td style="text-align: center;">9</td></tr>
<tr><td>blanc</td><td style="text-align: center;">4</td></tr>
<tr><td>noir</td><td style="text-align: center;">7</td></tr>
</tbody></table>
</span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Les <b>métodhes </b>et <b>propriétés </b>suivantes peuvent être associés au Dictionnaire :</span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
<table align="center" border="1" style="width: 500px;"><tbody>
<tr><td><b><i>Add clé,élément</i></b></td><td>Ajoute une clé et la valeur associée</td></tr>
<tr><td><b><i>Exists(clé)</i></b></td><td>Teste l'existence d'une clé</td></tr>
<tr><td><b><i>Tbl=Items</i></b></td><td>Donne dans un tableau les éléments</td></tr>
<tr><td><b><i>Tbl=Keys </i></b></td><td>Donne dans un tableau les clés</td></tr>
<tr><td><b><i>Remove (clé) </i></b></td><td>Suprime la clé</td></tr>
<tr><td><b><i>Removeall </i></b></td><td>Supprime tous les éléments</td></tr>
<tr><td><b><i>Count </i></b></td><td>Donne le nombre d'éléments</td></tr>
<tr><td><b><i>Item(clé) =valeur</i></b></td><td>Modifie la valeur de la clé</td></tr>
<tr><td><b><i>Item(clé)</i></b></td><td>Donne la valeur associée à la clé</td></tr>
<tr><td><b><i>CompareMode=vbTextCompare </i></b></td><td>Ignore la casse</td></tr>
</tbody></table>
</span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><u><b>Attention !</b></u> Vous ne pourrez pas utiliser l'objet <b>Dictionary </b>si vous n'avez pas chargé la bibliothéque "<b>Scripting</b>". Cocher la ligne "<b>MicroSoft Scripting Runtime</b>" dans la commande <b>Outils / références... </b>de votre éditeur VBA.<br />
<br />
La <b>procédure </b>ci dessous va vous permettre de vous familiariser avec les manipulations de base en matière de dictionnaire. Pour ceux qui veulent étudier cette question de manière plus approfondie, lisez l'excellent <a href="http://boisgontierjacques.free.fr/pages_site/Dictionnaire.htm" target="_blank">article de Jacques Boisgontier</a>. </span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
Option Explicit<br />
Option Base 1<br />
Sub ListeDictionnaire()<br />
<br />
Dim mondico As Object, cle<br />
Set mondico = CreateObject("Scripting.Dictionary")<br />
<span style="color: red;">'déclaration classique de l'objet dictionnaire notez toutefois le ,cle<br />
'qui servira de variable (type range) pour la colonne clé</span><br />
Dim TabC()<br />
<span style="color: red;">'tableau non typé et non dimensionné pour recevoir les clés du dictionnaire</span><br />
Dim TabI()<br />
<span style="color: red;">'tableau non typé et non dimensionné pour recevoir les items du dictionnaire<br />
</span><br />
<span style="color: red;">'*** Les trois méthodes permettant l'association des items aux clés ***</span><br />
mondico.item("bleu") = 2<br />
mondico.item("rouge") = 6<br />
mondico("vert") = 9<br />
If Not mondico.Exists("violet") Then mondico.Add "blanc", 4<br />
mondico.item("noir") = 7<br />
<br />
<span style="color: red;"> '*** vérifions l'item pour une clé ***</span><br />
cle = "noir"<br />
MsgBox cle & " : " & mondico.item(cle), vbOKOnly + vbInformation<br />
<br />
<span style="color: red;"> '*** vérifions tous les items de toutes les clés ***</span><br />
For Each cle In mondico.Keys<br />
MsgBox cle & " : " & mondico.item(cle), _<br />
vbOKOnly + vbInformation, vbOKOnly + vbInformation, _<br />
" Clés + Item : "<br />
Next cle<br />
<br />
<span style="color: red;"> '*** pour passer des éléments clés et items dans des tableaux ***</span><br />
TabC = mondico.Keys<br />
TabI = mondico.Items<br />
MsgBox TabC(3) & " : " & TabI(3), _<br />
vbOKOnly + vbInformation, vbOKOnly + vbInformation, _<br />
" Clés + Item : "<br />
<br />
<span style="color: red;"> '*** faire des Statistiques sur les items ***</span><br />
MsgBox "Total : " & Application.Sum(mondico.Items) _<br />
& " - Moyenne : " & Application.Average(mondico.Items), _<br />
vbOKOnly + vbInformation, "Statistiques : "<br />
End Sub<br />
<br />
Venons en maintenant au probléme de repérage des <b>doublons</b>, analysons ensemble la procédure suivante qui va repérer par un code couleur touts les <b>doublons </b>de ma base sur la colonne que j'ai choisi comme étant la clé de mon dictionnaire.<br />
<br />
Sub Doublons_repere()<br />
<br />
Dim mondico As Object, cle<br />
Set mondico = CreateObject("Scripting.Dictionary")<br />
<br />
Columns("A:A").Select<br />
Selection.Interior.ColorIndex = xlNone<br />
<span style="color: red;">'nous travaillons donc sur la colonne A <br />
'pour chaque clé de A2 jusqu'à la fin de la colonne</span><br />
For Each cle In Range("a2", Range("a2").End(xlDown))<br />
<span style="color: red;"> 'on va affecter à chaque clé du dictionnaire un item = </span>à 1<br />
mondico.item(cle.Value) = mondico.item(cle.Value) + 1<br />
<span style="color: red;"> 'si la clé est présente 2 fois ou plus on aura un item > à 1</span><br />
Next cle<br />
<br />
For Each cle In Range("a2", Range("a2").End(xlDown))<br />
<span style="color: red;"> 'reste alors le coloriage du fond des cellules pour les item<br />
'présents 2 fois ou plus</span><br />
If mondico.item(cle.Value) > 1 Then cle.Interior.ColorIndex = 6<br />
Next cle<br />
End Sub<br />
<br />
<i><b>Bonne lecture et bon courage pour vos adaptations...</b></i></span></span><br />
<br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><i><b> </b></i><br />
</span></span>Olivier VBAhttp://www.blogger.com/profile/01518798078822033158noreply@blogger.com0tag:blogger.com,1999:blog-3257543995828262470.post-81525236283284543852014-02-12T17:59:00.002+01:002014-02-12T18:01:41.042+01:00VBA : La fonction OnTime<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiebYO_-UOKjRFyTEc6JAguZNS_4qtWu3gVV6Vztzx0KbdI-CQ_p_ehqefj-Flr0ie_AmEqL0oz-94gvby8-8gWwkromxTxIwpOcazj0aLw9Yu7b4Nhg8n3PTvfz13KjCQT0nsbEQVy8PY/s1600/vba-logo.png" imageanchor="1" style="clear: right; float: right; margin-bottom: 1em; margin-left: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiebYO_-UOKjRFyTEc6JAguZNS_4qtWu3gVV6Vztzx0KbdI-CQ_p_ehqefj-Flr0ie_AmEqL0oz-94gvby8-8gWwkromxTxIwpOcazj0aLw9Yu7b4Nhg8n3PTvfz13KjCQT0nsbEQVy8PY/s1600/vba-logo.png" height="65" width="200" /></a></div>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Comment déclencher l’exécution d’une <b>macro commande</b> ou d’une <b>procédure VBA</b> en fonction du temps, c’est-à-dire comment créer un minuteur pouvant déclencher l’exécution d’une action à une date précise ou après un intervalle de temps déterminé. Nous allons étudier ici la <b>méthode </b><i><b>OnTime </b></i>de l’<b>objet application</b> qui permet d’arrivée à ce résultat. Cette méthode es décrite à l’aide de 4 paramètres que nous allons décrire ici. La syntaxe en est : </span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></span> <br />
<div style="text-align: center;">
<b><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Application.OnTime EarliestTime, Procedure, [LatestTime], [Schedule] </span></span></b></div>
<h2>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"> </span></span></h2>
<h2>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">EarliestTime</span></span></h2>
<h2>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"> </span></span></h2>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><i>(Argument obligatoire)</i> est la valeur temps qui indique le moment de démarrage d’une <b>procédure</b>. Cette programmation horaire peut s’écrire et se concevoir e deux manières :</span></span><br />
<h3>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"> </span></span></h3>
<h3>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Lancer une procédure à une heure précise : </span></span></h3>
<h3>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"> </span></span></h3>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Dans ce premier exemple (Sub attendre_exemple1) l’exécution de la macro aura lieu à 10 h et 53’. Nous utilisons la fonction <a href="http://msdn.microsoft.com/fr-fr/library/office/gg278435%28v=office.15%29.aspx" target="_blank">TimeValue( ) </a>qui va retourner une variable de type <b>date</b> contenant l’heure. Ensuite la méthode <i><b>OnTime </b></i>exécutera la procédure affiche_1 (noter que le nom de la procédure est utilisé sous la forme d’une <b>chaîne de texte</b>). La boite de dialogue affiche alors l’heure courante.</span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></span> <span style="font-family: "Courier New",Courier,monospace;"><span style="font-size: small;">Public heure As Date <span style="font-size: x-small;"><span style="color: lime;">‘ou Variant</span></span></span></span><br />
<span style="font-family: "Courier New",Courier,monospace;"><span style="font-size: small;">Sub attendre_exemple1() <span style="font-size: x-small;"><span style="color: lime;">‘la macro est ici accrochée à un bouton de commande de la feuille de calcul</span></span></span></span><br />
<span style="font-family: "Courier New",Courier,monospace;"><span style="font-size: small;">heure = TimeValue("10:53:00")</span></span><br />
<span style="font-family: "Courier New",Courier,monospace;"><span style="font-size: small;">Application.OnTime heure, "affiche_1", , True</span></span><br />
<span style="font-family: "Courier New",Courier,monospace;"><span style="font-size: small;">End Sub</span></span><br />
<span style="font-family: "Courier New",Courier,monospace;"><span style="font-size: small;">Sub affiche_1()</span></span><br />
<span style="font-family: "Courier New",Courier,monospace;"><span style="font-size: small;">MsgBox "ll est : " & heure, vbOKOnly + vbInformation, "Horloge : "</span></span><br />
<span style="font-family: "Courier New",Courier,monospace;"><span style="font-size: small;">End Sub</span></span><br />
<h3>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"> </span></span></h3>
<h3>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Lancer une procédure après un délai imposé :</span></span></h3>
<h3>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"> </span></span></h3>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Dans ce deuxième exemple il faudra attendre 10 secondes pour voir la <b>macro </b>s’exécuter. Nous utilisons la fonction <a href="http://msdn.microsoft.com/fr-fr/library/office/gg278671%28v=office.15%29.aspx" target="_blank">Now </a>qui va retourner une variable de type date contenant l’heure et la date système de l’ordinateur à laquelle nous allons ajouter le délai. <b><i>OnTime </i></b>exécutera la procédure affiche_2. <b>La boite de dialogue</b> affiche ici la date système complète.</span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></span> <span style="font-family: "Courier New",Courier,monospace;"><span style="font-size: small;">Public heure As Date</span></span><br />
<span style="font-family: "Courier New",Courier,monospace;"><span style="font-size: small;">Sub attendre_exemple_2()<span style="color: lime;"><span style="font-size: x-small;">‘la macro est ici accrochée à un bouton de commande de la feuille de calcul</span></span></span></span><br />
<span style="font-family: "Courier New",Courier,monospace;"><span style="font-size: small;">heure = Now + TimeValue("00:00:10")</span></span><br />
<span style="font-family: "Courier New",Courier,monospace;"><span style="font-size: small;">Application.OnTime heure, "affiche_2", , True</span></span><br />
<span style="font-family: "Courier New",Courier,monospace;"><span style="font-size: small;">End Sub</span></span><br />
<span style="font-family: "Courier New",Courier,monospace;"><span style="font-size: small;">Sub affiche_2()</span></span><br />
<span style="font-family: "Courier New",Courier,monospace;"><span style="font-size: small;">MsgBox heure, vbOKOnly + vbInformation, "Horloge : "</span></span><br />
<span style="font-family: "Courier New",Courier,monospace;"><span style="font-size: small;">End Sub</span></span><br />
<h2>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"> </span></span></h2>
<h2>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Procedure</span></span></h2>
<h2>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"> </span></span></h2>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><i>(Argument obligatoire) </i>est la valeur de type <b>chaîne de texte</b> qui contient le nom de la <b>procédure </b>à exécuter.</span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></span> <b><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">LatestTime</span></span></b><br />
<br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></span> <span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><i>(Argument facultatif) </i>est la valeur temps qui indique le délai maximal d’attente d’Excel en cas d’indisponibilité de ce dernier (exécution d’une autre procédure en cours). Si le logiciel n'est pas disponible au bout de ce délai, la procédure ne s'exécutera pas. Si ce paramètre est omis, le logiciel peut attendre indéfiniment avant l’exécution de OnTime, il semble donc que cette seconde option soit recommandable.</span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Si vous devez indiquer une valeur LatestTime, vous pouvez la calculer à partir de EarliestTime.</span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></span> <br />
<div style="text-align: center;">
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><b>LatestTime = EarliestTime + 10</b> <span style="font-size: x-small;"><span style="color: lime;">'pour attendre 10 secondes la disponibilité d’Excel. </span></span></span></span></div>
<h2>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Schedule</span></span></h2>
<h2>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"> </span></span></h2>
<h2>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"> </span></span><span style="font-weight: normal;"><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><i>(Argument facultatif)</i> est la valeur de type <b>booléen </b>qui indique si la procédure doit être exécutée ou non. La valeur par défaut est <b>True</b>. Le problème est que pour stopper une procédure <b><i>OnTime </i></b>il faut renvoyer à nouveau cette dernière en paramétrant la valeur de <b>Schedule </b>à <b>False</b>. Cette opération générant une erreur il faudra utiliser le processus habituel en matière de gestion d’erreur « <b>On </b><a href="http://msdn.microsoft.com/fr-fr/library/office/gg278586%28v=office.15%29.aspx" target="_blank">Error </a><b>Resume Next</b> » qui détournera tous messages d’erreurs liés aux instructions suivantes. </span></span></span></h2>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Dans ce troisième et dernier exemple, nous allons afficher à quatre reprises (pendant une minute) l’heure courante dans la cellule A1 (mise en format hh:mm:ss) avec un intervalle de 15 secondes entre chaque nouvel affichage, puis nous interromprons la procédure en passant l’argument <b>Schedule </b>à <b>False</b>, c’est seulement de cette manière que l’arrêt de la <b>méthode</b> <i><b>OnTime </b></i>s’effectue convenablement.</span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></span> <span style="font-family: "Courier New",Courier,monospace;"><span style="font-size: small;">Public heure As Date</span></span><br />
<span style="font-family: "Courier New",Courier,monospace;"><span style="font-size: small;">Public compteur As Byte</span></span><br />
<span style="font-family: "Courier New",Courier,monospace;"><span style="font-size: small;">Sub attendre_exemple_3()()<span style="color: lime;"><span style="font-size: x-small;">‘la macro est ici accrochée à un bouton de commande de la feuille de calcul</span></span></span></span><br />
<span style="font-family: "Courier New",Courier,monospace;"><span style="font-size: small;">heure = Now + TimeValue("00:00:15")</span></span><br />
<span style="font-family: "Courier New",Courier,monospace;"><span style="font-size: small;">Application.OnTime heure, "affiche_3", , True</span></span><br />
<span style="font-family: "Courier New",Courier,monospace;"><span style="font-size: small;">End Sub</span></span><br />
<span style="font-family: "Courier New",Courier,monospace;"><span style="font-size: small;">Sub affiche_3()</span></span><br />
<span style="font-family: "Courier New",Courier,monospace;"><span style="font-size: small;">Dim EcrireH As String</span></span><br />
<span style="font-family: "Courier New",Courier,monospace;"><span style="font-size: small;">Range("a1").ClearContents</span></span><br />
<span style="font-family: "Courier New",Courier,monospace;"><span style="font-size: small;">EcrireH = heure</span></span><br />
<span style="font-family: "Courier New",Courier,monospace;"><span style="font-size: small;">Range("a1").Value = EcrireH</span></span><br />
<span style="font-family: "Courier New",Courier,monospace;"><span style="font-size: small;">compteur = compteur + 1</span></span><br />
<span style="font-family: "Courier New",Courier,monospace;"><span style="font-size: small;">If compteur = 4 Then</span></span><br />
<span style="font-family: "Courier New",Courier,monospace;"><span style="font-size: small;">MsgBox "TERMINE", vbOKOnly + vbInformation, "Horloge : "</span></span><br />
<span style="font-family: "Courier New",Courier,monospace;"><span style="font-size: small;">Range("a1").ClearContents</span></span><br />
<span style="font-family: "Courier New",Courier,monospace;"><span style="font-size: small;">compteur = 0</span></span><br />
<span style="font-family: "Courier New",Courier,monospace;"><span style="font-size: small;">On Error Resume Next</span></span><br />
<span style="font-family: "Courier New",Courier,monospace;"><span style="font-size: small;">Application.OnTime heure, "affiche_3", , False</span></span><br />
<span style="font-family: "Courier New",Courier,monospace;"><span style="font-size: small;">Else</span></span><br />
<span style="font-family: "Courier New",Courier,monospace;"><span style="font-size: small;">attendre_exemple_3</span></span><br />
<span style="font-family: "Courier New",Courier,monospace;"><span style="font-size: small;">End If</span></span><br />
<span style="font-family: "Courier New",Courier,monospace;"><span style="font-size: small;">End Sub</span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></span> <span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Bon courage pour vos tests et vos adaptations...</span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></span> <span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></span> Olivier VBAhttp://www.blogger.com/profile/01518798078822033158noreply@blogger.com2tag:blogger.com,1999:blog-3257543995828262470.post-21891748053777329562014-02-01T11:16:00.000+01:002014-02-01T11:17:58.210+01:00Excel 2013 : Le mode SDI<br />
<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEghwLp_Qt0LXTklS6fCTWvPrDWPDF4brOuRiNqdurx0llKMf4_FbDYJ6hTQd4h-ZqFuv8yaN2nSXFOEJXGaFGorjtv3npCNJuPcn79mZwjglLGItc6C4QsOLS_2MCcX_OSdEii_76BQLbE/s1600/excel_2013.jpg" imageanchor="1" style="clear: right; float: right; margin-bottom: 1em; margin-left: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEghwLp_Qt0LXTklS6fCTWvPrDWPDF4brOuRiNqdurx0llKMf4_FbDYJ6hTQd4h-ZqFuv8yaN2nSXFOEJXGaFGorjtv3npCNJuPcn79mZwjglLGItc6C4QsOLS_2MCcX_OSdEii_76BQLbE/s1600/excel_2013.jpg" height="200" width="136" /></a><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></span> <span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Dans la nouvelle version du logiciel <a href="http://office.microsoft.com/fr-fr/support/premiers-pas-avec-excel-2013-FX102832586.aspx">Excel 2013</a> le mode <b>SDI </b>(single document interface) remplace le mode <b>MDI </b>(multiple document interface), d'accord mais de quoi s'agit il concrètement ? En fait à chaque ouverture d'un nouveau <b>classeur </b>celui ci apparaitra dans une nouvelle <b>fenêtre </b>du logiciel.</span></span><br />
<br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Ainsi vous n'avez plus plusieurs fenêtres de documents à l'intérieur d'un seule instance du logiciel, donc il devient possible par exemple d'afficher deux classeurs sur deux écrans distinctes. Cela facilite la consultation des classeurs et l'ensemble des travaux en multi-fenêtrage comme le passage d'informations d'un classeur à l'autre par exemple. </span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Cette petite vidéo vous en fait la démonstration.</span></span><br />
<br />
<br />
<iframe allowfullscreen="" frameborder="0" height="270" src="http://www.dailymotion.com/embed/video/x1alcjk" width="480"></iframe><br />
<br />
<a href="http://www.dailymotion.com/video/x1alcjk_excel-2013-le-mode-sdi_tech" target="_blank">Excel 2013 : Le mode SDI</a> <i>par <a href="http://www.dailymotion.com/O_Picot_chez_AV" target="_blank">O_Picot_chez_AV</a></i><br />
<br />
<br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Bonne consultation...</span></span><br />
<br />
<br />
<br />Olivier VBAhttp://www.blogger.com/profile/01518798078822033158noreply@blogger.com0tag:blogger.com,1999:blog-3257543995828262470.post-58691616216607426592014-01-25T14:38:00.000+01:002014-01-25T14:39:12.620+01:00Excel 2013 : Manipuler Quick Trend<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgWsp0qrPuMIPBD8OyWboafvy4IIqrnOOftHnSyenbNKtc7j5xeFEhhDRGWOQoEgNLDVADPZXCD8PFGr4v3VkHgBwXp0fwy4YymZDUrJKOssnKVFXjeioN6ujasrK1JfF7YIzo5MaTkAHE/s1600/quicktrend.jpg" imageanchor="1" style="clear: right; float: right; margin-bottom: 1em; margin-left: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgWsp0qrPuMIPBD8OyWboafvy4IIqrnOOftHnSyenbNKtc7j5xeFEhhDRGWOQoEgNLDVADPZXCD8PFGr4v3VkHgBwXp0fwy4YymZDUrJKOssnKVFXjeioN6ujasrK1JfF7YIzo5MaTkAHE/s1600/quicktrend.jpg" height="126" width="200" /></a><br />
<span style="font-family: Georgia,"Times New Roman",serif;">Dans cette nouvelle vidéo, je vous montre une autre nouveauté du logiciel <a href="http://office.microsoft.com/fr-fr/excel-help/decouverte-dexcel-2013-RZ102924304.aspx" target="_blank">Microsoft Excel 2013</a> : La <b>fonction </b>"<b>quick Trend</b>" (traduire <b>analyse </b>ou <b>tendance </b>rapide). Cette nouvelle fonctionnalité vous offre un gain de temps considérable dans la réalisation de nombreux travaux.</span><br />
<br />
<span style="font-family: Georgia,"Times New Roman",serif;">Que ce soit en matière de création de <b>liste de données, </b>de <b>tableaux croisés dynamiques, </b>de <b>mise en forme conditionnelle</b> ou de l’élaboration de simple <b>formules de calculs, graphiques </b>ou <b>sparklines</b>, le système fait une analyse de vos données et vous propose de manière contextuelle l'outil le mieux adapté à vos besoins.</span><br />
<br />
<span style="font-family: Georgia,"Times New Roman",serif;"> Souvent les <b>assistants logiciels</b>, s'ils nous font gagner du temps, présentent l'inconvénient majeur de ne pas nous permettre de comprendre ce que nos sommes en train de réaliser. Dans ce cas de figure, je dois reconnaître que le système est pédagogique et que le gain de productivité est réel.</span><br />
<span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span> <span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span> <span style="font-family: Georgia,"Times New Roman",serif;"><iframe allowfullscreen="" frameborder="0" height="270" src="http://www.dailymotion.com/embed/video/x1aapoz" width="480"></iframe><br />
</span> <span style="font-family: Georgia,"Times New Roman",serif;"><br /><a href="http://www.dailymotion.com/video/x1aapoz_excel-2013-la-fonction-quick-trend_tech" target="_blank">Excel 2013 : La fonction Quick Trend</a> <i>par <a href="http://www.dailymotion.com/O_Picot_chez_AV" target="_blank">O_Picot_chez_AV</a></i></span><br />
<span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span> <span style="font-family: Georgia,"Times New Roman",serif;">Bonne consultation... </span><br />
<br />
<br />
Olivier VBAhttp://www.blogger.com/profile/01518798078822033158noreply@blogger.com0tag:blogger.com,1999:blog-3257543995828262470.post-70064459637810710772014-01-23T09:09:00.002+01:002014-01-23T09:20:58.398+01:00Excel 2013 : Utiliser "Bing Maps"<br />
<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiPYWRQtih9yjUk00kPteW9r07bSTAEnpOAzVCgQadi_PTjuXfS7V9ce7KMAmWejKVV62zDGmRzP1zC5oTAEacR4qdia1-58rW1iPZ0WndaY-_WtJbUZobaIFJxZpwXW6tUF1xkfVHsNlo/s1600/maps2.jpg" imageanchor="1" style="clear: right; float: right; margin-bottom: 1em; margin-left: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiPYWRQtih9yjUk00kPteW9r07bSTAEnpOAzVCgQadi_PTjuXfS7V9ce7KMAmWejKVV62zDGmRzP1zC5oTAEacR4qdia1-58rW1iPZ0WndaY-_WtJbUZobaIFJxZpwXW6tUF1xkfVHsNlo/s1600/maps2.jpg" /></a><span style="font-family: Georgia,"Times New Roman",serif;">Voici une nouveauté très intéressante de la <b>version 2013</b> (365) d'<b>Excel</b>, l'application "<a href="http://office.microsoft.com/fr-fr/store/?CTT=97" target="_blank">Bing Maps</a>" qui va permettre d’afficher sous forme de <b>graphique </b>(<i>pie chart</i> ou <i>circle</i>) et sur une carte routière ou satellitaire une répartition de données chiffrées. </span><br />
<br />
<span style="font-family: Georgia,"Times New Roman",serif;">La vidéo explique comment obtenir cet affichage à partir de votre tableau de données, quelques clics suffiront à sa réalisation et à son paramétrage.</span><br />
<br />
<br />
<iframe allowfullscreen="" frameborder="0" height="270" src="http://www.dailymotion.com/embed/video/x1a5s3n" width="480"></iframe><br />
<br />
<span style="font-family: Georgia,"Times New Roman",serif;"><a href="http://www.dailymotion.com/video/x1a5s3n_excel-2013-utiliser-l-application-bing-maps_tech" target="_blank">Excel 2013 : Utiliser l'application Bing Maps</a> <i>par <a href="http://www.dailymotion.com/O_Picot_chez_AV" target="_blank">O_Picot_chez_AV</a></i></span><br />
<span style="font-family: Georgia,"Times New Roman",serif;"><br /></span>
<span style="font-family: Georgia,"Times New Roman",serif;">Bonne consultation... </span><br />
<br />
<br />Olivier VBAhttp://www.blogger.com/profile/01518798078822033158noreply@blogger.com0tag:blogger.com,1999:blog-3257543995828262470.post-88186705800647966702014-01-22T09:49:00.002+01:002014-01-23T09:21:15.198+01:00Excel 2013 : Incorporer une application Office<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEikUwZlapmC6Sf_8MkjgvmP8EnKONbnq-ZHzl4H28UZ4R-voKEIaiFQVvKZYZEDsVTSTZ9Z63YyivWcq1-u-dv8ZmLGYVuWV-GClQDcdyjEnfGa683xBNmgf5xG4OPPsLguRTWKVNgnOfo/s1600/bingMap.jpg" imageanchor="1" style="clear: right; float: right; margin-bottom: 1em; margin-left: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEikUwZlapmC6Sf_8MkjgvmP8EnKONbnq-ZHzl4H28UZ4R-voKEIaiFQVvKZYZEDsVTSTZ9Z63YyivWcq1-u-dv8ZmLGYVuWV-GClQDcdyjEnfGa683xBNmgf5xG4OPPsLguRTWKVNgnOfo/s1600/bingMap.jpg" /></a><br />
Comment enrichir les logiciels de la <b>suite Office 2013</b> (ou <b>365</b>) ? <b>Microsoft </b>met à disposition des utilisateurs une boutique en ligne, <a href="http://office.microsoft.com/fr-fr/store/?CTT=97" target="_blank">Office store </a>permettant l’accès à de nombreux modules complémentaires, payants ou gratuits. Ces <b>applications </b>peuvent être développées pour un logiciel unique, <b>Excel </b>par exemple, ou être transversales et donc utilisable également dans les logiciels, <b>Outlook</b>, <b>Sharepoint</b>, <b>Word, </b><b>Powerpoint</b>...<br />
<br />
Dans cette vidéo je vous montre comment réussir l'incorporation de l'application "<b>Bing Maps</b>" permettant l'exploitation de travaux statistiques sur une carte géographique. Cette exploitation fera d'ailleurs l'objet d'une prochaine vidéo...<br />
<br />
<br />
<iframe allowfullscreen="" frameborder="0" height="270" src="http://www.dailymotion.com/embed/video/x1a3ry2" width="480"></iframe><br />
<br />
<a href="http://www.dailymotion.com/video/x1a3ry2_office-365-insertion-d-une-application-office_tech" target="_blank">Office 365 : Insertion d'une application office</a> <i>par <a href="http://www.dailymotion.com/O_Picot_chez_AV" target="_blank">O_Picot_chez_AV</a></i><br />
<br />
Bonne consultation...<br />
<br />
<br />
<br />Olivier VBAhttp://www.blogger.com/profile/01518798078822033158noreply@blogger.com0tag:blogger.com,1999:blog-3257543995828262470.post-58804409212577403672014-01-21T11:42:00.001+01:002014-01-23T09:19:56.416+01:00Excel 2013 : La méthode Flash Fill<br />
<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiTtHgGKzOfZmJ9Ir6w33Jg1Hy9q8lx9yCwEda6tmagBem7GUyGLADcHW_wSf2HcP9I2VtqM0cAGdOrZChKG6joVshiySsBeMExzCr_xD3SkukkwMbVfw-vHqyD3lHMoQHnoV0yfMGTg3Q/s1600/Excel-2013-Logo.jpg" imageanchor="1" style="clear: right; float: right; margin-bottom: 1em; margin-left: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiTtHgGKzOfZmJ9Ir6w33Jg1Hy9q8lx9yCwEda6tmagBem7GUyGLADcHW_wSf2HcP9I2VtqM0cAGdOrZChKG6joVshiySsBeMExzCr_xD3SkukkwMbVfw-vHqyD3lHMoQHnoV0yfMGTg3Q/s1600/Excel-2013-Logo.jpg" /></a><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">En ce début d'année 2014, je reprend la publication de mes articles sur une nouvelle thématique : "<b>Les nouveautés du logiciel Excel 2013</b>". Pour ce premier article, découvrons ensemble à travers cette vidéo, la méthode <b>Flash fil</b> ou <b>remplissage automatique</b> qui permet une simplification très significative du traitement des <b>chaînes de caractères</b> dans Excel.</span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Oublier les <b>fonctions </b>complexes à manipuler et donnant simplement au tableur un exemple du résultat souhaité.</span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></span> <span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"></span></span><br />
<iframe allowfullscreen="" frameborder="0" height="270" src="http://www.dailymotion.com/embed/video/x1a1k21" width="480"></iframe><br />
<br />
<a href="http://www.dailymotion.com/video/x1a1k21_excel-2013-la-methode-flash-fill_tech" target="_blank">Excel 2013 : La méthode Flash Fill</a> <i>par <a href="http://www.dailymotion.com/O_Picot_chez_AV" target="_blank">O_Picot_chez_AV</a></i><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></span> <span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Je tiens à remercier particulièrement le site <a href="http://www.cathyastuce.com/index.php" target="_blank">Cathy Astuce</a>, qui m'a été très utile pour aborder clairement cette nouvelle notion. N'hésitez pas à consulter <a href="http://www.cathyastuce.com/office/office-2013/flasfill-excel-2013.html" target="_blank">son article</a> sur le sujet, il apporte un grand nombre d'informations complémentaires.</span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></span> <span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Pour ma part j'en profite pour souhaiter à tous mes lecteurs, une excellente année 2014. </span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></span> <span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></span> <span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br />
</span></span> Olivier VBAhttp://www.blogger.com/profile/01518798078822033158noreply@blogger.com0tag:blogger.com,1999:blog-3257543995828262470.post-74884525618449825042013-09-27T12:37:00.001+02:002013-09-27T12:37:51.375+02:00VBA : Esope reste ici et se repose<br />
<br />
Poursuivons notre tour d'horizon des classiques incontournables de l'algorithmie. Un moment décisif dans l'étude est celui ou l'on aborde la question des <b>tableaux</b>, entrainant automatiquement des questions de <b>typage</b>, <b>dimensionnement</b>, <b>tri</b>, et autres interrogations...<br />
<br />
Il vous sera alors impossible d'échapper au probléme dit du "<b>palindrome</b>", comme vous le savez, il s'agit d'une expression lisible indifféremment de gauche à droite ou de droite à gauche, conformément au titre de cet article.<br />
<br />
Le code suivant vérifiera si le contenu de la cellule A1 contient ou non un "<b>palindrome</b>", mais il ne sera pas utile de manipuler des tableaux de variables puisqu'il existe une fonction <b>VBA </b>nommée <b>StrReverse()</b> qui inverse automatiquement le contenu d'une chaîne de caractères en langage <b>VBA</b>.<br />
<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgj-tA1LkGnDDzU5GkwzkvqKGsOTUw_GedX1HiQvaxtvp6210oQMvR9VeqL3_8bR1MMOXeooybcuh-WAlpMLEn4TR9lar6VQBVtK1qLld_tUv6_JfB4_RmMNE9sowy8puIjrKOvmdcdp5k/s1600/palin1.jpg" imageanchor="1" style="clear: right; float: right; margin-bottom: 1em; margin-left: 1em;"><img border="0" height="184" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgj-tA1LkGnDDzU5GkwzkvqKGsOTUw_GedX1HiQvaxtvp6210oQMvR9VeqL3_8bR1MMOXeooybcuh-WAlpMLEn4TR9lar6VQBVtK1qLld_tUv6_JfB4_RmMNE9sowy8puIjrKOvmdcdp5k/s320/palin1.jpg" width="320" /></a>Sub palindrome()<br />Dim chaine As String<br />Dim chaine2 As String<br />chaine = Trim(Application.Substitute(Range("a1").Value, " ", ""))<br /><span style="color: red;">'==> Trim() La chaine est nettoyé des espaces placés éventuellement devant ou derriére l'expression<br />'==> application.substitute()<br />'Les espaces entre les mots sont supprimés quand vous ignorez une fonction VBA, utilisez<br />'la fonction excel qui devient alors une méthode de l'objet application</span><br />chaine2 = StrReverse(chaine)<br /><span style="color: red;">'il ne reste plus alors que la comparaison</span><br />If chaine = chaine2 Then<br /> MsgBox "La chaine contenu en a1" _<br /> & Chr(10) & "est un palindrome" _<br /> , vbOKOnly + vbCritical, "palindrome"<br />Else<br /> MsgBox "La chaine contenu en a1" _<br /> & Chr(10) & "n'est pas un palindrome" _<br /> , vbOKOnly + vbCritical, "palindrome"<br />End If<br />End Sub<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgQWKyCE7Iy41y8SGXzuNBLXJizsx_LSmaPPe328Tr_p2A8BLi1sWkEt7WsqkHNLVzGa2kFAkSfSeDk_GfZBuTinuMlBrJ87YnZg6kLAHr9CSY4Km5LKZBFxtqCkm8Jc8BRl-6Bz4XerII/s1600/palin2.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="220" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgQWKyCE7Iy41y8SGXzuNBLXJizsx_LSmaPPe328Tr_p2A8BLi1sWkEt7WsqkHNLVzGa2kFAkSfSeDk_GfZBuTinuMlBrJ87YnZg6kLAHr9CSY4Km5LKZBFxtqCkm8Jc8BRl-6Bz4XerII/s320/palin2.jpg" width="320" /></a></div>
A la semaine prochaine...<br />
<br />
<br />
<br />
<br />Olivier VBAhttp://www.blogger.com/profile/01518798078822033158noreply@blogger.com0tag:blogger.com,1999:blog-3257543995828262470.post-79794297278263215712013-09-10T15:55:00.000+02:002013-09-10T15:56:58.788+02:00VBA : La suite de Fibonacci<br />
<br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Poursuivons sur le thème de la semaine dernière, à savoir l'utilisation des <b>fonctions récursives</b> en <b>VBA</b>. Un autre exemple incontournable en algorithmie se trouve dans la <a href="http://fr.wikipedia.org/wiki/Suite_de_Fibonacci" target="_blank">suite de Fibonacci</a>, un <a href="http://fr.wikipedia.org/wiki/Leonardo_Fibonacci" target="_blank">mathématicien italien</a> du 13éme siècle.</span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Il s'agit d'une suite d'entier dans laquelle chaque terme est le somme des deux termes qui le précédent. Si on démarre la suite en posant<b> F(0) = 0 et F(1) = 1</b>, le reste de la suite s'écrira : </span></span><br />
<br />
<div style="text-align: center;">
<span style="background-color: orange;"><b><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">F(n) = F(n-1) + F(n-2)</span></span></b></span></div>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br /></span></span>
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">De quoi écrire une belle fonction récursive de type :</span></span><br />
<span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;"><br /></span></span>
<br />
<pre><i><span style="font-family: Georgia,"Times New Roman",serif;"><span style="font-size: small;">fonction fibo(n)
si (n ≤ 1)
retourner n
sinon
retourner fibo(n - 1) + fibo(n - 2)
fin de la fonction</span></span></i></pre>
<pre><span style="font-family: Georgia,"Times New Roman",serif;"><span style="font-size: small;"> </span></span></pre>
<pre><span style="font-family: Georgia,"Times New Roman",serif;"><span style="font-size: small;">Voici sa traduction en <b>VBA</b>, ici on saisira un nombre entier dans la cellule F1 de la feuille de</span></span></pre>
<pre><span style="font-family: Georgia,"Times New Roman",serif;"><span style="font-size: small;">calcul, et <b>Excel</b>, enrichie de cette nouvelle fonction retournera le résultat en E7.</span></span></pre>
<pre><span style="font-family: Georgia,"Times New Roman",serif;"><span style="font-size: small;"> </span></span></pre>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi_Ho0CQkQqEUXJ_B-JaZ1c9iCFa00AjSlw9bxNKhfcCUvQyfE6SKg2k6A5a1qhEqzXtv9sekNvkUMJ4NyP6GmDUzKbmNW8vxuNoACmbIVpWUOI83gdYxitl7lOGcoV12vvCnZwhDhoh4Q/s1600/fibo1.jpg" imageanchor="1" style="clear: right; float: right; margin-bottom: 1em; margin-left: 1em;"><img border="0" height="188" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi_Ho0CQkQqEUXJ_B-JaZ1c9iCFa00AjSlw9bxNKhfcCUvQyfE6SKg2k6A5a1qhEqzXtv9sekNvkUMJ4NyP6GmDUzKbmNW8vxuNoACmbIVpWUOI83gdYxitl7lOGcoV12vvCnZwhDhoh4Q/s320/fibo1.jpg" width="320" /></a></div>
<pre><span style="font-family: Georgia,"Times New Roman",serif;"><span style="font-size: small;">Function fibonacci(ByVal n As Integer) As Long
If n <= 0 Then
<span style="color: red;">'definition de F(0) et F(1)</span>
fibonacci = 0
Else
If n = 1 Then
fibonacci = 1
Else
<span style="color: red;"> 'recurence à partir du rang 2</span>
fibonacci = fibonacci(n - 1) + fibonacci(n - 2)
End If
End If
End Function</span></span></pre>
<pre><span style="font-family: Georgia,"Times New Roman",serif;"><span style="font-size: small;"> </span></span></pre>
<pre><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Toutefois la récursivité ne s’avère pas toujours, la méthode de calcul la plus rapide,
aussi voici un algorithme plus linéaire dans l’hypothèse de la manipulation de grand nombres.</span></span></pre>
<pre><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">
</span></span></pre>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgDs-hcavROywc15z-vEutjk3w33uc6iC2GF_7_GJj0XiAGW2DT72tGFlLrfxHpLuOFQQ9pFv4UiKO2GbFfXk8HUrX-5oYgG91kSuW5abIRq6zwKpwz5sE8m2nP1SQ6ObNVgnVpVd54-Lw/s1600/fibo2.jpg" imageanchor="1" style="clear: right; float: right; margin-bottom: 1em; margin-left: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgDs-hcavROywc15z-vEutjk3w33uc6iC2GF_7_GJj0XiAGW2DT72tGFlLrfxHpLuOFQQ9pFv4UiKO2GbFfXk8HUrX-5oYgG91kSuW5abIRq6zwKpwz5sE8m2nP1SQ6ObNVgnVpVd54-Lw/s1600/fibo2.jpg" /></a></div>
<pre><span style="font-size: small;"><span style="font-family: Georgia,"Times New Roman",serif;">Sub Debut()
Dim x As Byte
x = InputBox("entrez un entier n = ", "", 0)
fibonacci x
End Sub</span></span></pre>
<pre><span style="font-family: Georgia,"Times New Roman",serif;"><span style="font-size: small;"><span style="color: red;">'***************************************</span>
Function fibo(ByVal n As Byte) As Integer
Dim f1 As Integer
Dim f2 As Integer
Dim i As Byte
Select Case n
Case 0
fibo = 0
Case 1, 2
fibo = 1
Case Else
f1 = 1
f2 = 1
For i = 3 To n
fibo = f2 + f1
f2 = f1
f1 = fibo
Next i
End Select
MsgBox "F " & n & " = " & fibo, vbOKOnly + vbCritical, "Fibonacci"
End Function</span></span></pre>
<pre><span style="font-family: Georgia,"Times New Roman",serif;"><span style="font-size: small;"> </span></span></pre>
<pre><span style="font-family: Georgia,"Times New Roman",serif;"><span style="font-size: small;"> </span></span></pre>
<pre><span style="font-family: Georgia,"Times New Roman",serif;"><span style="font-size: small;"> </span></span></pre>
<pre></pre>
Olivier VBAhttp://www.blogger.com/profile/01518798078822033158noreply@blogger.com0