Structures de contrôles VBAFor Next
Boucle For Next
Boucle pour répéter un bloc d'instructions un certain nombre de fois.
Le code suivant, affiche 3 messages :
Sub BoucleFor()
Dim N As Byte
For N = 1 To 3 Step 1
MsgBox "Message d'essai numéro " & N
Next
End Sub
Dim N As Byte
For N = 1 To 3 Step 1
MsgBox "Message d'essai numéro " & N
Next
End Sub
Par défaut la valeur s'incrémente de 1. Sinon, écrivez For N = 1 To 5 Step 2.
Vous pouvez sortir prématurément d'une boucle en utilisant Exit For.
Autre exemple de boucle FOR NEXT
Sub Mon_Nuancier()
For i = 1 To 56 Step 1
Range("A" & i).Interior.ColorIndex = i
Range("B" & i).Value = i
Next i
End Sub
For i = 1 To 56 Step 1
Range("A" & i).Interior.ColorIndex = i
Range("B" & i).Value = i
Next i
End Sub
