Le langage VBA

1. Présentation

Le code VBA associé à un classeur est regroupé dans un projet contenant plusieurs dossiers :

La liste de tous les modules est affichée de façon hiérarchique dans l’Explorateur de projets de l’environnement VBE.

Les éléments du langage VBA décrits dans ce chapitre peuvent être utilisés dans les différents modules.

2. Accès aux modules

1. Définitions

Les procédures sont des sous-programmes qui permettent de décomposer une tâche de programmation complexe en une suite de tâches plus petites et plus simples. Elles permettent d’organiser le code à l’intérieur des modules afin d’obtenir un code plus facile à maintenir et facilement réutilisable.

Dans VBA Excel, on distingue trois types de procédures :

Dans ce chapitre, nous ne nous intéressons qu’aux deux premières qui sont les plus couramment utilisées.

2. Accès aux procédures

1. Les types de variables

Numériques

Chaînes de caractères

Le type est String. Il existe deux types de chaînes :

Exemple

'  Chaîne de longueur variable 
Dim sAdresse As String 
'  Chaîne de longueur fixe (20 caractères) 
Dim sNom As String * 20 

Booléen...

1. Présentation

Les variables tableau permettent de stocker et de manipuler un ensemble de valeurs, appelées éléments. Une variable tableau se caractérise par un nombre de dimensions et une taille (nombre d’occurrences) pour chacune des dimensions. Le nombre total d’éléments du tableau est le produit des tailles de toutes les dimensions.

Un tableau à une dimension permet de stocker une liste de valeurs, un tableau à deux dimensions permet notamment de stocker les données d’une plage de cellules Excel : le premier argument représente les lignes, le deuxième argument représente les colonnes.

Le nombre d’éléments pour chaque dimension est défini :

Un tableau dont la dimension et la taille sont spécifiées lors de sa déclaration est un tableau statique. Un tableau dont la taille peut être spécifiée et modifiée pendant l’exécution d’un programme est un tableau dynamique, ou tableau de dimension libre.

Exemples

'    Tableau statique à une dimension pouvant stocker  
'    13 valeurs de type chaînes de caractères (indice de 0 à 12) 
Option base 0  
Dim TabDepenses(12) as String  
 
 
'    Tableau statique à une dimension pouvant stocker   
'    12 valeurs entières (indice de 1 à 12)  
Option base 1  
Dim TabDepenses(12) As Integer  ...

1. L’instruction If

Elle permet d’exécuter des instructions en fonction du résultat d’une condition. 

If...Then

If <condition> Then <instruction> [:<instruction>] 

S’il y a plusieurs instructions, séparez-les par le signe de ponctuation : (deux-points). Cette syntaxe est surtout utilisée pour des tests courts et simples.

Exemple

Si la cellule A1 est vide, alors envoi d’un bip sonore et d’un message.

Sub Test_Cellule_A1() 
   If IsEmpty(Range("A1")) Then Beep: MsgBox "Oubli du titre" 
End Sub 

If...Then...End If

If <condition> Then 
   <instruction1> 
   <instruction2> 
...  
End If 

Exemple

Sub Test_Titre() 
' Si la cellule A1 est non vide 
' alors elle est mise en gras et coloriée en rouge 
   If Not IsEmpty(Range("A1")) Then 
       With Range("A1") 
           .Font.Bold = True 
           .Interior.ColorIndex = 3 
       End With 
   End If 
End Sub 

If...Then...Else...End If

If <condition> Then 
   <instructions> 
Else 
   <instructions> 
End If 

Exemple

Lors du changement de la devise (Euro ou US) située dans la cellule C3, modification du format de la plage de cellule D6:F11.

Private Sub Workbook_SheetChange(ByVal Sh As Object, _ 
ByVal Target As Range) 
' Modifie la cellule C3 de la feuille Articles 
If Sh.Name = "Articles" And Target.Address = "$C$3" Then 
   Applique_Format 
End If 
End Sub 

Cette procédure modifie le format des cellules en fonction de la devise choisie.

Sub Applique_Format() 
'   Format € ou $ 
Range("D6:F11").NumberFormat = "0.00" 
If UCase(Range("C3")) = "EURO" Then 
   Range("D6:F11").NumberFormat = "0.00 €" 
Else ...

1. L’instruction Do...Loop

Elle exécute un bloc d’instructions un nombre de fois indéterminé.

Syntaxe 1

Les instructions sont exécutées aussi longtemps que la condition renvoie True.

Do While <Condition> 
    <Instructions>  
Loop 

Syntaxe 2

Les instructions sont exécutées une première fois sans condition puis aussi longtemps que la condition renvoie True.

Do  
    <Instructions> 
Loop While <Condition> 

Exemple

Le code suivant demande à l’utilisateur de saisir un nombre tant que celui-ci n’est pas numérique ou n’est pas supérieur à 100.

Sub Saisie_Nombre() 
   Dim vReponse as Variant 
   Do 
      vReponse = InputBox("Entrez un nombre > 100") 
   Loop While (Not IsNumeric(vReponse) Or vReponse <= 100) 
End Sub 

Syntaxe 3

Les instructions sont exécutées jusqu’à ce que la condition renvoie True (aussi longtemps que la condition renvoie False).

Do Until <Condition> 
   ...

1. Les opérateurs arithmétiques

Ils permettent d’effectuer des calculs arithmétiques à partir de variables et/ou de constantes.

2. Les opérateurs de comparaison

Ils permettent de comparer deux valeurs ou deux chaînes de caractères.

L’instruction Option compare utilisée au niveau module permet de déclarer la méthode de comparaison par défaut qu’il convient d’utiliser lors de la comparaison de chaînes.

Elle peut prendre l’une de ces trois valeurs :

1. Les commentaires

Les commentaires permettent de documenter les codes VBA afin de les rendre plus lisibles.

REM commentaire 

ou

' commentaire 

Dès la validation de la ligne de commentaire, celui-ci s’affiche par défaut en vert.

2. Le caractère de continuation

Une instruction VBA peut être écrite sur plusieurs lignes en utilisant un trait de soulignement "_" précédé d’un espace.

Exemple

'   Demande la saisie d'un prix tant que celui-ci
'   n'est pas renseigné ou est incorrect 
Dim vPrix as Variant 
Do While IsEmpty(vPrix) Or Not IsNumeric(vPrix) _ 
   Or vPrix < 50 Or vPrix > 500 
   vPrix = InputBox("Saisir un montant compris entre " _ 
           & "50 et 500 ") 
Loop 

3. Les retraits

Les retraits (ou tabulations) permettent une meilleure lisibilité du code. Il est notamment important de les utiliser dans les structures de contrôles (surtout si plusieurs instructions If sont imbriquées) et les structures de décisions.

4. Les noms des procédures, variables et constantes

Les noms des procédures, des constantes, des variables et des arguments doivent respecter les règles suivantes :