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


Suivez les aventures des skippers aquitains sur EasyVoile.com
Flux RSS Easy-Micro - Abonnez-vous Easy-Micro [ François Bisch ]
Samedi 23 février 2019 - Semaine 08 - Saint Lazare (Demain: Saint Modeste)
Aujourd'hui, c'est l'anniversaire de Louis Bertignac (1954-65 ans), musicien français (guitariste du groupe de rock français Téléphone). Autre 23 février: 1468 - Mort de Gutenberg, inventeur de l'imprimerie.
Haut de page Easy-Micro