for de 6 en 6

[Alex]

Bonjour

Un question qui me parait pas trop complexe
COmment fair un for qui s'execute que tous les 3


For i = 3 To 65536
Rows(i & ':' & i + 3).Select
Selection.Font.ColorIndex = 50
Next

je voudrais que ce code s'execute a i =3, 9, 16 ...

Comment faire

Merci d'avance

 

[PascalXLD]

Bonjour

Si c'est vraiment de 6 en 6 c'est 3 9 15

Cela donne

For i = 3 To 65536 step 6

 

[excalibur]

bonjour alex & rebonjour pascal un petit ex: Sub couleur3()
Dim i&
Application.ScreenUpdating = False 'figer ecran
For i = 3 To [a65536].Row ' changer 1 pour demarrer a la ligne ex:3
cells(i, 1).EntireRow.Interior.ColorIndex = 50 ' code couleur
i = i + 5 ' une sur trois a adapter
Next i
End Sub' salutations