Souhaitez-vous apprendre à utiliser la déclaration POUR LE SUIVANT VBA dans Excel? Ce didacticiel Excel explique comment utiliser l'instruction Excel FOR NEXT pour créer une boucle FOR dans VBA avec une syntaxe et des exemples. Nous vous invitons à séjourner :
Description de l'instruction FOR NEXT VBA dans Excel
L'instruction FOR NEXT dans Microsoft Excel est utilisée pour créer une boucle FOR afin que vous puissiez exécuter du code VBA un nombre fixe de fois.
L'instruction FOR NEXT VBA dans Excel est une fonction intégrée à cet outil bureautique qui est classée comme fonction logique. Il peut être utilisé comme fonction VBA dans Excel. En tant que fonction VBA, vous pouvez l'utiliser dans le code de macro saisi via Microsoft Visual Basic Editor.
Ici, vous pouvez en apprendre davantage sur : Comment regrouper un tableau croisé dynamique par mois dans Excel
POUR LA SUIVANTE Syntaxe de l'instruction VBA dans Excel
La syntaxe pour créer une boucle FOR à l'aide de l'instruction FOR NEXT VBA dans Excel est la suivante :
Pour contrer = Commencer À fin [Étape incrément]
{…déclarations…}
Suivant [contrer]
Paramètres ou arguments
Plan de travail
La variable du compteur de boucles.
Comienzo
La valeur initiale de contrer.
Final
La valeur finale de contrer.
Augmentation
Facultatif. La valeur de ça contrer est incrémenté à chaque passage dans la boucle. Il peut s'agir d'un nombre positif ou négatif. S'il n'est pas spécifié, il sera par défaut d'un incrément de 1 afin que chaque passage dans la boucle augmente le contrer en 1.
déclarations
Les instructions de code pour exécuter chaque étape de la boucle.
Renvoie l'instruction FOR NEXT VBA dans Excel
L'instruction FOR NEXT VBA dans Excel crée une boucle FOR dans VBA.
S'applique à :
- Excel pour Office 365, Excel 2019, Excel 2016, Excel 2013, Excel 2011 pour MacExcel 2010, Excel 2007, Excel 2003, Excel XP, Excel 2000
Type de fonction :
- Fonction VBA (VBA)
Exemple (en fonction de l'instruction FOR NEXT VBA dans Excel)
L'instruction FOR NEXT VBA dans Excel ne peut être utilisée que dans le code VBA de cet outil bureautique.
Voyons comment créer une boucle FOR dans Microsoft Excel, en commençant par une boucle simple, une boucle double et une boucle triple, puis explorons comment modifier la valeur utilisée pour incrémenter le compteur à chaque passage dans la boucle.
Boucle unique avec FOR NEXT VBA dans Excel
L'implémentation la plus simple de la boucle FOR consiste à utiliser l'instruction FOR NEXT VBA dans Excel pour créer une seule boucle. Cela vous permettra de répéter le code VBA un nombre fixe de fois.
Par exemple:
Sous Single_Loop_Example
Dim LCounter comme entier
Pour LCounter = 1 à 5
MsgBox (LCounter)
Suivant LCounter
End Sub
Dans cet exemple, la boucle FOR est contrôlée par le Variable Compteur. Il bouclerait 5 fois, en commençant à 1 et en terminant à 5. Chaque fois dans la boucle, il afficherait une boîte de message avec la valeur de la variable. Compteur. Ce code afficherait 5 boîtes de message avec les valeurs suivantes : 1, 2, 3, 4 et 5.
Boucle unique – Modification de l'incrément avec FOR NEXT VBA dans Excel
Par défaut, la boucle FOR incrémentera son compteur de boucle de 1, mais cela peut être personnalisé. Vous pouvez utiliser pour modifier la valeur utilisée pour incrémenter le compteur. La boucle FOR peut être incrémentée et peut être des valeurs positives ou négatifs.incrément STEP
Incrément positif avec FOR NEXT VBA dans Excel
Voyons d'abord un exemple de comment incrémenter le compteur d'une boucle FOR d'une valeur positive.
Par exemple:
Sous-incrément_Positive_Example
Dim LCounter comme entier
Pour LCounter = 1 à 9 Étape 2
MsgBox LCompteur
Suivant LCounter
End Sub
Dans cet exemple, l'étape 2 de la boucle FOR a été utilisée pour modifier l'incrément à 2. Cela signifie que la boucle FOR commencerait à 1, s'incrémenterait de 2 et se terminerait à 9. Le code afficherait 5 boîtes de message avec les valeurs suivantes : 1, 3, 5, 7 et 9.
Incrément négatif avec FOR NEXT VBA dans Excel
Voyons maintenant comment incrémenter le compteur d'une boucle FOR d'une valeur négative.
Par exemple:
Sous-incrément_négatif_exemple
Dim LCounter comme entier
Pour LCounter = 50 à 30 étape -5
MsgBox LCompteur
Suivant LCounter
End Sub
Lors de l'incrémentation d'une valeur négative, vous devez que le nombre de départ soit la valeur la plus élevée et que le nombre de fin soit la valeur la plus basse, car la boucle FOR comptera à rebours. Ainsi, dans cet exemple, la boucle FOR commencera à 50, s'incrémentera de -5 et se terminera à 30. Le code affichera 5 boîtes de message avec les valeurs suivantes : 50, 45, 40, 35 et 30.
Double circuit avec FOR NEXT VBA dans Excel
Examinons ensuite un exemple de création d'une double boucle FOR dans Microsoft Excel.
Par exemple:
Sous Double_Loop_Example
Dim LCounter1 comme entier
Dim LCounter2 comme entier
Pour LCounter1 = 1 à 4
Pour LCounter2 = 8 à 9
MsgBox LCompteur1 & «-» & LCompteur2
Suivant LCounter2
Suivant LCounter1
End Sub
Ici, nous avons 2 boucles FOR. La boucle FOR externe est contrôlée par la variable LCompteur1. La boucle FOR interne est contrôlée par la variable LCompteur2.
Dans cet exemple, la boucle FOR externe se répétera 4 fois (en commençant à 1 et se terminant à 4) et la boucle FOR interne se répétera 2 fois (en commençant à 8 et se terminant à 9). À l'intérieur de la boucle interne, le code afficherait une boîte de message à la fois avec la valeur de LCompteur1 - LCompteur2. Ainsi, dans cet exemple, 8 boîtes de message seraient affichées avec les valeurs suivantes : 1-8, 1-9, 2-8, 2-9, 3-8, 3-9, 4-8 et 4-9.
Triple boucle avec FOR NEXT VBA dans Excel
Examinons ensuite un exemple de création d'une triple boucle FOR dans Microsoft Excel.
Par exemple:
Sous Triple_Loop_Example
Dim LCounter1 comme entier
Dim LCounter2 comme entier
Dim LCounter3 comme entier
Pour LCounter1 = 1 à 2
Pour LCounter2 = 5 à 6
Pour LCounter3 = 7 à 8
MsgBox LCounter1 & «-» & LCounter2 & «-» & LCounter3
Suivant LCounter3
Suivant LCounter2
Suivant LCounter1
End Sub
Ici, nous avons 3 boucles FOR. La boucle FOR la plus externe est contrôlée par le variable LCompteur1. La boucle FOR suivante est contrôlée par le variable LCompteur2. La boucle FOR la plus interne est contrôlée par le variable LCompteur3
Dans cet exemple, la boucle FOR la plus externe bouclerait 2 fois (en commençant à 1 et se terminant à 2), la boucle FOR suivante bouclerait 2 fois (en commençant à 5 et se terminant à 6) et la Boucle POUR le plus intérieur serait une boucle 2 fois (commençant à 7 et se terminant à 8).
À l’intérieur de la boucle la plus interne, le code afficherait une boîte de message à la fois avec la valeur de LCompteur1 - LCompteur2 - LCompteur3. Ce code afficherait 8 boîtes de message avec les valeurs suivantes : 1-5-7, 1-5-8, 1-6-7, 1-6-8, 2-5-7, 2-5-8, 2- 6-7 et 2-6-8.
POUR LE SUIVANT VBA Exemple 1 dans Excel
Dans le premier exemple, nous utiliserons l'instruction FOR NEXT VBA dans Excel pour parcourir les produits de la colonne A et mettre à jour le type d'application approprié dans la colonne B.
Sous totn_for_loop_example1()
Dim LCounter sous forme d'entier
Pour LCounter = 2 à 4
Si Cells(LCounter, 1).Value = "Excel" Alors
Cellules (LCounter, 2).Value = "Feuille de calcul"
ElseIf Cells(LCounter, 1).Value = "Access" Then
Cellules (LCounter, 2).Value = "Base de données"
ElseIf Cells (LCounter, 1).Value = "Word" Then
Cellules (LCounter, 2).Value = "Traitement de texte"
Cela finira si
Suivant LCounter
End Sub
POUR LE SUIVANT VBA Exemple 2 dans Excel
Dans le deuxième exemple, nous avons une liste de participants dans la colonne A et nous utiliserons deux boucles FOR pour affecter chacun des participants à l'équipe A ou à l'équipe B (en alternant entre les deux).
Sous totn_for_loop_example2()
Dim LCounter1 sous forme d'entier
Dim LCounter2 sous forme d'entier
Pour LCounter1 = 2 à 9 Étape 2
Cellules (LCounter1, 2).Value = "Équipe A"
Suivant LCounter1
Pour LCounter2 = 3 à 9 Étape 2
Cellules (LCounter2, 2).Value = "Ordinateur B"
Suivant LCounter2
End Sub
Vous aimerez aussi: Comment copier une feuille Excel vers un autre classeur – Tutoriel
Comme vous le verrez, avec ces exemples d'instructions FOR NEXT VBA dans Excel, vous pouvez facilement créer des boucles dans l'éditeur Microsoft Visual Basic avec cette fonction logique. Nous espérons vous avoir aidé.
Je m'appelle Javier Chirinos et je suis passionné par la technologie. D’aussi loin que je me souvienne, j’adorais les ordinateurs et les jeux vidéo et ce passe-temps s’est transformé en travail.
Je publie sur Internet depuis plus de 15 ans sur la technologie et les gadgets, notamment dans mundobytes.com
Je suis également expert en communication et marketing en ligne et j'ai des connaissances en développement WordPress.