Comme son nom l’indique For Each (Pour chaque), cette boucle permet de parcourir tous les éléments d’un objet désigné. Il peut s’agir de toutes les cellules d’un tableau, ou mieux encore, de toutes les cellules d’une sélection. C’est exactement ce que nous allons faire.
Le bouclage est une partie essentielle de la programmation, et VBA offre de nombreuses façons différentes de boucler les données. L’une des structures de bouclage les plus utiles en VBA est la boucle For Each. Cette boucle est spécialement conçue pour parcourir chaque élément d’une collection, telle qu’une plage de cellules dans Excel. Dans cet article, nous aborderons les bases de l’utilisation de For Each en VBA, ainsi que des sujets connexes tels que l’exécution de macros étape par étape, la sortie de boucle et le débogage.
For Each element In collection
‘Code à exécuter pour chaque élément
Next element
La variable « element » représente chaque élément individuel de la collection, tandis que la variable « collection » représente l’ensemble des données en cours de bouclage. Par exemple, si nous voulons parcourir en boucle une plage de cellules dans Excel, nous pouvons utiliser le code suivant :
For Each cell In Range(« A1:A10 »)
‘Code à exécuter pour chaque cellule
Next cell
Cette boucle parcourt chaque cellule de la plage A1:A10, en exécutant le code spécifié pour chaque cellule à tour de rôle. Notez que la variable « cell » peut être nommée de n’importe quelle manière – il s’agit simplement d’un espace réservé pour la cellule en cours d’examen.
Une utilisation courante des boucles For Each consiste à effectuer des calculs sur des ensembles de données. Par exemple, supposons que nous voulions faire la somme des valeurs d’une plage de cellules qui remplissent une certaine condition. Pour ce faire, nous pouvons utiliser la fonction SumIf en combinaison avec une boucle For Each :
Dim total As Double
total = 0
For Each cell In Range(« A1:A10 »)
If cell.Value > 5 Then
total = total + cell.Value
End If
Next cell
Dans cet exemple, nous parcourons chaque cellule de la plage A1:A10 et vérifions si sa valeur est supérieure à 5. Si c’est le cas, nous ajoutons cette valeur à un total courant. Une fois la boucle terminée, nous affichons le total dans une boîte de message.
Bien entendu, toutes les boucles ne doivent pas nécessairement être exécutées jusqu’à la fin. Il peut arriver que nous souhaitions quitter une boucle plus tôt si une certaine condition est remplie. Pour ce faire en VBA, nous pouvons utiliser l’instruction Exit For :
For Each cell In Range(« A1:A10 »)
If cell.Value = « » Then
Exit For
End If
‘Code à exécuter pour chaque cellule non vide
Next cell
Dans cet exemple, nous parcourons en boucle chaque cellule de la plage A1:A10 jusqu’à ce que nous rencontrions une cellule vide. Une fois que nous avons trouvé une cellule vide, nous quittons la boucle en utilisant Exit For. Cette instruction arrête immédiatement l’exécution de la boucle et passe à la ligne de code suivante.
Le débogage des fonctions VBA est une compétence essentielle pour tout programmeur, et VBA offre plusieurs outils utiles à cet effet. Une technique de débogage courante consiste à utiliser la fonction MsgBox pour afficher les valeurs des variables à différents endroits du code. Par exemple, nous pourrions modifier notre exemple précédent pour afficher la valeur de la variable « cell » à chaque itération de la boucle :
For Each cell In Range(« A1:A10 »)
MsgBox « The current cell is : » & cell.Address
‘Code à exécuter pour chaque cellule
Next cell
Ce code affiche une boîte de message pour chaque cellule de la plage A1:A10, indiquant l’adresse de la cellule actuelle. Cela peut s’avérer très utile pour détecter les bogues ou comprendre le fonctionnement de la boucle.
En conclusion, les boucles For Each sont un outil incroyablement utile en VBA pour parcourir des collections de données. En utilisant cette structure de boucle en combinaison avec d’autres fonctions VBA telles que SumIf et Exit For, nous pouvons facilement effectuer des calculs et des opérations complexes sur de grands ensembles de données. Et en utilisant des techniques de débogage telles que les boîtes de message, nous pouvons nous assurer que notre code fonctionne comme prévu et trouver et corriger rapidement les erreurs qui surviennent.