Cours VBA gratuit

Grâce aux différentes leçons proposées, vous allez apprendre le VBA (macros
Excel) gratuitement.

Si vous pensez que créer des macros est trop compliqué et que ce n'est pas à
votre portée, soyez rassuré(e), ce cours est adapté aux personnes débutantes
en programmation et démarre de zéro.

Tout comme le cours Excel, les leçons sont riches en exemples et simplifiées
autant que possible afin de faciliter l'apprentissage du VBA.

Il est recommandé de suivre les leçons en respectant l'ordre donné car, à

chaque nouvelle leçon, vous aurez besoin des connaissances acquises au
cours des leçons précédentes.

En cas de difficultés, posez vos questions sur le forum qui est là pour vous
aider.

LEÇON 1
 Introduction
 Première macro

LEÇON 2
 Les sélections
 Les propriétés
 Les couleurs

LEÇON 3
 Les variables
 Les variables (partie 2)

LEÇON 4
 Les conditions
 Les conditions (partie 2)

LEÇON 5
 Les boucles
 Les boucles (exercice)

LEÇON 6
 Les procédures et fonctions
LEÇON 7
 Les boîtes de dialogue

LEÇON 8
 Les événements Workbook
 Les événements Worksheet

LEÇON 9
 Les formulaires et contrôles
 Les formulaires et contrôles (partie 2)
 Les formulaires et contrôles (partie 3)
 Les formulaires et contrôles (partie 4)
 Les formulaires et contrôles (exercice)

LEÇON 10
 Les tableaux
 Les tableaux (partie 2)
 Les tableaux (exercice)

LEÇON 11
 Utilisations des fonctions
 Création d'une fonction personnalisée

COURS VBA AVANCÉ

 Développer une application de gestion

RESSOURCES VBA
 Fonctions VBA
 Astuces VBA

les sélections
Ouvrez l'éditeur et ajoutez-y un module :
Dans le module, tapez sub exemple et appuyez sur Entrée.

Vous remarquerez qu'Excel a automatiquement ajouté la fin de cette nouvelle procédure :

Sub exemple()

End Sub

Créez maintenant un bouton de formulaire auquel vous allez associer cette macro (vide pour le moment) :
Complétez votre macro avec ceci :

Sub exemple()

'Sélection de la cellule A8
Range("A8").Select

End Sub

Vous pouvez tester cette macro en cliquant sur votre bouton de formulaire, la cellule A8 est alors
sélectionnée.

Nous allons maintenant modifier cette macro pour sélectionner la cellule A8 de la seconde feuille :

Sub exemple()

'Activation de la feuille 2
Sheets("Feuil2").Activate

'Sélection de la cellule A8
Range("A8").Select

End Sub

Excel active alors la feuille 2 avant de sélectionner la cellule A8.

Aidez-vous des commentaires (texte en vert) pour bien comprendre les macros de ce cours.

SÉLECTION D'UNE PLAGE DE CELLULES

Sub exemple()

'Sélection des cellules A1 à A8

Range("A1:A8").Select

End Sub

SÉLECTION DE CELLULES DISTINCTES

Sub exemple()

'Sélection des cellule A8 et C5

Range("A8, C5").Select

End Sub

SÉLECTION D'UNE PLAGE DE CELLULES NOMMÉE

Sub exemple()

'Sélection des cellules de la plage "ma_plage"

Range("ma_plage").Select

End Sub

SÉLECTION D'UNE CELLULE EN FONCTION D'UN NUMÉRO DE

LIGNE ET DE COLONNE
Sub exemple()

'Sélection de la cellule de la ligne 8 et de la colonne 1

Cells(8, 1).Select

End Sub

Cette autre manière de sélectionner permet des sélections plus dynamiques et sera bien utile par la suite.

En voici un petit exemple :

Sub exemple()

'Sélection aléatoire d'une cellule de la ligne 1 à 10 et de la colonne 1

Cells(Int(Rnd * 10) + 1, 1).Select
 'Traduction :
'Cells([nombre_aléatoire_entre_1_et_10], 1).Select

End Sub

Ici, le numéro de ligne est Int(Rnd * 10) + 1, autrement dit un nombre entre 1 et 10 (inutile de retenir ce
code pour le moment).

SÉLECTION DE LIGNES
Il est possible de sélectionner des lignes entières avec Range ou Rows (Rows étant spécifique aux lignes) :

Sub exemple()

'Sélection des lignes 2 à 6

Range("2:6").Select

End Sub
Sub exemple()

'Sélection des lignes 2 à 6

Rows("2:6").Select

End Sub

SÉLECTION DE COLONNES
Tout comme pour les lignes, il est possible de sélectionner des colonnes entières
avec Range ou Columns (Columns étant spécifique aux colonnes) :

Sub exemple()

'Sélection des colonnes B à G

Range("B:G").Select

End Sub
Sub exemple()

'Sélection des colonnes B à G

Columns("B:G").Select

End Sub
« Visualisez facilement vos projets et leurs tâches grâce à cette application
Excel »

les propriétés
Commencez par ouvrir l'éditeur, ajoutez-y un module, copiez la macro ci-dessous et associez-la à un bouton
de formulaire (relisez la page des Sélections en cas de besoin) :

Sub proprietes()

'Macro incomplète
Range("A8")

End Sub
Nous voulons effectuer une action sur la cellule A8 avec ce début de macro.

Pour afficher la liste des possibilités que l'on peut associer à l'objet Range, ajoutez un . après Range("A8") :

L'éditeur affiche alors les différentes possibilités ...

Pour ce premier exemple, cliquez sur Value puis appuyez sur la touche Tab pour valider ce choix :

Sub proprietes()

'Macro incomplète
Range("A8").Value

End Sub

La propriété Value représente ici le contenu de la cellule.

Nous voulons maintenant donner la valeur 48 à la cellule A8 :

Sub proprietes()

'Cellule A8 = 48
Range("A8").Value = 48

'Traduction :
'La valeur de la cellule A8 est désormais : 48

End Sub

Puis, la valeur Exemple de texte à A8 (le texte doit être mis entre " ") :

Sub proprietes()

'Cellule A8 = Exemple de texte

Range("A8").Value = "Exemple de texte"

End Sub
Dans ce cas, c'est bien la cellule A8 de la feuille où est lancée la procédure (ici, celle où se trouve le bouton
formulaire) qui sera modifiée.

Si vous créez un second bouton sur la feuille 2, ce sera alors la cellule A8 de la feuille 2 qui sera modifiée.

Pour modifier la cellule A8 de la feuille 2 en cliquant sur le bouton de la feuille 1, il faut préciser le nom de
la feuille en ajoutant Sheets("Nom_de_la_feuille") avant Range :

Sub proprietes()

'Cellule A8 de la feuille 2 = Exemple de texte

Sheets("Feuil2").Range("A8").Value = "Exemple de texte"

End Sub

De même, si l'on souhaite modifier la cellule A8 de la feuille 2 d'un autre classeur ouvert, il faut préciser le
nom du classeur en début de ligne à l'aide de Workbooks("Nom_du_fichier") :

Sub proprietes()

'Cellule A8 de la feuille 2 du classeur 2 = Exemple de texte

Workbooks("Classeur2.xlsx").Sheets("Feuil2").Range("A8").Value = "Exemple de texte"

End Sub

Bien que Value ait été utilisé pour illustrer ces différents exemples, il n'est pas nécessaire de l'indiquer, car
c'est automatiquement la valeur de la cellule qui est modifiée si rien n'est précisé.

Ces 2 lignes génèrent un résultat identique :

Range("A8").Value = 48
Range("A8") = 48

MISE EN FORME DU TEXTE

Après avoir sélectionné la propriété Font et ajouté un ., la liste des propriétés que l'on peut attribuer à la mise
en forme du texte apparaît :

La modification des couleurs sera détaillée à la page suivante ...

MISE EN FORME : TAILLE DU TEXTE

Sub proprietes()
 'Modifier la taille du texte des cellules A1 à A8
Range("A1:A8").Font.Size = 18

End Sub

MISE EN FORME : TEXTE EN GRAS

Sub proprietes()

'Mettre en gras les cellules A1 à A8

Range("A1:A8").Font.Bold = True

End Sub

Bold = True signifie Caractères en gras = Oui.

Pour retirer la mise en forme Bold à un texte, il faut donc remplacer Oui par Non, autrement
dit, True par False :

Sub proprietes()

'Enlever la mise en forme "gras" des cellules A1 à A8

Range("A1:A8").Font.Bold = False

End Sub

MISE EN FORME : TEXTE EN ITALIQUE

Sub proprietes()

'Mettre en italique les cellules A1 à A8

Range("A1:A8").Font.Italic = True

End Sub

MISE EN FORME : TEXTE SOULIGNÉ

Sub proprietes()

'Souligner les cellules A1 à A8

Range("A1:A8").Font.Underline = True

End Sub

MISE EN FORME : POLICE

Sub proprietes()

'Modifier la police de caractères des cellules A1 à A8

Range("A1:A8").Font.Name = "Arial"

End Sub

AJOUTER DES BORDURES

Sub proprietes()

'Ajouter une bordure aux cellules A1 à A8

Range("A1:A8").Borders.Value = 1

'Value = 0 : pas de bordure

End Sub

MODIFIER LA MISE EN FORME DE LA SÉLECTION ACTUELLE

Sub proprietes()

'Ajouter une bordure aux cellules sélectionnées

Selection.Borders.Value = 1

End Sub

MODIFIER LES PROPRIÉTÉS D'UNE FEUILLE

Sub proprietes()

'Masquer une feuille

Sheets("Feuil3").Visible = 2

'Visible = -1 : afficher la feuille

End Sub
N'oubliez pas que seule une toute petite partie des possibilités de personnalisation sont indiquées ici. Si la
propriété dont vous avez besoin n'est pas détaillée sur cette page, n'ayez pas peur d'utiliser l'enregistreur de
macro pour vous éviter de longues recherches (en enregistrant la manipulation dont vous avez besoin, vous
pourrez retrouver plus facilement la propriété recherchée pour pouvoir ensuite l'utiliser dans votre macro).

MODIFIER LA VALEUR D'UNE CELLULE EN FONCTION D'UNE

AUTRE
L'objectif ici est que A7 prenne la valeur de A1, ce qui nous donne :

Sub proprietes()

'A7 = A1
Range("A7") = Range("A1")

'Ou :
'Range("A7").Value = Range("A1").Value

End Sub

Ou pour copier par exemple la taille du texte :

Sub proprietes()

Range("A7").Font.Size = Range("A1").Font.Size

End Sub
Ce qui est à gauche du = prend la valeur de ce qui est à droite du =.

MODIFIER LA VALEUR D'UNE CELLULE EN FONCTION DE SA

PROPRE VALEUR
Nous allons maintenant créer ici un compteur de clics.

A chaque clic, la valeur de A1 sera augmentée de 1 :

Sub proprietes()

'Compteur de clics en A1
Range("A1") = Range("A1") + 1

End Sub

Cette ligne ne doit pas être interprétée comme une opération mathématique (rappelez-vous que ce qui est à
gauche du = prend la valeur de ce qui est à droite du =).

Excel exécute le code ligne par ligne en respectant certaines priorités, ces commentaires devraient vous aider
à mieux comprendre ce même code :

'Pour cet exemple : A1 vaut 10 avant l'exécution du code

Sub proprietes()

'Un clic a été fait sur le bouton, nous entrons dans la procédure
'Pour le moment A1 vaut encore 10
 'Pendant l'exécution de la ligne ci-dessous :
'- la valeur à droite du = est calculée en priorité (A1 vaut toujours 10, cela
donne 10 + 1)
'- après calcul, la valeur à droite du = vaut donc 11
'- A1 prend ensuite la valeur à droite du = (soit la valeur 11)
Range("A1") = Range("A1") + 1

'A1 vaut alors 11 seulement après l'exécution de la ligne de code

End Sub

WITH
Ce code permet de définir différentes propriétés à la cellule A8 de la feuille 2 :

Sub proprietes()

Sheets("Feuil2").Range("A8").Borders.Weight = 3
Sheets("Feuil2").Range("A8").Font.Bold = True
Sheets("Feuil2").Range("A8").Font.Size = 18
Sheets("Feuil2").Range("A8").Font.Italic = True
Sheets("Feuil2").Range("A8").Font.Name = "Arial"

End Sub

Nous pouvons utiliser With pour éviter les répétitions de Sheets("Feuil2").Range("A8") :

Sub proprietes()

'Début de l'instruction avec : With

With Sheets("Feuil2").Range("A8")
.Borders.Weight = 3
.Font.Bold = True
.Font.Size = 18
.Font.Italic = True
.Font.Name = "Arial"
'Fin de l'instruction avec : End With
End With

End Sub

Sheets("Feuil2").Range("A8") n'est donc plus répété.

Bien que ce ne soit pas indispensable dans ce cas, il est également possible de faire de même pour .Font, ce
qui nous donnerait :

Sub proprietes()

With Sheets("Feuil2").Range("A8")
.Borders.Weight = 3
With .Font
.Bold = True
.Size = 18
.Italic = True
.Name = "Arial"
End With
End With

End Sub
« Visualisez facilement vos projets et leurs tâches grâce à cette application
Excel »
 les couleurs
COURS AU FORMAT PDF

Ce cours est également disponible au format PDF, téléchargeable en un seul fichier Zip de :

 26 fichiers PDF
 14 fichiers Excel

Cette option est payante et contribue au développement de nouveaux contenus gratuits.

Plus d'informations ...

Nous allons commencer par attribuer une couleur au texte en A1.

Après avoir ajouté Font., nous obtenons :

Nous avons 2 possibilités pour définir la couleur : ColorIndex et ses 56 couleurs ou Color qui nous permettra
d'utiliser n'importe quelle couleur.

COLORINDEX
Voici les 56 couleurs disponibles avec ColorIndex :
Pour appliquer à notre texte l'une de ces 56 couleurs, nous écrirons :

Sub couleurs()

'Couleur du texte en A1 : vert (couleur 10)

Range("A1").Font.ColorIndex = 10

End Sub

Ce qui nous donne :

Pour les versions d'Excel inférieures à 2007 : l'utilisation de ColorIndex est préférable à Color.

COLOR
Voici un exemple similaire avec Color :

Sub couleurs()

'Couleur du texte en A1 : RGB(50, 200, 100)

Range("A1").Font.Color = RGB(50, 200, 100)

End Sub
La couleur ici est RGB(50, 200, 100).

RGB en français signifie RVB (Rouge Vert Bleu), les valeurs vont de 0 à 255 pour chaque couleur.

Quelques exemples de couleurs pour mieux comprendre :

 RGB(0, 0, 0) : noir
 RGB(255, 255, 255) : blanc
 RGB(255, 0, 0) : rouge
 RGB(0, 255, 0) : vert
 RGB(0, 0, 255) : bleu

Heureusement pour nous, il existe différentes solutions qui nous permettent de trouver facilement les valeurs
RGB de la couleur qui nous intéresse.

Vous trouverez par exemple une liste de valeurs RGB sur la page suivante : liste de valeurs RGB.

Pour donner une couleur violette à notre texte, nous pouvons donc rechercher les valeurs RGB de cette
couleur sur la liste de couleurs et entrer :

Sub couleurs()

'Couleur du texte en A1 : RGB(192, 32, 255)

Range("A1").Font.Color = RGB(192, 32, 255)

End Sub

Ce qui nous donne :

Pour les versions d'Excel inférieures à 2007 : le nombre de couleurs est limité (la couleur disponible la plus
proche de la valeur RGB sera utilisée).

CRÉER UNE BORDURE COLORÉE

Nous allons créer une macro qui va ajouter une bordure à la cellule active avec ActiveCell.

La bordure sera rouge et épaisse :

Sub couleurs()

'Epaisseur de la bordure
ActiveCell.Borders.Weight = 4

'Couleur de la bordure : rouge

