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.

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

Le type est Boolean. La variable peut prendre la valeur True (Vrai) ou False (Faux) qui est sa valeur par défaut. Elle occupe deux octets.

Date

Le type est Date. La variable peut prendre les valeurs de date et d’heure du 1^er janvier 100 au 31 décembre 9999. Elle occupe huit octets.

Variant

Les variables de type Variant peuvent contenir des données de toutes sortes ainsi que les valeurs spéciales Empty, Error et Null.

Utiliser le type de donnée Variant offre...

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   
 
'    Tableau statique à deux dimensions permettant de stocker  
'    les valeurs de 11 lignes et 11 colonnes  
Option base 0  
Dim TabDepenses (10, 10) As Double   
Dim TabDepenses (0 to 10, 0 to 10) as Double  
 
 
'    Tableau dynamique à deux dimensions   
Option base 1  
Dim TabDepenses() As Double  
Redim TabDepenses(11,11) 

2. Déclaration d’un tableau...

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 
 ...

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> 
    <Instructions> 
Loop 

Syntaxe 4

Les instructions sont exécutées une première fois sans condition puis jusqu’à ce que la condition renvoie True.

Do 
    <Instructions> 
Loop Until <Condition> 

Exemple

Le code suivant demande à l’utilisateur de saisir un nombre jusqu’à ce que celui-ci soit numérique et supérieur à 100.

Sub Saisie_Nombre() 
   Dim vReponse as Variant...

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.