VBA est le langage de programmation Visual Basic de Microsoft. Il est le plus souvent associé avec des macros utilisées dans les feuilles de calcul Excel et parfois même la génération de rapports avec une sortie ciblée sur des documents Word ou PowerPoint. VBA offre aux développeurs toutes les options logiques communs disponibles dans d'autres langues, telles que des boucles , des boucles while et if /then /else . Cependant, comme toutes les langues , la syntaxe de l'utilisation de ces boucles est un peu différente dans VBA. Une fois que vous les utilisez, le processus est facile et sera simple à mettre en œuvre . Instructions
1

Créer une instruction If dans VBA comme dans cet exemple qui compare deux valeurs et écrit «égal» ou « NOT EQUAL " dans la cellule A1 en fonction du résultat de la comparaison.
< p> Sous My_If_Test ()

Dim this_value

Dim that_value

this_value = 0

that_value = 2

Si this_value = that_value puis Sheets

( "Sheet1" ) . Cells (1,1). Value = " EQUAL "

Else Fiches de

( "Sheet1" ) . Cells (1, 1). Value = "non égal "

End If End Sub

Si vous avez besoin de tester si quelque chose n'est pas égal , le signe est <>.
2

Créer une boucle en VBA suivant cet exemple de code qui permet d'insérer la valeur d'un compteur incrémenté à chaque ligne correspondante.

Sous My_For_Test ()

contre

Dim end_value

end_value = 10 &

compteur = 0 à end_value Étape 1

Sheets (" Sheet1" ) . Cells Dim ( compteur, 1). Value = compteur

Suivant

End Sub
3

Créer un Do /While en VBA suivant cet exemple de code qui, comme le Par exemple en boucle, insère la valeur d'un compteur incrémenté à chaque ligne correspondante .

Sous My_DoWhile_Test ()

Dim index

Dim end_value
indice de

= 0

end_value = 10 &

Do While index < end_value

Sheets (" Sheet1" ) . Cells (comptage, 1). Value = indice
< p > index = index + 1

boucle

End Sub

la logique du Do /While est telle que, si la comparaison initiale de la condition While échoue, l' boucle n'est pas exécutée. Par exemple, si l'indice avait égalé 10 ou plus avant que le code exécuté cette Do /While , le code de la boucle ne serait jamais exécuté.
4

Créer un Do /Until en VBA suivant cet exemple code qui , comme le Do /boucle while exemple , insère la valeur d'un compteur incrémenté à chaque ligne correspondante .

Sous My_DoUntil_Test ()

Dim index

Dim end_value
indice de

= 0

end_value = 10 &

Avez- Feuilles

( "Sheet1" ) . Cells (comptage, 1). Value = indice
indice de

= index + 1

loop Until index = end_value

End Sub

la logique du Do /Until est subtilement différent de celui d'une boucle Do /While . Le code de la Do /Jusqu'en est exécuté au moins une fois , même si la condition Until échoue. Par exemple, si l'indice avait égalé 10 ou plus avant que le code exécuté cette Do /Jusqu'à boucle, le code de la boucle serait exécuté une seule fois de toute façon .