ActiveCell.Borders.Color = RGB(255, 0, 0)

End Sub
Aperçu :

COLORER LE FOND DES CELLULES SÉLECTIONNÉES

Sub couleurs()

'Colorer le fond des cellules sélectionnées

Selection.Interior.Color = RGB(174, 240, 194)

End Sub

Aperçu :

COLORER L'ONGLET D'UNE FEUILLE

Sub couleurs()

'Colorer l'onglet de la feuille "Feuil1"

Sheets("Feuil1").Tab.Color = RGB(255, 0, 0)

End Sub

Aperçu :

« Visualisez facilement vos projets et leurs tâches grâce à cette application

Excel »
 les variables
ACCES PREMIUM

Soutenez le site en devenant membre Premium et profitez de plusieurs options exclusives :

 Navigation sans publicités

 Option "No Tracking"
 Option "Mode Incognito" (sur le forum)
 Option "Dark Mode"
Plus d'informations ...

Les variables permettent de stocker toutes sortes de données.

Voici un premier exemple :

'Affichage de la valeur de la variable dans une boîte de dialogue

Sub variables()

'Déclaration de la variable
Dim maVariable As Integer

'Attribution d'une valeur à la variable

maVariable = 12

'Affichage de la valeur de maVariable dans une MsgBox

MsgBox maVariable

End Sub

Cette première ligne de code est la déclaration de la variable (généralement placée en début de procédure).

Dim maVariable As Integer

 Dim : déclaration de la variable

 maVariable : nom choisi pour cette variable (sans espaces)
 As : déclaration du type de la variable
 Integer : type de la variable

Déclarer ses variables n'est pas obligatoire mais recommandé. Cela permet de s'y retrouver plus facilement,
peut aider dans certains cas à résoudre plus facilement les problèmes, etc. Mieux vaut donc prendre
l'habitude de déclarer correctement ses variables.

Le type de la variable indique la nature de son contenu (texte, nombres, date, etc.).

Une valeur est ensuite donnée à cette variable :

maVariable = 12

Et enfin, la valeur de la variable est affichée dans une boîte de dialogue :

MsgBox maVariable
MsgBox affiche une valeur dans une boîte de dialogue (les boîtes de dialogue seront détaillées dans
quelques leçons).

Le résultat de ce code :

Si pour le moment vous ne comprenez pas bien l'intérêt d'utiliser des variables, soyez rassuré, les exemples
abordés au cours des prochaines leçons vous en démontreront l'utilité.

LES TYPES DE VARIABLES

Nom Type Détails
Byte Numérique Nombre entier de 0 à 255.
Integer Numérique Nombre entier de -32'768 à 32'767.
Long Numérique Nombre entier de - 2'147'483'648 à 2'147'483'647.
Currency Numérique Nombre à décimale fixe de -922'337'203'685'477.5808 à 922'337'203
Single Numérique Nombre à virgule flottante de -3.402823E38 à 3.402823E38.
Double Numérique Nombre à virgule flottante de -1.79769313486232E308 à 1.79769313
String Texte Texte.
Date Date Date et heure.
Boolean Boolean True (vrai) ou False (faux).
Object Objet Objet.
Variant Tous Tout type de données (type par défaut si la variable n'est pas déclarée

Quelques exemples avec différents types :

'Exemple : nombre entier

Dim nbEntier As Integer
nbEntier = 12345

'Exemple : nombre à virgule

Dim nbVirgule As Single
nbVirgule = 123.45

'Exemple : texte
Dim varTexte As String
varTexte = "Excel-Pratique.com"

'Exemple : date
Dim varDate As Date
varDate = "09/04/2024"

'Exemple : vrai/faux
Dim varBoolean As Boolean
varBoolean = True

'Exemple : objet (objet Worksheet pour cet exemple)

Dim varFeuille As Worksheet
Set varFeuille = Sheets("Feuil2") 'Set => attribution d'une valeur à une variable objet

'Exemple d'utilisation de la variable objet : activation de la feuille

varFeuille.Activate

Les symboles indiqués dans le tableau ci-dessus permettent de raccourcir les déclarations de variables.

Par soucis de lisibilité, ils ne seront pas utilisés dans les leçons mais voici tout de même un exemple :

Dim exemple As Integer

Dim exemple%

Ces deux lignes sont identiques.

Il est possible de forcer les déclarations de variables en plaçant Option Explicit tout au début du module (une
erreur sera ainsi générée en cas d'oubli de déclaration).

EXEMPLE PRATIQUE
Nous allons maintenant créer par étapes une macro qui va récupérer le nom dans la cellule A2, le prénom
dans la cellule B2, l'âge dans la cellule C2 et qui va les afficher dans une boîte de dialogue.

Fichier source : exercice_variables.xlsm

Commençons par déclarer les variables (sur la même ligne, séparées par des virgules) :

Sub variables()

'Déclaration des variables

Dim nom As String, prenom As String, age As Integer

End Sub

Attribuons ensuite les valeurs des cellules aux variables :

Sub variables()

'Déclaration des variables

Dim nom As String, prenom As String, age As Integer

'Valeurs des variables

nom = Cells(2, 1)
prenom = Cells(2, 2)
age = Cells(2, 3)

End Sub

Et enfin, affichons le résultat dans la boîte de dialogue en concaténant les valeurs avec & (comme dans les
formules Excel) :

Sub variables()

'Déclaration des variables

Dim nom As String, prenom As String, age As Integer

'Valeurs des variables

nom = Cells(2, 1)
prenom = Cells(2, 2)
age = Cells(2, 3)

'Boîte de dialogue
MsgBox nom & " " & prenom & ", " & age & " ans"

End Sub
Ce qui nous donne :

Nous allons maintenant chercher à afficher dans la boite de dialogue la ligne du tableau correspondant au
numéro indiqué dans la cellule F5.

Voici l'objectif :

Prenez un moment pour effectuer cette modification vous-même avant de passer à la solution un peu plus
bas ...

.
.
.
.
.
.
.
 .
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.

La solution :

Sub variables()

'Déclaration des variables

Dim nom As String, prenom As String, age As Integer, numeroLigne As Integer

'Valeurs des variables

numeroLigne = Range("F5") + 1
nom = Cells(numeroLigne, 1)
prenom = Cells(numeroLigne, 2)
age = Cells(numeroLigne, 3)

'Boîte de dialogue
MsgBox nom & " " & prenom & ", " & age & " ans"

End Sub

Une variable numeroLigne a été ajoutée :

'Déclaration des variables

Dim nom As String, prenom As String, age As Integer, numeroLigne As Integer

La variable prend ensuite la valeur de la cellule F5 à laquelle nous ajoutons 1 (pour ne pas tenir compte de la
première ligne qui contient les titres du tableau).

La variable numeroLigne aura donc pour valeur le numéro de ligne des cellules qui nous intéressent :

numeroLigne = Range("F5") + 1

Il ne reste plus qu'à remplacer les numéros de ligne dans Cells par notre variable :

nom = Cells(numeroLigne, 1)
prenom = Cells(numeroLigne, 2)
age = Cells(numeroLigne, 3)
Notre macro affiche maintenant la ligne du tableau qui nous intéresse.

Notez au passage que nous pouvons réduire cette procédure entière sur une ligne :

Sub variables()
MsgBox Cells(Range("F5")+1,1) & " " & Cells(Range("F5")+1,2) & ", " &
Cells(Range("F5")+1,3) & " ans"
End Sub

Le code fonctionne correctement, il est néanmoins beaucoup moins lisible que le précédent et plus difficile à
entretenir par la suite (les codes ne seront donc pas réduits dans les leçons afin d'en faciliter la
compréhension).

« Gérez facilement la comptabilité d'une petite structure grâce à cette

application Excel »

les variables (partie 2)

COURS AU FORMAT PDF

Ce cours est également disponible au format PDF, téléchargeable en un seul fichier Zip de :

 26 fichiers PDF
 14 fichiers Excel

Cette option est payante et contribue au développement de nouveaux contenus gratuits.

Plus d'informations ...

LES TABLEAUX
Les variables permettent de stocker une seule valeur par variable, les tableaux
permettent de stocker une multitude de valeurs par tableau (leur utilisation est
proche de celle des variables).

Voici quelques exemples de déclarations :

'Exemple de déclaration de variable

Dim var1 As String

'Exemple de déclaration de tableau à 1 dimension

Dim tab1(4) As String

'Exemple de déclaration de tableau à 2 dimensions

Dim tab2(4, 3) As String
LE TABLEAU À 1 DIMENSION
'Exemple de déclaration de tableau à 1 dimension
Dim tab1(4) As String

Dans cette déclaration, il n'y a qu'un chiffre entre parenthèses, il s'agit donc
d'un tableau à une dimension.

Ce chiffre indique également le nombre de cases du tableau. Dans le cas

présent, tab1(4) est un tableau dont les cases vont de 0 à 4, il s'agit donc d'un
tableau de comportant 5 cases :

Et voici comment attribuer des valeurs aux 5 cases de ce tableau :

tab1(0) = "Valeur de la case 0"

tab1(1) = "Valeur de la case 1"
tab1(2) = "Valeur de la case 2"
tab1(3) = "Valeur de la case 3"
tab1(4) = "Valeur de la case 4"
La première case d'un tableau est le 0.

LE TABLEAU À 2 DIMENSIONS
'Exemple de déclaration de tableau à 2 dimensions
Dim tab2(4, 3) As String
0, 0

0, 1

0, 2

0, 3

1, 0

1, 1
 1, 2

1, 3

2, 0

2, 1

2, 2

2, 3

3, 0

3, 1

3, 2

3, 3

4, 0

4, 1

4, 2

4, 3

Et voici comment attribuer des valeurs aux cases d'un tableau à 2 dimensions :

tab2(0, 0) = "Valeur de la case rouge"

tab2(4, 1) = "Valeur de la case verte"
tab2(2, 3) = "Valeur de la case bleue"

Nous reviendrons sur les tableaux plus tard dans ce cours.

LES CONSTANTES
Les constantes permettent de stocker des valeurs comme les variables, à la
différence près qu'on ne peut pas les modifier (d'où leur nom) après les avoir
déclarées.

Par exemple, ces quelques lignes calculent le montant de la TVA en fonction

d'un taux de TVA de 12.34% :

Sub exemple()

Cells(1, 1) = Cells(1, 2) * 0.1234

Cells(2, 1) = Cells(2, 2) * 0.1234
Cells(3, 1) = Cells(3, 2) * 0.1234
Cells(4, 1) = Cells(4, 2) * 0.1234
Cells(5, 1) = Cells(5, 2) * 0.1234

End Sub

Pour éviter les répétitions et faciliter la lecture de ce code, il est possible de

déclarer le taux de TVA sous forme de constante :

Sub exemple()
 'Déclaration de la constante + attribution de sa valeur
Const TAUX_TVA As Double = 0.1234

Cells(1, 1) = Cells(1, 2) * TAUX_TVA

Cells(2, 1) = Cells(2, 2) * TAUX_TVA
Cells(3, 1) = Cells(3, 2) * TAUX_TVA
Cells(4, 1) = Cells(4, 2) * TAUX_TVA
Cells(5, 1) = Cells(5, 2) * TAUX_TVA

End Sub

En utilisant une constante, le jour où le taux de TVA changera, il vous suffira

de modifier une seule fois la valeur de la constante dans le code (au lieu de
rechercher et remplacer toutes les valeurs 0.1234 dans le code).

Par convention, une constante se nomme en majuscules en séparant les mots par
un _ (par exemple : EXEMPLE_DE_NOM).

LA PORTÉE DES VARIABLES

Si la variable est déclarée au début d'une procédure (Sub), elle ne peut être
utilisée que dans cette même procédure. La valeur de la variable n'est pas
conservée après l'exécution de la procédure.

Sub procedure1()

Dim var1 As Integer

'=> Utilisation de la variable dans la procédure uniquement

End Sub

Sub procedure2()

'=> Impossible d'utiliser var1 ici

End Sub

Pour pouvoir utiliser une variable dans toutes les procédures d'un module, il
suffit de la déclarer en début de module. De plus, cela permet de conserver la
valeur de la variable jusqu'à la fermeture du classeur.

Dim var1 As Integer

Sub procedure1()

'=> Utilisation de var1 possible

End Sub

Sub procedure2()

'=> Utilisation de var1 possible

End Sub

Même principe pour utiliser une variable dans tous les modules, à la différence
près que Dim est remplacé par Public :
Public var1 As Integer

Pour conserver la valeur d'une variable à la fin d'une procédure,

remplacez Dim par Static :

Sub procedure1()

Static var1 As Integer

End Sub

Pour conserver les valeurs de toutes les variables d'une procédure,

ajoutez Static devant Sub :

Static Sub procedure1()

Dim var1 As Integer

End Sub

CRÉER SON PROPRE TYPE DE VARIABLE

Nous n'allons pas nous attarder sur ce point, voici juste un exemple :

'Création d'un type de variable

Type Utilisateur
Nom As String
Prenom As String
End Type

Sub exemple()

'Déclaration
Dim user1 As Utilisateur

'Attributions des valeurs à user1

user1.Nom = "Smith"
user1.Prenom = "John"

'Exemple d'utilisation
MsgBox user1.Nom & " " & user1.Prenom

End Sub

les conditions
ACCES PREMIUM

Soutenez le site en devenant membre Premium et profitez de plusieurs options exclusives :

 Navigation sans publicités

 Option "No Tracking"
 Option "Mode Incognito" (sur le forum)
 Option "Dark Mode"
Plus d'informations ...
Les conditions sont très utiles en programmation, elles nous serviront à effectuer des actions en fonction de
critères précis (même principe que la fonction SI).

La principale instruction est If, voici comment elle fonctionne :

If [CONDITION] Then '=> SI condition vraie ALORS

'Instructions si vrai
Else '=> SINON (facultatif)
'Instructions si faux
End If

Passons directement à la pratique et reprenons l'exemple développé à la leçon sur les variables. Il avait pour
but d'afficher dans une boîte de dialogue la ligne du tableau correspondant au numéro indiqué dans la cellule
F5.

Fichier source : conditions.xlsm

Si nous entrons une lettre en F5, cela génère un bug et nous voulons éviter cela.

Sub exemple()

'Déclaration des variables

Dim nom As String, prenom As String, age As Integer, numeroLigne As Integer

'Valeurs des variables

numeroLigne = Range("F5") + 1
nom = Cells(numeroLigne, 1)
prenom = Cells(numeroLigne, 2)
age = Cells(numeroLigne, 3)

'Boîte de dialogue
MsgBox nom & " " & prenom & ", " & age & " ans"

End Sub

Nous allons commencer par ajouter une condition pour vérifier si la valeur de la cellule F5 est bien
numérique avant d'exécuter le code.
La fonction IsNumeric sera utilisée dans cette condition :

Sub exemple()

'Si la valeur entre parenthèses (cellule F5) est numérique (donc si la condition
est vraie) alors on exécute les instructions placées entre "Then" et "End If"
If IsNumeric(Range("F5")) Then

'Déclaration des variables

Dim nom As String, prenom As String, age As Integer, numeroLigne As Integer

'Valeurs des variables

numeroLigne = Range("F5") + 1
nom = Cells(numeroLigne, 1)
prenom = Cells(numeroLigne, 2)
age = Cells(numeroLigne, 3)

'Boîte de dialogue
MsgBox nom & " " & prenom & ", " & age & " ans"

End If

End Sub

Ajoutons également des instructions pour le cas où la condition n'est pas remplie :

Sub exemple()

'Si F5 est numérique

If IsNumeric(Range("F5")) Then

'Déclaration des variables

Dim nom As String, prenom As String, age As Integer, numeroLigne As Integer

'Valeurs des variables

numeroLigne = Range("F5") + 1
nom = Cells(numeroLigne, 1)
prenom = Cells(numeroLigne, 2)
age = Cells(numeroLigne, 3)

