Easy-Micro

ESPACEMEMBRE Structures de contrôles VBA
For 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

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

Flux RSS Easy-Micro - Abonnez-vous Easy-Micro [ François Bisch ]