|
| numéro = 9
| niveau = 14
| précédent = [[../DevenezGestion undes connaisseurdroits et répertoires/]]
| suivant = [[../DébogageBases de données/]]
}}
Transféré sur la page [[Macros-commandes_VBA/Devenez_un_expert]]
== Introduction ==
Le langage ou code VBA contient différentes entités : des données, des modules, des classes, des structures, des instructions, des objets, des procédures, des fonctions, … Ces entités représentées par des lignes de texte s’organisent de façon purement hiérarchique
* les classeurs contiennent des projets (1 projet par classeur)
* les projets contiennent les modules de code, de classe, de feuille, ou de formulaire, regroupés par catégories
* les modules contiennent des directives, des déclarations, des fonctions, des procédures
* les procédures et fonctions contiennent des instructions (lignes de code)
== Les contenants de code VBA ==
Le code VBA est saisi et stocké dans 2 types de récepteurs sous un format uniquement textuel : des feuilles et des modules
* Feuille : objet EXCEL accueillant les procédures particulières à une feuille de calcul EXCEL, cet objet contient le plus souvent des procédures et fonctions concernant des objets s’appliquant à lui-même.
* Module de code standard : objet VBA accueillant les procédures générales, le plus souvent contiennent des fonctions dites "utilitaires".
* Module formulaire : objet VBA contenant les procédures événementielles propres au formulaire traité. Il peut également contenir des procédures générales (à éviter). Ex : une procédure de traitement de date serait stockée dans un module standard pour pouvoir être utilisée dans tous les formulaires concernés.
* Module de classe : objet VBA contenant les données et procédures pour un objet (on parle alors de propriétés et de méthodes). Ex : un objet compte en banque qui décrit ses données (mouvement, solde, …) et les opérations sur ses données (retrait, dépôt, virement, …).
== Les données des experts ==
=== Les variables ===
Les variables permettent de stocker toutes sortes de données et de faire évoluer les valeurs notamment lors de l’utilisation de boucles.
Les variables sont généralement déclarées en début de procédure puisqu’une variable doit être définie avant d’être utilisée.
<table class="wikitable">
<tr>
<th>Nom</th>
<th>Type</th>
<th>Détail</th>
</tr>
<tr>
<td>Byte</td>
<td>Numérique</td>
<td>Nombre entier de 0 à 255</td>
</tr>
<tr>
<td>Integer</td>
<td>Numérique</td>
<td>Nombre entier de -32'768 à 32'767</td>
</tr>
<tr>
<td>Long</td>
<td>Numérique</td>
<td>Nombre entier de -2'147'483'648 à 2'147'483'647</td>
</tr>
<tr>
<td>Currency</td>
<td>Numérique</td>
<td>Nombre à décimal fixe de -992'337'203'685'477.5808 à 992'337'203'685'477.5807</td>
</tr>
<tr>
<td>Single</td>
<td>Numérique</td>
<td>Nombre à virgule flottante de -3.402823E38 à 3.402823E38</td>
</tr>
<tr>
<td>Double</td>
<td>Numérique</td>
<td>Nombre à virgule flottante de -1,79769313486232D308 à 1,79769313486232D308</td>
</tr>
<tr>
<td>String</td>
<td>Texte</td>
<td>Texte</td>
</tr>
<tr>
<td>Date</td>
<td>Date</td>
<td>Date et heure</td>
</tr>
<tr>
<td>Boolean</td>
<td>Boolean</td>
<td>True (vrai) ou False (faux)</td>
</tr>
<tr>
<td>Object</td>
<td>Objet</td>
<td>Objet Microsoft</td>
</tr>
<tr>
<td>Variant</td>
<td>Tous</td>
<td>Tout type de données (type par défaut si la variable n'est pas déclarée)</td>
</tr>
</table>
Une variable est définie selon l’utilisation que l’on va en faire. Le type de variable choisi était auparavant fondamental au niveau de la mémoire utilisée par l’ordinateur, mais de nos jours ce problème n’est plus d’actualité car les ordinateurs ont de grandes mémoires.
=== Les nombres spéciaux VBA ===
'''Définition''' : les nombres sont des variables contenant des chiffres et des séparateurs décimaux, il y a 2 types expert de nombres
* Entier Long : Long
* Booléen : Boolean
'''Dim''' monNombre '''As Boolean'''
monNombre est une variable destinée à contenir des nombres booléens(par exemple "0")
=== Les tableaux VBA ===
'''Définition''' : les tableaux sont des variables contenant d'autres variables de même type
'''Dim''' monTableau(10) '''As String'''
monTableau est un tableau contenant 10 éléments dont le type est une chaîne de caractères.
=== Les constantes VBA intégrées ===
'''Définition''' : les constantes intégrées sont fournies par les applications OFFICE (Word, Excel, …) ou le langage Visual Basic :
Si la constante commence par vb alors c’est une constante intégrée à VBA
Si la constante commence par xl alors c’est une constante intégrée à EXCEL
Si la constante commence par wd alors c’est une constante intégrée à WORD
…
Exemple : vbCrLf = retour à la ligne mais on ne peut pas écrire vbCrLf = Chr(13) + Chr(14)
== Les mots clés des experts ==
Les mots-clés des experts permettent de programmer des problématiques délicates ou complexes
Exemple : ReDim, Static, Do, Loop, Break, On, Continue, Set, etc.
== Les objets experts de la bibliothèque Excel ==
Les objets des experts permettent de programmer des problématiques délicates ou complexes
Exemple : Windows, Workbooks, Worksheets, Sheets, Font , Interior , Offset, Calendar, Charts, Names, CommandBars, Rows, Columns, UserForms, ...
On peut facilement insérer dans une feuille de calcul Excel ou dans une feuille Word divers objets (des "contrôles")comme
* des boutons : [[File:CommandButton1.gif|gauche|bouton]]
* des boutons d'options, des cases à cocher : [[File:OptionButton1.gif|gauche|Option button]]
* des zones de texte modifiables (textbox): [[File:Txt 94.gif|gauche|Figure]]
* des barres de défilement (scrollBar): [[File:Barre de défilement.gif|gauche|Barre crée pour aller de droite à gauche dans un tableur]]
* des boutons toupies (SpinButton), des zones de liste, des listes déroulantes : [[File:Barre de défilement.gif|gauche|Barre crée pour aller de droite à gauche dans un tableur]]
* des zones de texte (label) : [[File:Zone de texte.gif|gauche|Texte "m"]]
Il suffit de cliquer sur l’icône "boîte à outils" de la barre d’outils VBA (ou bien Affichage / Barres d'outils / Commandes), de sélectionner le contrôle souhaité et de de le glisser via la souris à l’endroit désiré.
On peut également utiliser tous ces "contrôles" dans une boite de dialogue (Userform) que l’on peut créer dans VBA par formulaire / Userform, puis faire apparaître à l'exécution d'une macro par: Userform("truc").Show et disparaître par Userform("truc").Hide.
== Les procédures et les fonctions expertes ==
=== Usages complexes ===
* Les paramètres ou arguments
* Les fonctions prédéfinies VBA
* Disponibilité des fonctions VBA sous Excel
* Les fonctions récursives
=== Les arguments des procédures ===
'''Définition''' : les arguments passés aux procédures sont aussi nommés paramètres, ce sont des valeurs nécessaires au traitement de la procédure. Exemple : après l'appel de la procédure ==> afficherMessageCible "ToiKeuJème", le résultat affiché à l’écran est : "Bonjour à ToiKeuJème"
<source lang=vb>
Sub afficherMessageCible (cible As String)
MsgBox "Bonjour à " & cible
End Sub
</source>
=== Les arguments et le résultat des fonctions ===
'''Définition''' : les arguments passés aux fonctions fonctionnent comme pour les procédures, le résultat est rangé sous le nom de la fonction. Exemple : après l'appel de la fonction ==> monBenefice = calculerBenefice(150,100), la variable monBenefice prend la valeur 150
<source lang=vb>
Function calculerBenefice(recettes As Double, depenses As Double) As Double
calculerBenefice = recettes - depenses
End Function
</source>
== Les instructions de débranchement ==
=== Les instructions conditionnelles complexes ===
{{Exemple
| contenu =
<source lang=vb>
If Range("E8").Value = "20"
Then MsgBox "MILLE BRAVO !!!"
Else if Range("E8").Value > "10" MsgBox "PETIT BRAVO !!!"
Else MsgBox "PAS BRAVO DU TOUT !!!"
End If
</source>
}}
==> L'exemple affiche "MILLE BRAVO !!!" si la valeur de la cellule E8 est 20 sinon affiche "PETIT BRAVO !!!" si la valeur de la cellule E8 est supérieure à 10, sinon affiche "PAS BRAVO DU TOUT !!!"
=== Les instructions de distinctions de cas ===
Cette instruction est utilisée lorsque le nombre de cas à tester(comme ci-dessus) devient important rendant difficiles les instructions employant des conditionnelles imbriquées (if...if...)
Selon une valeur de variable
En cas d'une valeur alors effectuer un traitement
En cas d'une autre valeur alors effectuer un autre traitement
Dans tous les autres cas alors effectuer le traitement encore un autre traitement
Fin Selon
{{Exemple
| contenu =
<source lang=vb>
Select Case Range("E8").Value
Case 20 : MsgBox "MILLE BRAVO !!!"
Case > 10 : MsgBox "PETIT BRAVO !!!"
Case else : "PAS BRAVO DU TOUT !!!"
End Select
</source>
}}
==> Selon la valeur de la cellule E8 l'exemple affiche soit "MILLE BRAVO !!!" soit "PETIT BRAVO !!!" soit "PAS BRAVO DU TOUT !!!"
{{attention|Impossible de placer plusieurs conditions après un <code>case</code>. Par exemple <code>Case False and False</code> peut très bien être considéré à tort comme <code>Case True</code>.}}
=== Les Instructions de boucles avec bornes inconnues ===
'''Les boucles non bornées''' le plus souvent utilisées sont les boucles de type « « While … Wend » », elles permettent de répéter un nombre de fois indéfini au départ un bloc d'instructions, elles utilisent une condition qui est testée au début de chaque répétition.
==== La boucle While / Wend ====
L'instruction While Wend répète une action tant qu'une condition est vraie.
While [condition]
[actions]
Wend
Si la condition est vraie, les actions indiquées dans la procédure sont effectuées. Quand l'instruction Wend est atteinte, la procédure revient sur l'instruction While et la condition est de nouveau vérifiée. Si la condition est toujours vraie, le processus est répété. Si la condition est fausse, l'exécution passe directement à la première ligne de code qui suit l'instruction Wend.
{{Exemple
| contenu =
<source lang=vb>
' L'exemple colorie l'intérieur de toutes les cellules non vides de la colonne A en violet
While not isEmpty(cellule)
ligne = ligne + 1
cellule = Range("A1").Offset(ligne - 1)
cellule.Interior.Color = RGB(255, 0, 255)
'La boucle s'arrête lorsque la cellule en cours est vide
Wend
</source>
}}
==== La boucle Do While / Loop ====
Cette boucle fonctionne de la même manière que While Wend (tant que la condition est vraie, la boucle est exécutée) :
Do While [condition]
'Instructions
Loop
==== La boucle Do / Loop Until ====
Cette boucle fonctionne de la même manière que While Wend, exceptée la une condition qui est testée à la fin de chaque répétition.
Do [condition]
'Instructions
Loop Until
Le corps de la boucle (instructions) est alors toujours exécuté au moins une fois.
== REGEX ==
Nécessite de cocher "Microsoft VBScript Regular Expressions 5.5" dans "Outils\Références".
{{regex}}
*.Test() : renvoie vrai si le pattern est trouvé dans la chaine.
*.Execute() : renvoie toutes les positions du pattern dans un tableau.
*.Replace() : remplace le pattern par le paramètre deux.
=== Recherche ===
Obtenir les emplacements dans une chaine :
<source lang=vb>
Sub RegexRecherche()
Dim RegEx As RegExp
Set RegEx = New RegExp
Dim matches As IMatchCollection2
Dim match As Variant
With RegEx
.IgnoreCase = True
.Global = True 'True matches all occurances, False matches the first occurance
.Pattern = "[0-9]+"
Set matches = .Execute("1 test 2 regex")
End With
For Each match In matches
MsgBox ("Position : " & match.FirstIndex)
Next
' ou
MsgBox matches.Item(0).Value
End Sub
</source>
=== Extraire un mot ===
<source lang=vb>
Public Sub RegexExtraction()
Dim RegEx As RegExp
Set RegEx = New RegExp
With RegEx
.IgnoreCase = True
.Global = False
.Pattern = "[a-z]* Wikibooks"
End With
chaine$ = "Test regex VB pour Wikibooks francophone."
Set matches = RegEx.Execute(chaine$)
MsgBox (Replace(matches(0).Value, " Wikibooks", ""))
' Affiche : "pour"
End Sub
</source>
=== Remplacement ===
Supprimer toutes les balises HTML :
<source lang=vb>
Public Sub RegexChaine()
Dim RegEx As RegExp
Set RegEx = New RegExp
With RegEx
.IgnoreCase = True
.Global = False
.Pattern = "<.*>(.*)<.*>"
End With
chaine$ = "Test regex VB pour <balise1>Wikibooks</balise1> francophone."
chaine$ = RegEx.Replace(chaine$, "$1")
MsgBox (chaine$)
' Affiche : "Test regex VB pour Wikibooks francophone." (sans les balises)
End Sub
</source>
== Références ==
{{Exemple
| contenu =
<source lang=vb>
' cet exemple cumule des nombres saisis à chaque tour de boucle par l'utilisateur dans une variable "tresor"
Do
reponse = InputBox("Entrer un nombre entier à cumuler dans votre trésor ")
tresor = tresor + reponse
Loop Until reponse = 0
' la boucle s'arrête lorsque la réponse de l'utilisateur est 0
</source>
}}
== Annexes ==
=== Bibliographie ===
* Jensen O.G., 2003, '''Initiation à la programmation VBA Word, KNOWWARE''', Ecuelles
* Greg Harvey et John Walkenbach, 2013, '''Excel 2013 et VBA Pour Les Nuls''', FIRST, Hoboken
* Amelot M., 2011, '''VBA Excel 2010''', ENI, St Herblain
=== Liens internes ===
* [[Visual Basic|Leçon VISUAL BASIC]]
* [[Tableur EXCEL|Leçon Tableur EXCEL]]
=== Liens externes ===
* [http://www.excel-pratique.com/fr/vba/procedures_fonctions.php Les procédures et les fonctions]
* [http://www.info-3000.com/vbvba/fichiers/index.php Les fichiers]
* [http://www.regular-expressions.info/anchors.html]
{{Bas de page
| idfaculté = informatique
| précédent = [[../DevenezGestion undes connaisseurdroits et répertoires/]]
| suivant = [[../DébogageBases de données/]]
}}
| 