'Boîte de dialogue
MsgBox nom & " " & prenom & ", " & age & " ans"

'Si F5 n'est pas numérique

Else

'Boîte de dialogue : avertissement

MsgBox "L'entrée """ & Range("F5") & """ n'est pas valide !"

'Suppression du contenu de la cellule F5

Range("F5") = ""

End If

End Sub

Les valeurs non numériques ne sont désormais plus un problème.

Notre tableau contient 16 lignes de données (de la ligne 2 à la ligne 17), nous allons donc vérifier maintenant
si la variable numeroLigne est plus grande ou égale à 2 et plus petite ou égale à 17.

Mais avant, voici les opérateurs de comparaison :

= Est égal à
<
Est différent de
>
< Est plus petit que
<
Est plus petit ou égal à
=
> Est plus grand que
>
Est plus grand ou égal à
=

Ainsi que d'autres opérateurs utiles :

[CONDITION 1] And [CONDITION 2]

And Et
Les 2 conditions doivent être vraies
[CONDITION 1] Or [CONDITION 2]
Or Ou
Au moins 1 des 2 conditions doit être vraie
Not [CONDITION]
Not Faux
La condition doit être fausse
[NOMBRE] Mod [DIVISEUR]
ModModulo
Cet opérateur retourne le reste d'une division

Ajoutons maintenant les conditions indiquées un peu plus haut en utilisant And ainsi que les opérateurs de
comparaison détaillés ci-dessus :

Sub exemple()

'Si F5 est numérique

If IsNumeric(Range("F5")) Then

Dim nom As String, prenom As String, age As Integer, numeroLigne As Integer

numeroLigne = Range("F5") + 1

'Si le numéro est dans la bonne plage

If numeroLigne >= 2 And numeroLigne <= 17 Then
nom = Cells(numeroLigne, 1)
prenom = Cells(numeroLigne, 2)
age = Cells(numeroLigne, 3)
MsgBox nom & " " & prenom & ", " & age & " ans"

'Si le numéro est en dehors de la plage

Else
MsgBox "L'entrée """ & Range("F5") & """ n'est pas un numéro valide !"
Range("F5") = ""
End If

'Si F5 n'est pas numérique

Else
MsgBox "L'entrée """ & Range("F5") & """ n'est pas valide !"
Range("F5") = ""
End If

End Sub

Pour rendre notre macro plus pratique, nous pouvons encore remplacer 17 par une variable contenant le
nombre de lignes. Cela nous permettra d'ajouter/retirer des lignes à notre tableau sans avoir à modifier à
chaque fois cette limite dans le code.

Pour cela, créons une variable nbLignes et ajoutons cette fonction :

WorksheetFunction.CountA ne vous dit probablement rien mais il s'agit en fait de la fonction NBVAL que
vous connaissez probablement déjà (sinon, cliquez ici).

Nous demandons à cette fonction de comptabiliser le nombre de cellules non vides de la première colonne et
nous remplaçons ensuite 17 par nbLignes :

Sub exemple()

'Si F5 est numérique

If IsNumeric(Range("F5")) Then

Dim nom As String, prenom As String, age As Integer, numeroLigne As Integer,

nbLignes As Integer

numeroLigne = Range("F5") + 1
nbLignes = WorksheetFunction.CountA(Range("A:A")) 'Fonction NBVAL

'Si le numéro est dans la bonne plage

If numeroLigne >= 2 And numeroLigne <= nbLignes Then
nom = Cells(numeroLigne, 1)
prenom = Cells(numeroLigne, 2)
age = Cells(numeroLigne, 3)
MsgBox nom & " " & prenom & ", " & age & " ans"

'Si le numéro est en dehors de la plage

Else
MsgBox "L'entrée """ & Range("F5") & """ n'est pas un numéro valide !"
Range("F5") = ""
End If

'Si F5 n'est pas numérique

Else
MsgBox "L'entrée """ & Range("F5") & """ n'est pas valide !"
Range("F5") = ""
End If
End Sub

ELSEIF
ElseIf permet d'ajouter plusieurs conditions à la suite :

If [CONDITION 1] Then '=> SI la condition 1 est vraie ALORS

'Instructions 1
ElseIf [CONDITION 2] Then '=> SINON, SI la condition 2 est vraie ALORS
'Instructions 2
Else '=> SINON
'Instructions 3
End If
Si la condition 1 est vraie, les instructions 1 sont exécutées puis nous sortons de l'instruction If (qui débute
avec If et se termine à End If). Si la condition 1 est fausse, nous passons à la condition 2. Si celle-ci est vraie
les instructions 2 sont exécutées si ce n'est pas le cas les instructions 3 sont alors exécutées.

Voici un exemple, avec en A1 une note de 1 à 6 et en B1 un commentaire en fonction de la note :

Sub commentaires()

'Variables
Dim note As Single, commentaire As String
note = Range("A1")

'Commentaire en fonction de la note

If note = 6 Then
commentaire = "Excellent résultat !"
ElseIf note >= 5 Then
commentaire = "Bon résultat"
ElseIf note >= 4 Then
commentaire = "Résultat satisfaisant"
ElseIf note >= 3 Then
commentaire = "Résultat insatisfaisant"
ElseIf note >= 2 Then
commentaire = "Mauvais résultat"
ElseIf note >= 1 Then
commentaire = "Résultat exécrable"
Else
commentaire = "Aucun résultat"
End If

'Commentaire en B1
Range("B1") = commentaire

End Sub

SELECT
Une alternative aux instructions If contenant beaucoup de ElseIf existe, il s'agit de Select (cette instruction
étant plus adaptée dans ce genre de cas).

Voici la même macro avec Select :

Sub commentaires()

'Variables
Dim note As Single, commentaire As String
note = Range("A1")

'Commentaire en fonction de la note

Select Case note '<= la valeur à tester (ici, la note)
Case Is = 6
commentaire = "Excellent résultat !"
Case Is >= 5
commentaire = "Bon résultat"
Case Is >= 4
commentaire = "Résultat satisfaisant"
Case Is >= 3
commentaire = "Résultat insatisfaisant"
Case Is >= 2
commentaire = "Mauvais résultat"
Case Is >= 1
commentaire = "Résultat exécrable"
Case Else
commentaire = "Aucun résultat"
End Select
 'Commentaire en B1
Range("B1") = commentaire

End Sub

Notez que nous pouvons également entrer plusieurs valeurs :

Case Is = 6, 7 'Si la valeur = 6 ou 7

Case Is <> 6, 7 'Si la valeur est différente de 6 ou 7

Ou une plage de valeurs :

Case 6 To 10 'Si la valeur = de 6 à 10

« Gérez facilement les horaires de travail de vos collaborateurs grâce à cette
application Excel »

les conditions (partie 2)

COURS AU FORMAT PDF

Ce cours est également disponible au format PDF, téléchargeable en un seul fichier Zip de :

 26 fichiers PDF
 14 fichiers Excel

Cette option est payante et contribue au développement de nouveaux contenus gratuits.

Plus d'informations ...

FONCTION ISNUMERIC
La fonction IsNumeric (vue à la page précédente) renvoie True (vrai) si la valeur est numérique et False
(faux) si ce n'est pas le cas :

If IsNumeric(Range("A1")) = True Then

If IsNumeric(Range("A1")) Then

Ces 2 lignes sont identiques (il n'est pas nécessaire d'entrer = True puisque que l'on cherche de toute manière
à savoir si l'expression est vraie).

Dans le cas où nous voulons vérifier si la valeur n'est pas numérique, nous avons également deux
possibilités :

If IsNumeric(Range("A1")) = False Then 'Si la valeur n'est pas numérique

If Not IsNumeric(Range("A1")) Then 'Si la valeur n'est pas numérique

Il existe de nombreuses autres fonctions que vous pouvez utiliser dans vos conditions (ou plus généralement
dans vos codes VBA).

Vous pourrez retrouver la liste des principales fonctions VBA sur la page Fonctions VBA du site.
FONCTIONS DE DATES
Il existe de nombreuses fonctions de dates et d'heures pouvant être utilisées dans des conditions, en voici
quelques exemples.

La fonction IsDate renvoie True si la valeur est une date ou False si ce n'est pas le cas :

If IsDate(Range("A1")) Then 'Si la valeur est une date

La fonction Day permet d'extraire le jour d'une date :

If Day(Range("A1")) = 1 Then 'Si c'est le premier jour du mois

La fonction Year permet d'extraire l'année d'une date :

If Year(Range("A1")) = 2024 Then 'Si c'est une date de l'année 2024

La fonction Weekday renvoie le numéro du jour de la semaine :

If Weekday(Range("A1"), 2) >= 6 Then 'Si c'est un samedi ou un dimanche

La fonction Date renvoie la date actuelle :

If Range("A1") < Date Then 'Si la date est passée

FONCTION ISEMPTY
La fonction IsEmpty renvoie False si la variable a été initialisée ou True si ce n'est pas le cas :

If IsEmpty(maVariable) Then 'Si la variable n'a pas été initialisée

Dans cet exemple, la condition est vraie car aucun type ni valeur n'ont été attribués à maVariable :

Sub exemple()

Dim maVariable

If IsEmpty(maVariable) Then
MsgBox "Ma variable n'a pas été initialisée !"
Else
MsgBox "Ma variable contient : " & maVariable
End If

End Sub

CONDITION EN FONCTION DE LA COMPARAISON DE 2

CHAÎNES DE CARACTÈRES
Jusque-là nous n'avons vu que cela :

maVariable = "Exemple 12345"

If maVariable = "Exemple 12345" Then '=> Vrai

Dans ce cas, les 2 chaînes de caractères sont identiques, l'expression est donc vraie.
Maintenant, pour vérifier si la variable contient la valeur 12345 sans tenir compte des autres caractères, nous
utiliserons l'opérateur Like ainsi que * devant et derrière la valeur à rechercher.

Le caractère * peut remplacer : aucun, un ou plusieurs caractères :

maVariable = "Exemple 12345"

If maVariable Like "*12345*" Then '=> Vrai

Le caractère # peut remplacer un caractère numérique de 0 à 9 :

maVariable = "Exemple 12345"

If maVariable Like "Exemple 12###" Then '=> Vrai

Le caractère ? peut remplacer un caractère quelconque :

maVariable = "Exemple 12345"

If maVariable Like "?xemple?1234?" Then '=> Vrai

Nous pouvons également remplacer un caractère en fonction d'une plage de caractères ou de caractères
précis :

 [abc] : remplace un des caractères suivants : a b c

 [a-g] : remplace un des caractères suivants : a b c d e f g
 [369] : remplace un des caractères suivants : 3 6 9
 [2-5] : remplace un des caractères suivants : 2 3 4 5
 [?*#] : remplace un des caractères suivants : ? * #

maVariable = "Exemple 12345"

If maVariable Like "[BIEN]xemple 1234[4-7]" Then '=> Vrai

Pour remplacer un caractère non compris dans les valeurs entre crochets, un ! doit être ajouté après [ :

maVariable = "Exemple 12345"

If maVariable Like "[!FAUX]xemple 1234[!6-9]" Then '=> Vrai

Un caractère en majuscule n'est pas égal à ce même caractère en minuscule. Pour ne pas faire de distinctions
entre majuscules et minuscules, placez Option Compare Text en début de module.
« Visualisez facilement vos projets et leurs tâches grâce à cette application
Excel »

les boucles
ACCES PREMIUM

Soutenez le site en devenant membre Premium et profitez de plusieurs options exclusives :

 Navigation sans publicités

 Option "No Tracking"
 Option "Mode Incognito" (sur le forum)
 Option "Dark Mode"
 Plus d'informations ...

Les boucles permettent de répéter des instructions un certain nombre de fois pour vous éviter de devoir
écrire des macros d'une longueur interminable et vous faire gagner un temps considérable.

Le code suivant numérote les cellules de la colonne A (de la ligne 1 à 12) :

Sub exemple()

Cells(1, 1) = 1
Cells(2, 1) = 2
Cells(3, 1) = 3
Cells(4, 1) = 4
Cells(5, 1) = 5
Cells(6, 1) = 6
Cells(7, 1) = 7
Cells(8, 1) = 8
Cells(9, 1) = 9
Cells(10, 1) = 10
Cells(11, 1) = 11
Cells(12, 1) = 12

End Sub

Ce code est très répétitif ...

Maintenant, imaginez qu'il faille numéroter plusieurs milliers de lignes ... Vous comprenez donc
probablement l'intérêt de créer des boucles.

Voici la boucle Do :

Sub exemple()

Do While [CONDITION]
'Instructions
Loop

End Sub

Tant que la condition est vraie, les instructions sont exécutées en boucle (attention à ne pas créer une boucle
infinie).

Voici la macro répétitive ci-dessus avec la boucle Do :

Sub exemple()

Dim numero As Integer

numero = 1 'Numéro de départ

Do While numero <= 12 'Tant que la variable numero est <= 12, la boucle est répétée
Cells(numero, 1) = numero 'Numérotation
numero = numero + 1 'Le numéro est augmenté de 1 à chaque boucle
Loop

End Sub

Avec cette boucle, si nous voulons numéroter 500 lignes, il suffit alors de remplacer 12 par 500 ...
DO LOOP
Dans le précédent exemple, vous avez pu voir la boucle Do sous la forme suivante :

Sub exemple()

Do While [CONDITION]
'Instructions
Loop

End Sub

Avec Do, la condition peut également être placée en fin de boucle, ce qui implique que les instructions
seront dans tous les cas exécutées au moins une fois :

Sub exemple()

Do
'Instructions
Loop While [CONDITION]

End Sub

Plutôt que de répéter la boucle tant que la condition est vraie, il est possible de quitter la boucle lorsque la
condition est vraie en remplaçant While par Until :

Sub exemple()

Do Until [CONDITION]
'Instructions
Loop

End Sub

FOR NEXT
Sub exemple()

Dim i As Integer

For i = 1 To 5
'Instructions
Next

End Sub

La boucle For est répétée ici 5 fois.

A chaque répétition de la boucle, la variable i est automatiquement incrémentée de 1 :

Sub exemple()

Dim i As Integer

For i = 1 To 5
MsgBox i 'Renvoie les valeurs : 1 / 2 / 3 / 4 / 5
Next

End Sub

Si nécessaire, vous pouvez modifier l'incrément (par défaut à 1) de la boucle en ajoutant Step :
Sub exemple()

Dim i As Integer

For i = 10 To 0 Step -2
MsgBox i 'Renvoie les valeurs : 10 / 8 / 6 / 4 / 2 / 0
Next

End Sub

FOR EACH NEXT

La boucle For Each permet de parcourir chaque élément d'un ensemble d'éléments, par exemple parcourir
chaque cellule d'une plage de cellules :

Sub exemple()

Dim cellule As Range

For Each cellule In Range("A1:B3")

cellule = cellule.Address
Next

End Sub

Parcourir chaque feuille du classeur :

Sub exemple()

Dim feuille As Worksheet

For Each feuille In Worksheets

MsgBox feuille.Name
Next

End Sub

Parcourir chaque élément d'un tableau :

Sub exemple()

Dim tableau(2) As String

tableau(0) = "A"
tableau(1) = "B"
tableau(2) = "C"

For Each valeur In tableau

MsgBox valeur
Next

End Sub

QUITTER UNE BOUCLE PRÉMATURÉMENT

Il est possible de quitter une boucle For prématurément grâce à l'instruction suivante :

Exit For 'Quitter une boucle For

Dans cet exemple, l'objectif est de retourner le numéro de la première ligne contenant la valeur 1. Lorsque
cet objectif est atteint, le numéro est affiché et la boucle est interrompue (car il est dans ce cas inutile de
parcourir les autres lignes) :

Sub exemple()

Dim i As Integer

'Boucle pour 100 lignes au maximum

For i = 1 To 100

'Si la cellule vaut 1

If Cells(i, 1) = 1 Then 'Si l'objectif est atteint
MsgBox "La cellule a été trouvée à la ligne " & i & " !"
Exit For 'On quitte la boucle For
End If

Next

End Sub

Les autres instructions Exit :

Exit Do 'Quitter une boucle Do

Exit Sub 'Quitter une procédure
Exit Function 'Quitter une fonction
« Gérez facilement vos contacts (clients, fournisseurs, collaborateurs, etc)
grâce à cette application Excel »

les boucles (exercice)

COURS AU FORMAT PDF

Ce cours est également disponible au format PDF, téléchargeable en un seul fichier Zip de :

 26 fichiers PDF
 14 fichiers Excel

Cette option est payante et contribue au développement de nouveaux contenus gratuits.

Plus d'informations ...

Pour mettre en pratique ce qui a été vu jusque-là, nous allons créer étape par
étape une macro qui va numéroter de 1 à 100 une plage de cellules carrée de
10 par 10 et colorer une cellule sur 2, aperçu :
Voici le point de départ de l'exercice :

Sub exerciceBoucles()

'...

End Sub

Pour commencer, ajoutez une boucle For qui va numéroter de 1 à 10 les

cellules de la ligne 1, aperçu :

Prenez quelques instants pour créer cette boucle avant de passer à la

solution ...

.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
 .
.
.
.
.
.
.
.
.
.
.
.
.
.

La solution :

Sub exerciceBoucles()

Dim colonne As Integer

'Boucle des colonnes

For colonne = 1 To 10
Cells(1, colonne) = colonne
Next

End Sub

Créez maintenant une seconde boucle qui va répéter la première boucle sur 10
lignes, aperçu :

.
.
.
.
.
 .
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.

La solution :

Sub exerciceBoucles()

Dim colonne As Integer, ligne As Integer

'Boucle des lignes

For ligne = 1 To 10

'Boucle des colonnes

For colonne = 1 To 10
Cells(ligne, colonne) = colonne
Next

Next

End Sub

Les lignes sont pour le moment numérotées de 1 à 10.

Trouvez maintenant une solution pour obtenir une numérotation de 1 à 100,

aperçu :
 .
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.

Une solution "simple" consiste à utiliser une variable qui sera incrémentée de
1 après chaque entrée dans une cellule :
Sub exerciceBoucles()

Dim colonne As Integer, ligne As Integer, valeur As Integer

'Valeur de la première cellule

valeur = 1

'Boucle des lignes

For ligne = 1 To 10

'Boucle des colonnes

For colonne = 1 To 10
Cells(ligne, colonne) = valeur
valeur = valeur + 1 'Valeur incrémentée de 1
Next

Next

End Sub

Une autre solution consiste à calculer la valeur à insérer dans la cellule à

l'aide des numéros de colonne et de ligne :

Sub exerciceBoucles()

Dim colonne As Integer, ligne As Integer

'Boucle des lignes

For ligne = 1 To 10

'Boucle des colonnes

For colonne = 1 To 10
Cells(ligne, colonne) = (ligne - 1) * 10 + colonne
Next

Next

End Sub

Pour terminer l'exercice, il reste encore à colorer le fond d'une cellule sur 2 à
l'aide d'une instruction If et de l'opérateur Mod (qui retourne le reste d'une
division), aperçu :
 .
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.

La solution :

Sub exerciceBoucles()

Dim colonne As Integer, ligne As Integer

'Boucle des lignes

For ligne = 1 To 10

'Boucle des colonnes

For colonne = 1 To 10

Cells(ligne, colonne) = (ligne - 1) * 10 + colonne

'Coloration d'une cellule sur 2

If (ligne + colonne) Mod 2 = 0 Then 'Si le reste de la division par 2 = 0
Cells(ligne, colonne).Interior.Color = RGB(220, 220, 220)
End If

Next

Next
End Sub

La condition (ligne + colonne) Mod 2 = 0 est vraie si le reste de la division de

(ligne + colonne) par 2 est égal à 0 (sachant que le reste de la division d'un
nombre entier positif par 2 ne peut être que 0 ou 1).

Pour prendre un exemple plus simple, si l'objectif de l'exercice était de colorer

les lignes paires (sans tenir compte des colonnes), la condition aurait
été ligne Mod 2 = 0.

« Gérez facilement vos contacts (clients, fournisseurs, collaborateurs, etc)

grâce à cette application Excel »

les procédures et fonctions

ACCES PREMIUM

Soutenez le site en devenant membre Premium et profitez de plusieurs options exclusives :

 Navigation sans publicités

 Option "No Tracking"
 Option "Mode Incognito" (sur le forum)
 Option "Dark Mode"
Plus d'informations ...

PUBLIC - PRIVATE
Pour le moment, toutes les procédures créées sont de type Public, elles sont accessibles depuis tous les
modules.

Sub exemple()

'Est identique à :

Public Sub exemple()

Pour rendre une procédure inaccessible hors du module, ajoutez Private :

Private Sub exemple()

LANCER UNE PROCÉDURE DEPUIS UNE PROCÉDURE

Pour exécuter une procédure depuis une autre procédure, entrez simplement son nom.

Un exemple simple :

Private Sub avertissement()

MsgBox "Attention !!!"

End Sub
Sub exemple()

If Range("A1") = "" Then

avertissement '<= exécute la procédure "avertissement"
End If

End Sub

Ici, lorsque la procédure exemple est lancée et que A1 vaut "", la procédure avertissement est exécutée et
affiche la boîte de dialogue.

LES ARGUMENTS
Les arguments permettent de transmettre des valeurs d'une procédure à une autre (car rappelez-vous que par
défaut les variables ne sont pas accessibles depuis les autres procédures).

Ajout d'un argument texte à la procédure avertissement :

Private Sub avertissement(texte As String)

MsgBox "Attention : " & texte & " !"

End Sub

Sub exemple()

If Range("A1") = "" Then 'Si A1 est vide

avertissement "cellule vide"
ElseIf Not IsNumeric(Range("A1")) Then 'Si A1 est non numérique
avertissement "valeur non numérique"
End If

End Sub

L'argument ajouté à la procédure avertissement est de type String :

Private Sub avertissement(texte As String)

Pour exécuter la procédure avertissement, il faudra donc entrer en argument une valeur de type String :

avertissement "cellule vide"

En cas d'arguments multiples, ceux-ci doivent être séparés par des virgules.

LES ARGUMENTS OPTIONNELS

Par défaut, si une procédure requiert des arguments, ceux-ci sont obligatoires pour exécuter la procédure.

Des arguments optionnels peuvent toutefois être ajoutés après les arguments obligatoires avec Optional, par
exemple :

Private Sub boiteDialogue(nom As String, Optional prenom, Optional age)

Cette procédure peut alors être lancée avec ou sans arguments optionnels, comme ceci :

'Exemple 1 : on affiche le nom

boiteDialogue nom

'Exemple 2 : on affiche le nom et le prénom

boiteDialogue nom, prenom

'Exemple 3 : on affiche le nom et l'âge

boiteDialogue nom, , age

'Exemple 4 : on affiche le nom, le prénom et l'âge

boiteDialogue nom, prenom, age

Les arguments doivent être indiqués dans l'ordre.

Pour vérifier si un argument optionnel est présent ou non, nous utiliserons la fonction IsMissing. Cette
fonction n'étant compatible qu'avec certains types de variables (dont Variant), le type des arguments
optionnels n'a pas été déclaré (type non déclaré = Variant).

Voici un exemple avec les 2 portions de code ci-dessus :

Sub exemple()

Dim nom As String, prenom As String, age As Integer

nom = Range("A1")
prenom = Range("B1")
age = Range("C1")

'Exemple 1 : on affiche le nom

boiteDialogue nom

'Exemple 2 : on affiche le nom et le prénom

boiteDialogue nom, prenom

'Exemple 3 : on affiche le nom et l'âge

boiteDialogue nom, , age

'Exemple 4 : on affiche le nom, le prénom et l'âge

boiteDialogue nom, prenom, age

End Sub

Private Sub boiteDialogue(nom As String, Optional prenom, Optional age)

'Si l'âge est manquant

If IsMissing(age) Then

If IsMissing(prenom) Then 'Si le prénom est manquant, on n'affiche que le nom

MsgBox nom
 Else 'Sinon, on affiche le nom et le prénom
MsgBox nom & " " & prenom
End If

'Si l'âge a été renseigné

Else

If IsMissing(prenom) Then 'Si le prénom est manquant, on affiche le nom et

l'âge
MsgBox nom & ", " & age & " ans"
Else 'Sinon on affiche le nom, le prénom et l'âge
MsgBox nom & " " & prenom & ", " & age & " ans"
End If

End If

End Sub

Aperçu (avec nom prénom et âge) :

Il est également possible de renseigner des valeurs par défaut aux arguments optionnels et de tester ensuite
ces valeurs (au lieu d'utiliser la fonction IsMissing) :

Private Sub boiteDialogue(nom As String, Optional prenom As String = "", Optional age
As Integer = 0)

'Si l'âge est manquant

If age = 0 Then

If prenom = "" Then 'Si le prénom est manquant, on n'affiche que le nom
MsgBox nom
Else 'Sinon, on affiche le nom et le prénom
MsgBox nom & " " & prenom
End If

'Si l'âge a été renseigné

Else

If prenom = "" Then 'Si le prénom est manquant, on n'affiche que le nom
MsgBox nom & ", " & age & " ans"
Else 'Sinon on affiche le nom, le prénom et l'âge
MsgBox nom & " " & prenom & ", " & age & " ans"
End If

End If
End Sub

BYREF - BYVAL
Par défaut, les arguments sont de type ByRef ce qui signifie que, si une variable est passée en argument,
c'est sa référence qui est transmise. Autrement dit, si la variable est modifiée dans la sous-procédure, elle le
sera également dans la procédure d'appel.

Par exemple :

Sub exemple()

Dim nombre As Integer

nombre = 30

carre nombre

MsgBox nombre

End Sub

Private Sub carre(ByRef valeur As Integer) 'Il n'est pas nécessaire de préciser ByRef
(type par défaut)

valeur = valeur ^ 2

End Sub

Pour mieux comprendre, voici ce qui se passe lorsque la macro est lancée :

'La valeur initiale de la variable "nombre" est 30

nombre = 30

'La sous-procédure est lancée avec la variable "nombre" en argument

carre nombre

'La variable "valeur" fait référence à la variable "nombre" passée en argument, par
conséquent si la variable "valeur" est modifiée, la variable "nombre" le sera aussi
Private Sub carre(ByRef valeur As Integer)

'La valeur de la variable "valeur" est modifiée (donc la variable "nombre" aussi)
valeur = valeur ^ 2

'Fin de la sous-procédure
End Sub

'La variable "nombre" a été modifiée, 900 est alors affiché dans la boîte de dialogue
MsgBox nombre

La seconde possibilité consiste à utiliser ByVal.

Contrairement à ByRef qui fait directement référence à la variable, ByVal transmet uniquement sa valeur, ce
qui signifie que la variable passée en argument ne subit aucune modification.

Voici ce qui se passe avec le code précédent et ByVal :

'La valeur initiale de la variable "nombre" est 30

nombre = 30

'La sous-procédure est lancée avec la variable "nombre" en argument

carre nombre
'La variable "valeur" copie la valeur de la variable "nombre" (les 2 variables ne sont
pas liées)
Private Sub carre(ByVal valeur As Integer)

'La valeur de la variable "valeur" est modifiée

valeur = valeur ^ 2

'Fin de la sous-procédure (dans cet exemple, la sous-procédure n'aura servi à rien)

End Sub

'La variable "nombre" n'a pas été modifiée, 30 est donc affiché dans la boîte de
dialogue
MsgBox nombre

LES FONCTIONS
La principale différence entre Sub et Function est qu'une fonction retourne une valeur.

En voici un exemple simple :

Function carre(nombre As Double)

carre = nombre ^ 2 'La fonction "carre" retourne la valeur de "carre"

End Function

Sub exemple()

Dim resultat As Double

resultat = carre(9.876) 'La variable resultat reçoit la valeur retournée par la

fonction

MsgBox resultat 'Affichage du résultat (ici, le carré de 9.876)

End Sub

Vous pouvez remarquer que les arguments d'une fonction sont ajoutés entre () contrairement aux procédures
où elles sont superflues.

« Visualisez facilement vos projets et leurs tâches grâce à cette application

Excel »

les boîtes de dialogue

COURS AU FORMAT PDF

Ce cours est également disponible au format PDF, téléchargeable en un seul fichier Zip de :

 26 fichiers PDF
 14 fichiers Excel

Cette option est payante et contribue au développement de nouveaux contenus gratuits.

Plus d'informations ...

MSGBOX
Pour le moment, nous n'avons utilisé la boîte de dialogue MsgBox que pour
afficher une information :

Sub effacerB2()

Range("B2").ClearContents
MsgBox "Le contenu de B2 a été effacé !"

End Sub

Dans ce cas, MsgBox n'est utilisé qu'avec un seul argument.

Aperçu du résultat de ce code :

Nous allons maintenant créer une boîte de dialogue qui va nous demander de
confirmer la suppression avant d'exécuter les instructions.

Voici les 3 arguments que nous allons renseigner :

MsgBox([TEXTE], [BOUTONS], [TITRE])

 Texte : texte de la boîte de dialogue

 Boutons : choix des boutons (Oui, Non, Annuler, etc.) + d'autres options
 Titre : titre de la boîte de dialogue

Sub effacerB2()

If MsgBox("Etes-vous certain de vouloir supprimer le contenu de B2 ?", vbYesNo,

"Demande de confirmation") = vbYes Then
Range("B2").ClearContents
MsgBox "Le contenu de B2 a été effacé !"
End If

End Sub

Aperçu :
vbYesNo indique que les boutons de la boîte de dialogue sont les boutons
"Oui" et "Non", vbYes correspond au bouton "Oui" :

If MsgBox("Texte", vbYesNo, "Titre") = vbYes Then 'Si le bouton Oui est cliqué
MsgBox peut être utilisé à la fois comme une procédure ou une fonction. Si
vous avez besoin de connaître le choix de l'utilisateur et donc obtenir une
valeur en retour, utilisez MsgBox en tant que fonction en ajoutant des () aux
arguments.

LES DIFFÉRENTES POSSIBILITÉS POUR LE SECOND

ARGUMENT DE MSGBOX
Constante Valeur Description
vbOKOnly 0
vbOKCancel 1
vbAbortRetryIgnore 2
vbYesNoCancel 3
vbYesNo 4
vbRetryCancel 5
vbCritical 16
vbQuestion 32
vbExclamation 48
vbInformation 64
vbDefaultButton1 0 Bouton par défaut : Bouton 1
vbDefaultButton2 256 Bouton par défaut : Bouton 2
vbDefaultButton3 512 Bouton par défaut : Bouton 3
vbApplicationModal 0 Force l'utilisateur à répondre avant de poursuivre avec E
Force l'utilisateur à répondre avant de poursuivre avec d
vbSystemModal 4096
applications (boîte de dialogue au premier plan)
Les valeurs à 0 sont celles par défaut.

Le deuxième argument de MsgBox peut prendre plusieurs valeurs de ce

tableau.

Par exemple, pour une boîte de dialogue avec "Oui, Non, Annuler" + icône
exclamation + bouton 2 par défaut :

MsgBox("Texte", vbYesNoCancel + vbExclamation + vbDefaultButton2, "Titre")

Aperçu :

Les constantes peuvent être remplacées par leur valeur respective, ces 3
lignes affichent une boîte de dialogue identique :

MsgBox("Texte", vbYesNoCancel + vbExclamation + vbDefaultButton2, "Titre")

MsgBox("Texte", 3 + 48 + 256, "Titre")
MsgBox("Texte", 307, "Titre")

LES VALEURS RENVOYÉES PAR MSGBOX

ConstanteValeurBouton correspondant à la valeur
vbOK 1
vbCanc
2
el
vbAbor
3
t
vbRetr
4
y
vbIgnor
5
e
vbYes 6
vbNo 7

Voici l'exemple d'une MsgBox qui apparaît en boucle tant que le bouton "Oui"
n'est pas cliqué :

Sub humour()

Do
If MsgBox("Aimez-vous le site Excel-Pratique ?", 36, "Sondage") = vbYes Then
Exit Do 'Si réponse = Oui on sort de la boucle
 End If
Loop While True 'Boucle infinie

MsgBox ";-)"

End Sub

SAUT DE LIGNE DANS UNE MSGBOX

Pour aller à la ligne, vous pouvez insérer le caractère correspondant au saut de
ligne à l'aide de la fonction Chr, exemple :

MsgBox "Exemple 1" & Chr(10) & "Exemple 2" & Chr(10) & Chr(10) & "Exemple 3"

Aperçu :

INPUTBOX
La fonction InputBox demande à l'utilisateur d'entrer une valeur dans une
boîte de dialogue, exemple :

Sub exemple()

Dim resultat As String

resultat = InputBox("Texte ?", "Titre") 'La variable reçoit la valeur entrée dans
l'InputBox

If resultat <> "" Then 'Si la valeur est différente de "" on affiche le résultat
MsgBox resultat
End If

End Sub

Aperçu :
Il est également possible d'indiquer une valeur par défaut en troisième
argument :

InputBox("Texte ?", "Titre", "Valeur par défaut")

Aperçu :

les événements Workbook

ACCES PREMIUM

Soutenez le site en devenant membre Premium et profitez de plusieurs options exclusives :

 Navigation sans publicités

 Option "No Tracking"
 Option "Mode Incognito" (sur le forum)
 Option "Dark Mode"
Plus d'informations ...

LES ÉVÉNEMENTS
Jusque-là, nous avons lancé nos macros en cliquant sur un bouton.

Il est également possible de les exécuter automatiquement lors d'un événement particulier du classeur, tel
que l'ouverture du classeur, sa fermeture, son enregistrement, etc.

WORKBOOK_OPEN (À L'OUVERTURE)
Pour exécuter des instructions à l'ouverture du classeur (après l'activation des macros par l'utilisateur),
rendez-vous dans ThisWorkbook et sélectionnez Workbook :
L'événement Workbook_Open est ajouté par défaut, il agit à l'ouverture du classeur :

Private Sub Workbook_Open()

End Sub

Par exemple, en ajoutant l'instruction suivante, une boîte de dialogue sera affichée à l'ouverture du classeur :

Private Sub Workbook_Open()

MsgBox "Message de bienvenue"

End Sub

WORKBOOK_BEFORECLOSE (AVANT FERMETURE)

Pour exécuter des instructions juste avant la fermeture du classeur, choisissez BeforeClose :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

End Sub

La fermeture du classeur peut être annulée en attribuant la valeur True à la variable Cancel.

Voici un exemple où l'utilisateur doit confirmer la fermeture du classeur :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

 'Si l'utilisateur répond Non, la variable Cancel vaudra True (ce qui annulera la
fermeture)
If MsgBox("Etes-vous certain de vouloir fermer ce classeur ?", 36, "Confirmation")
= vbNo Then
Cancel = True
End If

End Sub

WORKBOOK_BEFORESAVE (AVANT ENREGISTREMENT)

Cet événement se déclenche juste avant l'enregistrement :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

End Sub

L'enregistrement peut être annulé en attribuant la valeur True à la variable Cancel.

WORKBOOK_AFTERSAVE (APRÈS ENREGISTREMENT)

Cet événement se déclenche juste après l'enregistrement :

Private Sub Workbook_AfterSave(ByVal Success As Boolean)

End Sub

WORKBOOK_BEFOREPRINT (AVANT IMPRESSION)

Cet événement se déclenche juste avant l'impression :

Private Sub Workbook_BeforePrint(Cancel As Boolean)

End Sub

L'impression peut être annulée en attribuant la valeur True à la variable Cancel.

WORKBOOK_SHEETACTIVATE (À L'ACTIVATION D'UNE

FEUILLE)
Cet événement se déclenche à chaque changement de feuille :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

End Sub

Par exemple, affichage du nom de la feuille dans une boîte de dialogue :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

MsgBox "Nom de la feuille : " & Sh.Name

End Sub
WORKBOOK_SHEETBEFOREDOUBLECLICK (AVANT
DOUBLE-CLIC)
Cet événement se déclenche juste avant un double-clic sur une cellule :

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range,

Cancel As Boolean)

End Sub

Par exemple, coloration d'une cellule double-cliquée en fonction de la feuille :

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range,

Cancel As Boolean)

If Sh.Name = "Feuil1" Then

Target.Interior.Color = RGB(255, 108, 0) 'Couleur orange
Else
Target.Interior.Color = RGB(136, 255, 0) 'Couleur verte
End If

End Sub

Le double-clic peut être annulé en attribuant la valeur True à la variable Cancel.

WORKBOOK_SHEETBEFORERIGHTCLICK (AVANT CLIC

DROIT)
Cet événement se déclenche juste avant un clic droit sur une cellule :

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range,

Cancel As Boolean)

End Sub

WORKBOOK_SHEETCHANGE (À CHAQUE MODIFICATION DE

CELLULE)
Cet événement se déclenche à chaque modification du contenu d'une cellule :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

End Sub

WORKBOOK_SHEETSELECTIONCHANGE (À CHAQUE
CHANGEMENT DE SÉLECTION)
Cet événement se déclenche à chaque changement de sélection sur une feuille de calcul :

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

End Sub

Par exemple, coloration de la sélection si A1 est vide :

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

If Range("A1") = "" Then

Target.Interior.Color = RGB(124, 255, 255) 'Bleu clair
End If

End Sub

WORKBOOK_NEWSHEET (À L'INSERTION D'UNE FEUILLE)

Cet événement se déclenche à chaque insertion d'une nouvelle feuille :

Private Sub Workbook_NewSheet(ByVal Sh As Object)

End Sub
« Gérez facilement la comptabilité d'une petite structure grâce à cette
application Excel »

les événements Worksheet

COURS AU FORMAT PDF

Ce cours est également disponible au format PDF, téléchargeable en un seul fichier Zip de :

 26 fichiers PDF
 14 fichiers Excel

Cette option est payante et contribue au développement de nouveaux contenus gratuits.

Plus d'informations ...

A la page précédente les événements concernaient le classeur entier. Sur celle-ci, nous allons nous focaliser
sur les événements liés à une feuille.

WORKSHEET_SELECTIONCHANGE (AU CHANGEMENT DE

SÉLECTION)
Pour exécuter des instructions en fonction d'un événement pour une feuille en particulier, sélectionnez la
feuille dans l'éditeur, puis Worksheet :
L'événement SelectionChange est ajouté par défaut, il agit lors d'un changement de sélection :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Par exemple, voici un code qui colore la ou les cellules sélectionnées et qui supprime automatiquement la
coloration de la dernière sélection lors d'un changement de sélection :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Static selectionPrecedente As String

'Suppression de la couleur de fond de la sélection précédente

If selectionPrecedente <> "" Then
Range(selectionPrecedente).Interior.ColorIndex = xlColorIndexNone
End If

'Coloration de la sélection actuelle

Target.Interior.Color = RGB(181, 244, 0)

'Enregistrement de l'adresse de la sélection actuelle

selectionPrecedente = Target.Address

End Sub

WORKSHEET_ACTIVATE (À L'ACTIVATION DE LA FEUILLE)

Cet événement se déclenche lorsque la feuille est activée :

Private Sub Worksheet_Activate()

End Sub

Par exemple, sélection de la cellule D5 à l'activation de la feuille :

Private Sub Worksheet_Activate()

Range("D5").Select

End Sub

WORKSHEET_DEACTIVATE (À LA SORTIE DE LA FEUILLE)

Cet événement se déclenche lorsqu'une autre feuille du classeur est activée :

Private Sub Worksheet_Deactivate()

End Sub

Par exemple, effacement du contenu des cellules B2 à B10 après avoir quitté la feuille :

Private Sub Worksheet_Deactivate()

Range("B2:B10").ClearContents

End Sub

WORKSHEET_BEFOREDOUBLECLICK (AU DOUBLE-CLIC)

Cet événement se déclenche lors d'un double-clic sur une cellule de la feuille :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

End Sub

Par exemple, coloration de la cellule double-cliquée en vert (ou en blanc si elle est déjà colorée) :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Interior.Color = 16777215 Then 'Si blanc

Target.Interior.Color = RGB(200, 255, 100) 'Couleur verte
Else 'Sinon
Target.Interior.Color = 16777215 'Couleur blanche
End If

End Sub

Le double-clic peut être annulé en attribuant la valeur True à la variable Cancel.

WORKSHEET_BEFORERIGHTCLICK (AU CLIC DROIT)

Cet événement se déclenche lors d'un clic droit sur la feuille :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

End Sub

Par exemple, ajout de la date du jour par clic droit si la cellule cliquée est dans la colonne C :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

'Si cellule de la colonne 3 (C)

If Target.Column = 3 Then
Target = Date 'Ajout de la date du jour
Cancel = True 'Annulation du clic droit
End If

End Sub

Le clic droit peut être annulé en attribuant la valeur True à la variable Cancel (dans ce cas, le menu
contextuel ne sera pas affiché).
WORKSHEET_CHANGE (À CHAQUE MODIFICATION DE
CELLULE)
Cet événement se déclenche lors de modifications du contenu des cellules de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)

End Sub

DÉSACTIVER TEMPORAIREMENT TOUS LES ÉVÉNEMENTS

Pour exécuter du code sans déclencher d'événements, placez-le entre ces deux lignes :

Application.EnableEvents = False 'Désactive les événements

'Instructions ...

Application.EnableEvents = True 'Réactive les événements

« Gérez facilement les horaires de travail de vos collaborateurs grâce à cette
application Excel »

UserForm
ACCES PREMIUM

Soutenez le site en devenant membre Premium et profitez de plusieurs options exclusives :

 Navigation sans publicités

 Option "No Tracking"
 Option "Mode Incognito" (sur le forum)
 Option "Dark Mode"
Plus d'informations ...

Pour ajouter un UserForm, procédez de la même manière que pour un nouveau module :
La fenêtre de l'UserForm ainsi que celle de la Boîte à outils apparaissent :

Si la fenêtre des propriétés n'est pas présente, affichez-la (F4) et commencez par modifier le nom de
l'UserForm (pour mieux s'y retrouver par la suite) :
TITRE DE L'USERFORM
Pour modifier le titre de l'UserForm, modifiez sa propriété Caption :

DIMENSIONS DE L'USERFORM
Pour modifier les dimensions de l'UserForm, modifiez ses propriétés Width et Height ou redimensionnez
l'UserForm à la main :
Les propriétés d'un UserForm peuvent également être modifiées à partir d'un code VBA.

LES ÉVÉNEMENTS DE L'USERFORM

Tout comme le classeur ou ses feuilles, l'UserForm a ses propres événements.

Commencez par afficher le code de l'UserForm :

Cliquez ensuite sur UserForm :

Et sélectionnez l'événement UserForm_Initialize qui se déclenche au lancement de l'UserForm :

Private Sub UserForm_Initialize()

End Sub

Pour prendre un exemple, nous allons créer deux événements. Le premier pour définir les dimensions
initiales de l'UserForm et le second pour augmenter ses dimensions de 50 par clic.

Entrez le nom de l'UserForm suivi d'un . :

La propriété Height est la hauteur et Width la largeur :

Private Sub UserForm_Initialize()

UserForm_Exemple.Height = 250
UserForm_Exemple.Width = 250

End Sub

Pour simplifier le code, nous pouvons remplacer le nom de l'UserForm par Me (puisque ce code est placé
dans l'UserForm sur lequel on souhaite agir) :

Private Sub UserForm_Initialize()

Me.Height = 250
Me.Width = 250

End Sub

Le second événement est déclenché au clic sur l'UserForm :

Private Sub UserForm_Initialize()

Me.Height = 250
Me.Width = 250
End Sub

Private Sub UserForm_Click()

Me.Height = Me.Height + 50
Me.Width = Me.Width + 50

End Sub

Aperçu de l'UserForm (F5) :

LANCER UN USERFORM
Pour lancer un UserForm à partir d'une procédure, utilisez Show :

Sub lancerUserform()

UserForm_Exemple.Show

End Sub
« Gérez facilement votre stock (articles, entrées, sorties, clients, fournisseurs,
etc) grâce à cette application Excel »

les contrôles
COURS AU FORMAT PDF

Ce cours est également disponible au format PDF, téléchargeable en un seul fichier Zip de :

 26 fichiers PDF
 14 fichiers Excel

Cette option est payante et contribue au développement de nouveaux contenus gratuits.

 Plus d'informations ...

Les contrôles sont les éléments (boutons, intitulés, zone de texte, cases à
cocher, etc.) qui peuvent être insérés sur un UserForm (ou sur une feuille
Excel).

Les contrôles ont également toute une panoplie de propriétés et d'événements

qui diffèrent d'un contrôle à l'autre.

Pour commencer, ajoutez un UserForm et insérez les 3 contrôles suivants : un

intitulé Label, une zone de texte TextBox et un bouton CommandButton :

Modifiez les propriétés de l'UserForm et des contrôles (dont les

propriétés (Name) pour le nom, Caption pour le texte et Font pour la taille
du texte) pour obtenir ceci :

Pour positionner les contrôles de manière plus précise qu'avec un déplacement

manuel, modifiez les propriétés Left et Top du contrôle. De même, pour
redimensionner les contrôles de manière plus précise qu'avec un
redimensionnement manuel, modifiez les propriétés Width et Height.

Pour le moment, lorsque l'on entre un nombre et que l'on clique sur le bouton, il
ne se passe rien.

Pour y remédier, nous allons commencer par ajouter un événement pour entrer
la valeur de la zone de texte dans la cellule A1 et fermer l'UserForm.
En double-cliquant sur le bouton, un événement par défaut est ajouté dans le
code de l'UserForm. Dans ce cas, il s'agit de l'événement souhaité, mais en cas
de besoin, vous pouvez sélectionner un autre événement dans la liste :

L'événement Click est déclenché au clic sur le bouton :

Private Sub CommandButton_valider_Click()

'La cellule A1 (de la feuille active) obtient la valeur de la zone de texte nommée
"TextBox_nombre"
Range("A1") = TextBox_nombre.Value

'Fermeture (Unload) de l'UserForm (Me)

Unload Me

End Sub

La valeur est alors entrée dans la cellule A1 avant de fermer l'UserForm.

Nous allons maintenant ajouter un événement qui s'active au changement de

valeur de la zone de texte et qui va modifier la couleur de fond si la valeur n'est
pas numérique :

Private Sub TextBox_nombre_Change()

If IsNumeric(TextBox_nombre.Value) Then 'Si valeur numérique

TextBox_nombre.BackColor = RGB(255, 255, 255) 'Blanc
Else 'Sinon
TextBox_nombre.BackColor = RGB(247, 205, 201) 'Rouge clair
End If

End Sub

L'événement est déclenché à chaque entrée ou suppression de caractère dans

la zone de texte.

Aperçu :
Il nous reste encore à empêcher la validation du formulaire si la valeur n'est
pas numérique en ajoutant une instruction If :

Private Sub CommandButton_valider_Click()

'Si valeur numérique

If IsNumeric(TextBox_nombre.Value) Then
Range("A1") = TextBox_nombre.Value
Unload Me
End If

End Sub

Le fichier : userform1.xlsm

LES CASES À COCHER (CHECKBOX)

Voici un exemple d'utilisation de cases à cocher dont l'objectif est de modifier
les valeurs en colonne B en fonction des cases cochées dans l'UserForm :

L'événement Click du bouton enregistre ici les choix de l'utilisateur et ferme

ensuite l'UserForm :
Private Sub CommandButton_valider_Click()

'Numéro 1
If CheckBox1.Value = True Then 'Si coché
Range("B2") = "Oui"
Else 'Si décoché
Range("B2") = "Non"
End If

'Numéro 2
If CheckBox2.Value = True Then 'Si coché
Range("B3") = "Oui"
Else 'Si décoché
Range("B3") = "Non"
End If

'Numéro 3
If CheckBox3.Value = True Then 'Si coché
Range("B4") = "Oui"
Else 'Si décoché
Range("B4") = "Non"
End If

'Fermeture
Unload Me

End Sub

Rappelez-vous qu'une condition cherche toujours à savoir si le résultat du test

est True :

If CheckBox1.Value = True Then 'Si coché

Il n'est donc pas utile d'ajouter = True :

If CheckBox1.Value Then 'Si coché

Pour simplifier encore davantage l'écriture, la propriété Value est la propriété

par défaut de la plupart des contrôles, il n'est donc pas nécessaire de l'ajouter
(comme nous l'avions vu précédemment avec la propriété Value des
cellules) :

If CheckBox1.Value Then 'Si coché

L'ajout de .Value est donc facultatif :

If CheckBox1 Then 'Si coché

Suite à ces simplifications, le code ressemble maintenant à ceci :

Private Sub CommandButton_valider_Click()

'Numéro 1
If CheckBox1 Then 'Si coché
Range("B2") = "Oui"
Else 'Si décoché
Range("B2") = "Non"
End If

'Numéro 2
If CheckBox2 Then 'Si coché
 Range("B3") = "Oui"
Else 'Si décoché
Range("B3") = "Non"
End If

'Numéro 3
If CheckBox3 Then 'Si coché
Range("B4") = "Oui"
Else 'Si décoché
Range("B4") = "Non"
End If

'Fermeture
Unload Me

End Sub

Maintenant, imaginez que vous n'ayez pas 3 mais 30 cases à cocher ...

Dans ce cas, l'utilisation d'une boucle est plus que bienvenue :

Private Sub CommandButton_valider_Click()

Dim i As Integer

'Boucle des cases à cocher

For i = 1 To 3
If Controls("CheckBox" & i) Then 'Si coché
Range("B" & i + 1) = "Oui"
Else 'Si décoché
Range("B" & i + 1) = "Non"
End If
Next

'Fermeture
Unload Me

End Sub
Controls("CheckBox1") est l'équivalent du contrôle CheckBox1 et permet
d'accéder à un contrôle en fonction de son nom, ce qui peut être très pratique
notamment dans une boucle.

Dans cet exemple, les cases sont toutes décochées à l'ouverture de

l'UserForm.

Pour cocher les cases dont la valeur de la cellule correspondante est Oui au
lancement de l'UserForm, ajoutez l'événement UserForm_Initialize et les tests
suivants :

Private Sub UserForm_Initialize()

If Range("B2") = "Oui" Then

CheckBox1 = True
End If

If Range("B3") = "Oui" Then

CheckBox2 = True
End If

If Range("B4") = "Oui" Then

CheckBox3 = True
End If
End Sub

Pour simplifier ce code, vous avez la possibilité d'écrire l'instruction If sur une
seule ligne et sans End If lorsqu'il n'y a qu'une seule action à effectuer :

Private Sub UserForm_Initialize()

If Range("B2") = "Oui" Then CheckBox1 = True

If Range("B3") = "Oui" Then CheckBox2 = True

If Range("B4") = "Oui" Then CheckBox3 = True

End Sub

L'utilisation d'une boucle est également possible :

Private Sub UserForm_Initialize()

Dim i As Integer

For i = 1 To 3
If Range("B" & i + 1) = "Oui" Then Controls("CheckBox" & i) = True
Next

End Sub

Le fichier : userform2.xlsm

« Gérez facilement les horaires de travail de vos collaborateurs grâce à cette

application Excel »

les contrôles (partie 2)

ACCES PREMIUM

Soutenez le site en devenant membre Premium et profitez de plusieurs options exclusives :

  Navigation sans publicités
 Option "No Tracking"
 Option "Mode Incognito" (sur le forum)
 Option "Dark Mode"
Plus d'informations ...

LES BOUTONS D'OPTION (OPTIONBUTTON)

Contrairement aux cases à cocher, l'utilisateur ne peut choisir qu'un seul bouton d'option par groupe.

Il faudra séparer ici les boutons d'option en 2 groupes puis enregistrer les résultats dans 2 cellules :

Le fichier : userform3.xlsm

La première étape consiste à créer les groupes de boutons (car pour le moment vous ne pouvez sélectionner
qu'une seule réponse parmi les 8 réponses).

Pour faire cela, sélectionnez les 4 premiers contrôles et entrez une valeur dans la propriété GroupName :
Répétez ensuite l'opération pour les 4 autres contrôles (en entrant une valeur différente).

Vous pouvez à présent sélectionner une réponse par groupe.

Pour enregistrer les réponses dans les cellules de la feuille, nous allons tout d'abord ajouter
l'événement Click du bouton Enregistrer.

Il faut ensuite ajouter une boucle pour chaque groupe de boutons d'option et enregistrer l'information lorsque
la valeur du contrôle est True :

Private Sub CommandButton_valider_Click()

Dim i As Integer

'Question 1
For i = 1 To 4
If Controls("OptionButton_a_" & i) Then Range("A2") =
Controls("OptionButton_a_" & i).Caption
Next

'Question 2
For i = 1 To 4
If Controls("OptionButton_b_" & i) Then Range("B2") =
Controls("OptionButton_b_" & i).Caption
Next

'Fermeture
Unload Me

End Sub
Mais plutôt que d'enregistrer le choix au format texte, nous allons plutôt enregistrer son numéro (de 1 à 4) :

Private Sub CommandButton_valider_Click()

Dim i As Integer

'Question 1
For i = 1 To 4
If Controls("OptionButton_a_" & i) Then Range("A2") = i
Next

'Question 2
For i = 1 To 4
If Controls("OptionButton_b_" & i) Then Range("B2") = i
Next

'Fermeture
Unload Me

End Sub

Si l'on souhaite que le formulaire ne puisse être validé que lorsque l'utilisateur a répondu aux 2 questions,
une solution consiste à enregistrer le choix de chaque groupe dans une variable, vérifier ensuite s'il y a un
choix pour chacune des 2 variables et enregistrer les choix dans les cellules :

Private Sub CommandButton_valider_Click()

Dim i As Integer, choix1 As Integer, choix2 As Integer

'Question 1
For i = 1 To 4
If Controls("OptionButton_a_" & i) Then choix1 = i
Next

'Question 2
For i = 1 To 4
If Controls("OptionButton_b_" & i) Then choix2 = i
Next

'Si 2 réponses
If choix1 > 0 And choix2 > 0 Then

'Enregistrement
Range("A2") = choix1
Range("B2") = choix2

'Fermeture
Unload Me
 'Si une ou plusieurs réponses manquantes
Else

'Message d'erreur
MsgBox "Vous devez répondre à toutes les questions avant de valider le
formulaire.", 48, "Erreur"

End If

End Sub

Le fichier : userform3b.xlsm

LA LISTE DÉROULANTE (COMBOBOX) ET LA ZONE DE LISTE

(LISTBOX)
Voici le point de départ de ce nouvel exemple :

Le fichier : userform4.xlsm

Au lancement de l'UserForm, nous voulons que les 4 pays soient chargés dans la liste déroulante (à l'aide de
la méthode AddItem) :

Private Sub UserForm_Initialize()

Dim i As Integer

'Boucle pour ajouter les 4 pays à la liste déroulante

For i = 1 To 4
ComboBox_pays.AddItem Cells(1, i)
Next

End Sub
Au changement de sélection dans la liste déroulante, la liste des villes correspondant au pays choisi doit
ensuite être affichée dans la zone de liste.

Pour faire cela, nous avons besoin de connaître le numéro de colonne ainsi que le nombre de villes de cette
colonne.

La propriété ListIndex de la liste déroulante correspond au numéro de la sélection dans la liste

(contrairement à la propriété Value qui correspond à la valeur au format texte).

Sachant que ListIndex commence à 0 (comme les tableaux), le numéro de colonne est donc :

colonne = ComboBox_Pays.ListIndex + 1

Pour obtenir le nombre de lignes de la colonne du pays choisi, nous pouvons rechercher le numéro de ligne
de la dernière cellule d'un bloc de cellules non vides, comme ceci :

nbLignes = Cells(1, colonne).End(xlDown).Row

Grâce à ces informations, il est désormais possible de créer l'événement Change de la liste déroulante :

Private Sub ComboBox_Pays_Change()

Dim colonne As Integer, nbLignes As Integer

'Zone de liste vidée (sinon les villes sont ajoutées à la suite)

ListBox_villes.Clear

'Numéro de la sélection
colonne = ComboBox_pays.ListIndex + 1

'Si le numéro de colonne = 0 (donc si aucun pays sélectionné) la procédure est

quittée
If colonne = 0 Then Exit Sub

'Nombre de lignes de la colonne du pays choisi

nbLignes = Cells(1, colonne).End(xlDown).Row

'Boucle pour ajouter les villes dans la zone de liste

For i = 2 To nbLignes
ListBox_villes.AddItem Cells(i, colonne)
Next

End Sub
Il ne reste ensuite plus qu'à ajouter un événement au clic sur le bouton Valider pour traiter cette information.
Dans ce cas, un simple affichage de la sélection dans une boîte de dialogue :

Private Sub CommandButton_valider_Click()

MsgBox "Ville sélectionnée : " & ListBox_villes '(propriété Value de

ListBox_villes)

End Sub

Le fichier : userform4b.xlsm

« Gérez facilement votre stock (articles, entrées, sorties, clients, fournisseurs,

etc) grâce à cette application Excel »

les contrôles (partie 3)

COURS AU FORMAT PDF

Ce cours est également disponible au format PDF, téléchargeable en un seul fichier Zip de :

 26 fichiers PDF
 14 fichiers Excel

Cette option est payante et contribue au développement de nouveaux contenus gratuits.

Plus d'informations ...

INSERTION SUR UNE FEUILLE

Les contrôles peuvent être utilisés également sur une feuille Excel. Pour cet exemple, nous ajouterons donc
le contrôle directement sur la feuille.
LE BOUTON BASCULE (TOGGLEBUTTON)
Insérez pour commencer un bouton bascule (contrôle ActiveX) à partir de l'onglet Développeur :

Notez que pour manipuler un contrôle ActiveX sur une feuille, le Mode Création doit être activé :

Double-cliquez maintenant sur le bouton et modifiez ses propriétés pour obtenir :

L'objectif ici est de masquer la feuille 2 lorsque le bouton est pressé ou de l'afficher dans le cas contraire.

Le précédent double-clic a également ajouté l'événement Click du bouton dans la feuille où se trouve le
bouton :

Il ne reste plus qu'à entrer les instructions à exécuter au clic sur le bouton :

Private Sub ToggleButton1_Click()

'Si le bouton est pressé

If ToggleButton1 Then

'Masquer la feuille et modifier le texte du bouton

Sheets("Feuil2").Visible = 2
ToggleButton1.Caption = "La feuille 2 est masquée"

'Sinon
Else

'Afficher la feuille et modifier le texte du bouton

Sheets("Feuil2").Visible = -1
ToggleButton1.Caption = "La feuille 2 est affichée"

End If

End Sub

Le fichier : togglebutton.xlsm

« Gérez facilement la comptabilité d'une petite structure grâce à cette

application Excel »
 les contrôles (exercice)
ACCES PREMIUM

Soutenez le site en devenant membre Premium et profitez de plusieurs options exclusives :

 Navigation sans publicités

 Option "No Tracking"
 Option "Mode Incognito" (sur le forum)
 Option "Dark Mode"
Plus d'informations ...

EXERCICE PRATIQUE
Il est temps de mettre en pratique l'utilisation des contrôles avec un petit exercice.

Le fichier : controles_exercice.xlsm

Voici le point de départ de l'exercice :

Vous l'aurez compris, l'objectif est de remplir le tableau de la feuille à l'aide du formulaire.

Quelques points à prendre en compte :

 Lister les pays en fonction de la liste de la seconde feuille

 Vérifier si tous les champs ont été renseignés avant d'ajouter un nouveau contact
 Après ajout d'un contact, réinitialiser le formulaire sans le fermer

Prenez un moment pour réaliser cet exercice avant de passer à la solution ...
 .
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.

Voici une solution parmi d'autres pour réaliser cet exercice.

LE BOUTON "FERMER"
Evénement Click du bouton Fermer :

Private Sub CommandButton_fermer_Click()

Unload Me

End Sub

LE CONTENU DE LA LISTE DÉROULANTE

Evénement Initialize de l'UserForm :

Private Sub UserForm_Initialize()

Dim i As Integer

'Boucle pour ajouter les pays dans la liste déroulante

For i = 1 To 231
ComboBox_pays.AddItem Sheets("Pays").Cells(i, 1)
Next

End Sub
VÉRIFICATION DES CONTRÔLES
Une solution simple pour s'assurer qu'un bouton d'option soit sélectionné est d'ajouter un choix par défaut
(propriété Value à True à l'un des boutons).

Mais pour l'exercice, ces contrôles seront testés comme les autres.

Une solution possible consiste à afficher une boîte de dialogue si n'importe lequel des champs a été oublié :

Private Sub CommandButton_ajouter_Click()

'Si formulaire complet

If (OptionButton_1 Or OptionButton_2 Or OptionButton_3) And TextBox_nom <> "" And
TextBox_prenom <> "" And TextBox_adresse <> "" And TextBox_lieu <> "" And
ComboBox_pays.ListIndex >= 0 Then

'Instructions pour insérer le contact ici ...

'Si formulaire incomplet

Else
MsgBox "Formulaire incomplet"
End If

End Sub

Mais pour compliquer un peu les choses, chaque champ sera testé individuellement, et si l'un d'entre eux n'a
pas été renseigné, son intitulé sera coloré en rouge :

Private Sub CommandButton_ajouter_Click()

'Coloration des Labels en noir (&H80000012 = couleur de base de la propriété

ForeColor)
Label_civilite.ForeColor = &H80000012
Label_nom.ForeColor = &H80000012
Label_prenom.ForeColor = &H80000012
Label_adresse.ForeColor = &H80000012
Label_lieu.ForeColor = &H80000012
Label_pays.ForeColor = &H80000012

'Contrôles des champs

If OptionButton_1 = False And OptionButton_2 = False And OptionButton_3 = False
Then 'Si pas de civilité
Label_civilite.ForeColor = RGB(255, 0, 0)
ElseIf TextBox_nom = "" Then 'Si pas de nom
Label_nom.ForeColor = RGB(255, 0, 0)
ElseIf TextBox_prenom = "" Then 'Si pas de prénom
Label_prenom.ForeColor = RGB(255, 0, 0)
ElseIf TextBox_adresse = "" Then 'Si pas d'adresse
Label_adresse.ForeColor = RGB(255, 0, 0)
ElseIf TextBox_lieu = "" Then 'Si pas de lieu
Label_lieu.ForeColor = RGB(255, 0, 0)
ElseIf ComboBox_pays.ListIndex = -1 Then 'Si pas de pays
Label_pays.ForeColor = RGB(255, 0, 0)
Else

'Instructions pour insérer le contact ici ...

End If

End Sub
INSERTION DES DONNÉES
Le code suivant a été inséré à l'emplacement indiqué sur le code précédent (sous forme de commentaire) :

Dim ligne As Integer

'Numéro de ligne de la première cellule vide de la colonne 1 en partant du bas de la

feuille
ligne = Cells(Rows.Count, 1).End(xlUp).Row + 1

'Choix de civilité
If OptionButton_1 Then
Cells(ligne, 1) = OptionButton_1.Caption
ElseIf OptionButton_2 Then
Cells(ligne, 1) = OptionButton_2.Caption
Else
Cells(ligne, 1) = OptionButton_3.Caption
End If

'Insertion des valeurs sur la feuille

Cells(ligne, 2) = TextBox_nom
Cells(ligne, 3) = TextBox_prenom
Cells(ligne, 4) = TextBox_adresse
Cells(ligne, 5) = TextBox_lieu
Cells(ligne, 6) = ComboBox_pays

'Après insertion, réinitialisation du formulaire

OptionButton_1 = False
OptionButton_2 = False
OptionButton_3 = False
TextBox_nom = ""
TextBox_prenom = ""
TextBox_adresse = ""
TextBox_lieu = ""
ComboBox_pays.ListIndex = -1

Dans ce code, le numéro de la ligne d'insertion est obtenu grâce à :

ligne = Cells(Rows.Count, 1).End(xlUp).Row + 1

Rows.Count retourne ici le nombre de ligne de la feuille, Cells(Rows.Count, 1) correspond donc à la

dernière cellule de la colonne 1.

En partant de cette dernière cellule et en recherchant vers le haut (xlUp), Excel va retourner le numéro de
ligne de la première cellule non vide de cette colonne (qui sera ici la dernière ligne complétée du tableau). Et
puisque l'on ne recherche pas la dernière ligne complétée du tableau mais celle juste au-dessous, il faut
encore ajouter + 1 à ce numéro.

Même si vous avez un peu de mal avec cette dernière ligne de code, retenez-la bien car elle pourra vous
servir à chaque fois que vous aurez besoin d'insérer une ligne à la suite d'un tableau (ou de connaître le
numéro de la dernière ligne d'un tableau, et dans ce cas, il ne faudra pas ajouter + 1).

VUE D'ENSEMBLE
Pour terminer, voici le code complet ainsi que le fichier :

'Ouverture de l'UserForm
Private Sub UserForm_Initialize()

Dim i As Integer

'Boucle pour ajouter les pays dans la liste déroulante

For i = 1 To 231
ComboBox_pays.AddItem Sheets("Pays").Cells(i, 1)
Next

End Sub

'Bouton Ajouter
Private Sub CommandButton_ajouter_Click()

'Coloration des Labels en noir (&H80000012 = couleur de base de la propriété

ForeColor)
Label_civilite.ForeColor = &H80000012
Label_nom.ForeColor = &H80000012
Label_prenom.ForeColor = &H80000012
Label_adresse.ForeColor = &H80000012
Label_lieu.ForeColor = &H80000012
Label_pays.ForeColor = &H80000012

'Contrôles des champs

If OptionButton_1 = False And OptionButton_2 = False And OptionButton_3 = False
Then 'Si pas de civilité
Label_civilite.ForeColor = RGB(255, 0, 0)
ElseIf TextBox_nom = "" Then 'Si pas de nom
Label_nom.ForeColor = RGB(255, 0, 0)
ElseIf TextBox_prenom = "" Then 'Si pas de prénom
Label_prenom.ForeColor = RGB(255, 0, 0)
ElseIf TextBox_adresse = "" Then 'Si pas d'adresse
Label_adresse.ForeColor = RGB(255, 0, 0)
ElseIf TextBox_lieu = "" Then 'Si pas de lieu
Label_lieu.ForeColor = RGB(255, 0, 0)
ElseIf ComboBox_pays.ListIndex = -1 Then 'Si pas de pays
Label_pays.ForeColor = RGB(255, 0, 0)
Else

Dim ligne As Integer

'Numéro de ligne de la première cellule vide de la colonne 1 en partant du bas

de la feuille
ligne = Cells(Rows.Count, 1).End(xlUp).Row + 1

'Choix de civilité
If OptionButton_1 Then
Cells(ligne, 1) = OptionButton_1.Caption
ElseIf OptionButton_2 Then
Cells(ligne, 1) = OptionButton_2.Caption
Else
Cells(ligne, 1) = OptionButton_3.Caption
 End If

'Insertion des valeurs sur la feuille

Cells(ligne, 2) = TextBox_nom
Cells(ligne, 3) = TextBox_prenom
Cells(ligne, 4) = TextBox_adresse
Cells(ligne, 5) = TextBox_lieu
Cells(ligne, 6) = ComboBox_pays

'Après insertion, réinitialisation du formulaire

OptionButton_1 = False
OptionButton_2 = False
OptionButton_3 = False
TextBox_nom = ""
TextBox_prenom = ""
TextBox_adresse = ""
TextBox_lieu = ""
ComboBox_pays.ListIndex = -1

End If

End Sub

'Bouton Fermer
Private Sub CommandButton_fermer_Click()

Unload Me

End Sub

Le fichier complété : controles_exercice2.xlsm

« Gérez facilement les horaires de travail de vos collaborateurs grâce à cette

application Excel »

utilisations des tableaux

COURS AU FORMAT PDF

Ce cours est également disponible au format PDF, téléchargeable en un seul fichier Zip de :

 26 fichiers PDF
 14 fichiers Excel

Cette option est payante et contribue au développement de nouveaux contenus gratuits.

Plus d'informations ...

LES TABLEAUX
Les tableaux permettent de stocker un grand nombre de valeurs contrairement aux variables qui ne peuvent
stocker qu'une seule valeur à la fois.

Nous avons effleuré le sujet à la leçon sur les variables, nous allons maintenant l'approfondir.
INTÉRÊT DES TABLEAUX
Imaginez que dans une procédure vous ayez besoin de stocker 500 valeurs. S'il fallait créer 500 variables
pour stocker toutes ces valeurs, cela deviendrait vite très compliqué, tandis qu'avec un tableau, le stockage et
l'utilisation de ces valeurs seront grandement simplifiés.

Le second intérêt est la vitesse d'exécution (parcourir un tableau de données est infiniment plus rapide que
de parcourir une plage de cellules équivalente).

Rien de tel qu'un exemple pour mieux comprendre ...

La première feuille contient ici une base de données de 5000 lignes sur 3 colonnes :

La seconde feuille contient une grille où seront comptabilisés les OUI en fonction des années et des clients :
Dans cet exemple, la procédure va parcourir la base de données en boucle et comptabilisera pour chaque
année et chaque numéro de client le nombre de OUI avant de l'entrer dans la cellule correspondante.

Sans utiliser de tableau, il faudra 171.11 secondes à Excel pour exécuter la procédure :
En enregistrant tout d'abord la base de données dans un tableau et en effectuant ensuite les mêmes calculs
(en parcourant le tableau au lieu des cellules), il ne faudra que 1.67 secondes pour exécuter la procédure :

Et si l'on décide d'optimiser la procédure en n'enregistrant que les données avec les OUI dans le tableau (ce
qui représente environ le 3/4 des données) et uniquement les années des dates, 0.58 secondes suffisent :
Dans cet exemple, l'utilisation d'un tableau a permis d'exécuter la procédure environ 295x plus rapidement.

DÉCLARATION D'UN TABLEAU

Voici quelques exemples de déclarations (si les 2 premières déclarations ne sont pas claires pour
vous, relisez ceci) :

'Exemple de déclaration d'un tableau à 1 dimension

Dim tab1(4)

'Exemple de déclaration d'un tableau à 2 dimensions

Dim tab2(6, 1)

'Exemple de déclaration d'un tableau dynamique

Dim tab3()

Si vous ne pouvez pas entrer de valeurs fixes (parce que cela dépend de la taille de la base de données par
exemple), laissez les parenthèses vides.

Vous n'avez pas besoin de déclarer un type (String, Integer, etc.) car dans bien des cas cela ralentirait votre
procédure.

ENREGISTRER DES DONNÉES DANS UN TABLEAU

Commençons par enregistrer ces quelques données dans un tableau :
Nous voulons enregistrer ici 11 x 1 valeurs, il faudra donc déclarer un tableau à une dimension :

Dim tableau(10)

Le tableau tableau(10) peut contenir 11 valeurs, car rappelez-vous que la numérotation d'un tableau
commence à 0.

Chaque élément du tableau reçoit ensuite sa valeur :

Sub exemple()

Dim tableau(10)

'Enregistrement des valeurs dans le tableau

tableau(0) = Range("A2")
tableau(1) = Range("A3")
tableau(2) = Range("A4")
tableau(3) = Range("A5")
tableau(4) = Range("A6")
tableau(5) = Range("A7")
tableau(6) = Range("A8")
tableau(7) = Range("A9")
tableau(8) = Range("A10")
tableau(9) = Range("A11")
tableau(10) = Range("A12")

End Sub

Mais pour éviter toutes ces répétitions, l'utilisation d'une boucle For est plus que recommandée :

Sub exemple()

Dim tableau(10), i As Integer

'Enregistrement des valeurs dans le tableau

For i = 0 To 10
tableau(i) = Range("A" & i + 2)
Next

End Sub

Notez que vous pouvez utiliser, modifier chaque élément du tableau individuellement comme une variable.
En voici un exemple avec tableau(3), la 4e valeur du tableau :

Sub exemple()

Dim tableau(10), i As Integer

'Enregistrement des valeurs dans le tableau

For i = 0 To 10
tableau(i) = Range("A" & i + 2)
Next

'Affichage 1
MsgBox tableau(3) 'Renvoie : 08.03.2023

'Modification de l'une des valeurs

tableau(3) = Year(tableau(3))

'Affichage 2
MsgBox tableau(3) 'Renvoie : 2023

End Sub

Dans cet exemple, la fonction Year (qui renvoie l'année d'une date) a été utilisée pour modifier tableau(3).

« Visualisez facilement vos projets et leurs tâches grâce à cette application

Excel »

utilisations des tableaux (partie 2)

ACCES PREMIUM

Soutenez le site en devenant membre Premium et profitez de plusieurs options exclusives :

 Navigation sans publicités

 Option "No Tracking"
 Option "Mode Incognito" (sur le forum)
 Option "Dark Mode"
Plus d'informations ...

LE TABLEAU À 2 DIMENSIONS
Pour enregistrer plusieurs colonnes de données, une dimension supplémentaire est nécessaire.

En voici un exemple :
Enregistrement des données dans un tableau à 2 dimensions :

'Déclarations
Dim tableau(10, 2) 'Tableau de 11 x 3 "cases"
Dim i As Integer

'Enregistrement des valeurs dans le tableau

For i = 0 To 10
tableau(i, 0) = Range("A" & i + 2)
tableau(i, 1) = Range("B" & i + 2)
tableau(i, 2) = Range("C" & i + 2)
Next

Et quelques exemples de valeurs :

MsgBox tableau(0, 0) 'Renvoie : 11.03.2026

MsgBox tableau(0, 1) 'Renvoie : 24
MsgBox tableau(9, 2) 'Renvoie : NON
MsgBox tableau(10, 2) 'Renvoie : OUI

LE TABLEAU DYNAMIQUE
Imaginons que cette même base de données soit régulièrement mise à jour et que l'on ne puisse donc pas
entrer de valeurs fixes à la déclaration ... Dans ce cas, le tableau dynamique sera bien utile.

Pour connaître le numéro de la dernière ligne de notre base de données, utilisez la formule suivante (que
nous avions vu lors du précédent exercice) :
derniereLigne = Cells(Rows.Count, 1).End(xlUp).Row

Si vous entrez une variable lors de la déclaration, Excel ne l'acceptera pas.

Déclarez un tableau dynamique (parenthèses vides), puis définissez ses dimensions avec Redim :

Dim tableau()
ReDim tableau(derniereLigne - 2, 2)

De cette manière vous enregistrerez automatiquement toutes les lignes de la base de données dans le
tableau :

Sub exemple()

'Déclarations
Dim tableau(), derniereLigne As Integer, i As Integer

'Dernière ligne de la base de données

derniereLigne = Cells(Rows.Count, 1).End(xlUp).Row

'Redimensionnement
ReDim tableau(derniereLigne - 2, 2)

'Enregistrement des valeurs dans le tableau

For i = 0 To derniereLigne - 2
tableau(i, 0) = Range("A" & i + 2)
tableau(i, 1) = Range("B" & i + 2)
tableau(i, 2) = Range("C" & i + 2)
Next

End Sub

UBOUND
Dans l'exemple ci-dessus, le dernier numéro de notre tableau était égal à derniereLigne - 2 :

For i = 0 To derniereLigne - 2

Une solution pour connaître ce numéro (si cette information n'est pas déjà disponible) consiste à utiliser la
fonction Ubound :

For i = 0 To UBound(tableau)

Cette fonction renvoie le plus grand numéro pour une dimension choisie (par défaut la première).

Quelques exemples pour mieux comprendre :

Sub exemple()

Dim tableau(10, 2)

MsgBox UBound(tableau) 'Renvoie : 10

MsgBox UBound(tableau, 1) 'Renvoie : 10
MsgBox UBound(tableau, 2) 'Renvoie : 2

End Sub

ENREGISTRER UNE PLAGE DE CELLULES

Il est possible d'enregistrer une plage de cellules dans un tableau sans passer par une boucle.
'Déclarations
Dim tableau(10, 2) 'Tableau de 11 x 3 "cases"
Dim i As Integer

'Enregistrement des valeurs dans le tableau

For i = 0 To 10
tableau(i, 0) = Range("A" & i + 2)
tableau(i, 1) = Range("B" & i + 2)
tableau(i, 2) = Range("C" & i + 2)
Next

Le code ci-dessus peut être remplacé par :

'Déclaration
Dim tableau()

'Enregistrement des valeurs dans le tableau

tableau = Range("A2:C12")

Même si au premier abord cette seconde méthode semble séduisante, elle peut dans bien des cas vous faire
perdre plus de temps que la première méthode ...

En enregistrant vos données dans le tableau de cette manière, le premier numéro n'est pas 0 mais 1, cela peut
être source de confusion. De plus, si au cours du développement vous choisissez de n'enregistrer dans le
tableau que les données répondant à certains critères (ou effectuer toute autre opération), vous devrez de
toute façon passer par une boucle.

ARRAY
Vous aurez peut-être parfois besoin de créer un tableau contenant une liste fixe de valeurs.

Une solution consiste à déclarer le tableau et à entrer les valeurs l'une après l'autre :

Dim tableau(5)

tableau(0) = "SI"
tableau(1) = "RECHERCHEV"
tableau(2) = "SOMME"
tableau(3) = "NB"
tableau(4) = "ESTNUM"
tableau(5) = "STXT"

Une solution bien plus pratique consiste à utiliser la fonction Array qui retourne un tableau de valeurs :

tableau = Array("SI", "RECHERCHEV", "SOMME", "NB", "ESTNUM", "STXT")

SPLIT
La fonction Split permet de diviser une chaîne de caractères en un tableau en fonction d'un délimiteur défini.

Par exemple, voici une chaîne de caractères :

chaine = "SI, RECHERCHEV, SOMME, NB, ESTNUM, STXT"

Pour convertir cette chaîne de caractères en tableau, utilisez la fonction Split et définissez le séparateur :

tableau = Split(chaine, ", ")

Le tableau renverra les valeurs suivantes :

MsgBox tableau(0) 'Renvoie : SI
MsgBox tableau(1) 'Renvoie : RECHERCHEV
MsgBox tableau(2) 'Renvoie : SOMME
MsgBox tableau(3) 'Renvoie : NB
MsgBox tableau(4) 'Renvoie : ESTNUM
MsgBox tableau(5) 'Renvoie : STXT

Les 3 tableaux suivants renvoient également les mêmes valeurs :

tableau = Array("SI", "RECHERCHEV", "SOMME", "NB", "ESTNUM", "STXT")

tableau = Split("SI/RECHERCHEV/SOMME/NB/ESTNUM/STXT", "/")
tableau = Split("SI RECHERCHEV SOMME NB ESTNUM STXT", " ")

JOIN
La fonction à l'opposé de Split est Join.

Cette fonction permet d'assembler les valeurs d'un tableau en une chaîne de caractères :

tableau = Array("SI", "RECHERCHEV", "SOMME", "NB", "ESTNUM", "STXT")

MsgBox Join(tableau, " - ") 'Renvoie : SI - RECHERCHEV - SOMME - NB - ESTNUM - STXT

« Gérez facilement vos contacts (clients, fournisseurs, collaborateurs, etc)
grâce à cette application Excel »

utilisations des tableaux

(exercice)
COURS AU FORMAT PDF

Ce cours est également disponible au format PDF, téléchargeable en un seul fichier Zip de :

 26 fichiers PDF
 14 fichiers Excel

Cette option est payante et contribue au développement de nouveaux contenus gratuits.

Plus d'informations ...

EXERCICE PRATIQUE
Pour mettre en pratique l'utilisation des tableaux, vous allez réaliser par
étapes la macro qui a servi d'exemple pour démontrer la rapidité des tableaux.

Le fichier : tableaux_exercice.xlsm

Pour cet exercice la base de données a été réduite à 1000 lignes.

Objectif de l'exercice : la procédure devra parcourir la base de données en boucle et
comptabiliser pour chaque année et chaque numéro de client le nombre
de OUI ou de NON (selon le choix de l'utilisateur) et entrer ce décompte
dans la cellule correspondante.
Complétez la macro suivante avant de passer à la solution :

Sub exercice()

'Dernière ligne de la base de données

'...

'Valeur recherchée (OUI ou NON)

'...

'Déclaration du tableau dynamique

Dim tableau()
'...

'Enregistrement des données dans le tableau

'...

'Décomptes des OUI ou des NON

'...

End Sub
 .
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.

Voici une solution pour réaliser cet exercice (des informations

complémentaires sont disponibles un peu plus bas) :

Sub exercice()

Dim derniereLigne As Integer, valeurRecherchee As String, numero As Integer,

compteur As Integer, ligne As Integer, annee As Integer, client As Integer, i As
Integer

'Dernière ligne de la base de données

derniereLigne = Sheets("BD").Cells(Rows.Count, 1).End(xlUp).Row

'Valeur recherchée (OUI ou NON)

If Sheets("RES").OptionButton_oui Then
valeurRecherchee = "OUI"
Else
valeurRecherchee = "NON"
End If

'Déclaration du tableau dynamique

Dim tableau()
ReDim tableau(derniereLigne - 2, 1)
 'Numéro du premier enregistrement dans le tableau
numero = 0

'Enregistrement des données dans le tableau

For ligne = 2 To derniereLigne
If Sheets("BD").Range("C" & ligne) = valeurRecherchee Then
tableau(numero, 0) = Year(Sheets("BD").Range("A" & ligne)) 'Année de la
date
tableau(numero, 1) = Sheets("BD").Range("B" & ligne) 'Numéro de client
numero = numero + 1
End If
Next

'Décomptes de OUI ou de NON

For annee = 2011 To 2026 'Boucle des années
For client = 1 To 30 'Boucle des clients

'Compteur des OUI ou des NON

compteur = 0
For i = 0 To numero - 1
If tableau(i, 0) = annee And tableau(i, 1) = client Then compteur =
compteur + 1
Next

'Affichage dans la cellule

Cells(annee - 2009, client + 1) = compteur

Next
Next

End Sub

DERNIÈRE LIGNE
Calcul de la dernière ligne de données de la feuille BD (détaillé dans
le précédent exercice) :

'Dernière ligne de la base de données

derniereLigne = Sheets("BD").Cells(Rows.Count, 1).End(xlUp).Row

VALEUR RECHERCHÉE
Si le contrôle OptionButton_oui (de la feuille RES) est sélectionné, il faudra
rechercher les OUI, sinon il faudra rechercher les NON :

'Valeur recherchée (OUI ou NON)

If Sheets("RES").OptionButton_oui Then
valeurRecherchee = "OUI"
Else
valeurRecherchee = "NON"
End If

DÉCLARATION DU TABLEAU
Dans le cas présent, il aurait été possible de calculer le nombre de OUI ou
de NON de la feuille BD pour redimensionner le tableau dynamique au
nombre exact de données qu'il s'apprête à recevoir.
Mais pour éviter ce calcul supplémentaire, le tableau est simplement
redimensionné ici à la taille de la base de données :

'Déclaration du tableau dynamique

Dim tableau()
ReDim tableau(derniereLigne - 2, 1)

NUMÉRO
La variable numero va permettre de déterminer la position des
enregistrements dans le tableau (et commence à 0) :

'Numéro du premier enregistrement dans le tableau

numero = 0

ENREGISTREMENT DES DONNÉES DANS LE

TABLEAU
La boucle For parcourt chaque ligne de la base de données et enregistre les
informations dans le tableau si la colonne C contient la valeur recherchée :

'Enregistrement des données dans le tableau

For ligne = 2 To derniereLigne
If Sheets("BD").Range("C" & ligne) = valeurRecherchee Then
tableau(numero, 0) = Year(Sheets("BD").Range("A" & ligne)) 'Année de la date
tableau(numero, 1) = Sheets("BD").Range("B" & ligne) 'Numéro de client
numero = numero + 1
End If
Next

Pour éviter de recalculer de nombreuses fois l'année de chaque date du

tableau dans les prochaines boucles, seule l'année de la date est enregistrée
dans le tableau.

Après chaque entrée dans le tableau, la variable numero est incrémentée de 1

pour la prochaine entrée.

DÉCOMPTES
La boucle For parcourt ici chaque ligne de données du tableau
(de 0 à numero - 1 qui correspond au numéro de la dernière entrée) et
recherche les correspondances pour l'année définie et le numéro de client
défini :

'Compteur des OUI ou des NON

compteur = 0
For i = 0 To numero - 1
If tableau(i, 0) = annee And tableau(i, 1) = client Then compteur = compteur + 1
Next

Le résultat est ensuite inséré dans la cellule correspondant à l'année définie et

au numéro de client défini :
'Affichage dans la cellule
Cells(annee - 2009, client + 1) = compteur

Il ne reste ensuite plus qu'à répéter ces opérations pour chaque année et
chaque numéro de client en les ajoutant entre 2 boucles For :

'Décomptes de OUI ou de NON

For annee = 2011 To 2026 'Boucle des années
For client = 1 To 30 'Boucle des clients

'Compteur des OUI ou des NON

compteur = 0
For i = 0 To numero - 1
If tableau(i, 0) = annee And tableau(i, 1) = client Then compteur =
compteur + 1
Next

'Affichage dans la cellule

Cells(annee - 2009, client + 1) = compteur

Next
Next

SCREENUPDATING
Nous ne l'avons pas encore vu jusque-là mais vous pouvez encore ajouter la
ligne suivante en début de procédure pour accélérer l'exécution de la macro :

Application.ScreenUpdating = False

En ajoutant cette ligne, vous demandez à Excel de ne pas actualiser l'affichage

tant que la procédure n'est pas terminée.

Dans ce cas, au lieu de voir chaque nombre être ajouté l'un après l'autre dans
les cellules, tous les nombres seront affichés en une fois.

FICHIER
Le fichier complété : tableaux_exercice_complete.xlsm
« Gérez facilement votre stock (articles, entrées, sorties, clients, fournisseurs,
etc) grâce à cette application Excel »

utilisations des fonctions

ACCES PREMIUM

Soutenez le site en devenant membre Premium et profitez de plusieurs options exclusives :

 Navigation sans publicités

 Option "No Tracking"
 Option "Mode Incognito" (sur le forum)
 Option "Dark Mode"
Plus d'informations ...
FONCTIONS VBA
Il existe de nombreuses fonctions VBA que vous pouvez utiliser dans vos développements.

Nous en avons utilisé quelques-unes à travers les exemples cours, telles que les fonctions IsNumeric, Year,
Split, Join, Array, Date, Chr, etc.

Vous pouvez retrouver la liste de toutes les principales fonctions VBA (avec un exemple d'utilisation pour
chaque fonction) dans Fonctions VBA.

FONCTIONS EXCEL
Il est également possible d'utiliser les fonctions Excel dans le code VBA.

Après avoir entré WorksheetFunction suivi d'un ., la liste des fonctions apparaît :

Les fonctions sont toutes en anglais ...

Pour s'y retrouver, une liste des fonctions traduites en anglais est disponible sur ce site, en voici un extrait :

Fonction en français Fonction en anglais Description de la fonction

NB COUNT Détermine les nombres compris dans la liste des arguments.
NB.SI COUNTIF Compte le nombre de cellules qui répondent à un critère donné dans u
NB.SI.ENS COUNTIFS Compte le nombre de cellules à l’intérieur d’une plage qui répondent à
NB.VIDE COUNTBLANK Compte le nombre de cellules vides dans une plage.
NBVAL COUNTA Détermine le nombre de valeurs comprises dans la liste des arguments

La fonction choisie pour cet exemple est donc NB.VIDE.

L'exemple suivant affiche le nombre de cellules vides de la plage A1:D8 dans la boîte de dialogue :
Sub exemple()

MsgBox WorksheetFunction.CountBlank(Range("A1:D8"))

End Sub
« Gérez facilement votre stock (articles, entrées, sorties, clients, fournisseurs,
etc) grâce à cette application Excel »

créer une fonction personnalisée

COURS AU FORMAT PDF

Ce cours est également disponible au format PDF, téléchargeable en un seul fichier Zip de :

 26 fichiers PDF
 14 fichiers Excel

Cette option est payante et contribue au développement de nouveaux contenus gratuits.

Plus d'informations ...

Pour cet exemple, nous allons créer une fonction SI personnalisée utilisable sur une feuille de calcul comme
n'importe quelle autre fonction d'Excel.

Pour afficher la valeur de la colonne B si la cellule de la colonne C contient OUI, nous pouvons utiliser la
formule =SI(C2="OUI";B2;0) :
L'objectif ici est de créer une fonction capable de faire cela =SI(C2 a un fond vert;B2;0) que nous
écrirons comme ceci : =SI_VERT(C2;B2) :

DÉVELOPPER LA FONCTION PERSONNALISÉE

Commencez par créer votre fonction :

Function SI_VERT(celluleCouleur As Range, celluleValeur As Range)

End Function

Les arguments :

 celluleCouleur As Range : la cellule dont il faut tester la couleur

 celluleValeur As Range : la cellule contenant le montant

Dans le cas présent, si le test est FAUX, la valeur sera 0 à chaque fois, c'est pour cela qu'un 3e argument n'a
pas été ajouté.

Pour vérifier si la couleur est correcte, vous pouvez utiliser une cellule contenant la bonne couleur comme
point de comparaison :

Function SI_VERT(celluleCouleur As Range, celluleValeur As Range)

couleur = Sheets("Feuil1").Range("K1").Interior.color

End Function

Mais pour éviter de dépendre d'une cellule, nous allons utiliser ici directement le numéro de la couleur qui
nous intéresse :

Function SI_VERT(celluleCouleur As Range, celluleValeur As Range)

couleur = 5296274 'Vert

End Function
Pour connaître le numéro de couleur de fond d'une cellule, sélectionnez la cellule et exécutez cette macro :

Sub test()

MsgBox ActiveCell.Interior.color

End Sub

Il ne reste plus qu'à tester la couleur avec un If :

Function SI_VERT(celluleCouleur As Range, celluleValeur As Range)

Application.Volatile

If celluleCouleur.Interior.color = 5296274 Then 'Si VRAI

SI_VERT = celluleValeur
Else 'Si FAUX
SI_VERT = 0
End If

End Function

La fonction est maintenant prête à l'emploi.

Application.Volatile indique que la fonction est volatile (comme c'est le cas pour la fonction SI), ce qui
signifie qu'elle doit être recalculée à chaque changement de valeur. Par exemple, si vous modifiez l'un des
montants (ou n'importe quelle autre cellule), la fonction est recalculée est affichera le bon montant.

En revanche, la seule modification de la couleur de fond ne déclenche pas cette mise à jour. Pour recalculer
les valeurs sans attendre, vous pouvez par exemple appuyer sur Delete en sélectionnant une cellule vide ou
ajouter un bouton Actualiser pour tout recalculer d'un clic :

Sub actualiser()

Application.Calculate

End Sub
Vous pouvez télécharger le fichier qui a servi d'exemple : fonction_si_vert.xlsm

FIN
Le cours VBA se termine ici, en espérant qu'il vous aidera dans vos futurs développements.

Si vous avez apprécié ce cours, vous avez la possibilité de télécharger les PDF de la totalité de ce cours. Il
s'agit d'une option payante complètement facultative qui contribue à soutenir le site et le développement de
nouveaux contenus.

Pour aller plus loin, vous trouverez d'autres exemples de codes VBA dans Astuces VBA et des exemples
d'utilisations des fonctions VBA dans Fonctions VBA.

Une formation pratique en vidéo pour apprendre à créer une application de gestion en VBA est également
disponible.

Pour toute question, n'hésitez pas à utiliser le forum qui est là pour vous aider en cas de problème.

« Gérez facilement la comptabilité d'une petite structure grâce à cette

application Excel »

Astuces VBA
DATES ET HEURES
 Calculer le nombre de jours dans un mois (ou le dernier jour du mois)
 Calculer le numéro de jour de la semaine (1 à 7) ou l'afficher au format texte (Lundi-Dimanche, LU-
DI)
  Formats d'affichage des dates et heures
 Programmer l'exécution d'une macro dans X secondes ou à une heure déterminée avec OnTime

DIVERS
 Accélérer l'exécution d'une macro
 Activer les macros (pour toutes les versions d'Excel)
 Créer une animation
 Débloquer les macros Excel
 Désactiver temporairement les événements
 Effectuer une action différente selon la version d'Excel utilisée
 Extraire des données d’un site Web
 Importer des données d’un site Web
 Opérateur ternaire en VBA
 Protéger le code VBA grâce à l'obfuscation
 Simplifier les conditions en VBA
 Stopper une macro en cours d'exécution

FEUILLES ET CLASSEURS
 Afficher ou masquer une feuille
 Déterminer le numéro de la dernière ligne d'un tableau
 Empêcher la modification du nom d'une feuille
 Empêcher l'enregistrement d'un fichier Excel
 Exécuter une action une seule fois
 Interdire la sélection de plusieurs cellules
 Forcer l'activation des macros pour utiliser le classeur Excel
 Masquer les onglets d'un classeur
 Protéger l'accès au code VBA par mot de passe
 Récupérer la couleur d'une MFC avec une fonction Excel

« Gérez facilement vos contacts (clients, fournisseurs, collaborateurs, etc)

grâce à cette application Excel »

GÉNÉRATEURS ET CALCULS
 Convertir une couleur hexadécimale en valeur Color
 Générer des nombres aléatoires
 Générer des codes aléatoires
 Racine carrée (et carré)
 Vérifier si une valeur est un nombre entier

TEXTE ET MISES EN FORME

 Convertir en majuscules ou minuscules (et vérifier si une valeur est en majuscules ou minuscules)
 Inverser une chaîne de caractères
 Mettre en forme de caractères dans une cellule
 Récupérer la couleur d'une cellule en tenant compte des MFC appliquées
 Remplacer des valeurs par d'autres à l'intérieur d'une chaîne de caractères (ou les supprimer)
 Retirer les espaces inutiles en début et fin d'une chaîne de caractères
 Vérifier si une chaîne de caractères contient une valeur (et renvoyer sa position)
USERFORM ET CONTRÔLES
 Appliquer n'importe quelle couleur à un contrôle ou un UserForm
 Créer un champ de recherche avec affichage des résultats dans une ListBox
 Créer une barre de progression
 Créer une liste déroulante personnalisée
 Travailler sur une feuille avec un UserForm actif
 Utiliser des variables dans le nom d'un contrôle

VARIABLES ET TABLEAUX
 Rechercher la position d'une valeur dans un tableau
 Rechercher la présence d'une valeur dans un tableau
 Réinitialiser un tableau
 Trier un tableau