POUR

L'instruction FOR permet de réaliser une action pour un nombre déterminé de fois.

1
For i = Debut To Fin
2
 Action
3
Next i

L'action est réalisée pour i variant de début à fin.

I est un entier qui s'incrémente de 1 à chaque fois que l'on exécute l'action.

ExempleEcrit 10 fois

Demande un mot, l'écrit 10 fois

1
Sub affichageMot()
2
 Dim mot As String
3
 Dim texte As String
4
 Dim i As Integer
5
 mot = InputBox("Donnez un mot")
6
 For i = 1 To 10
7
  texte = texte & mot & chr(13)
8
 Next i
9
 MsgBox (texte)
10
End Sub

chr(13) : permet d'insérer le symbole de passage à la ligne

ExempleCouleur de fond

Change la couleur de fond de 57 cellules à partir de la cellule active.

1
Sub affichageCouleur()
2
 Dim i As Integer
3
 For i = 0 To 56
4
  ActiveCell.offset(i,0).Interior.ColorIndex = i
5
 Next i
6
End Sub