Discussion :

[bentor22]

Bonjour à tous,

je fais une macro pour colorer une ligne sur 2 en gris.

voici ma macro:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
For I = 3 To 2000 Step 2
Range(Cells(I, 1), Cells(I, 26)).Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Next I

sur la boucle for, au lieu de faire for i=3 to 2000 step 2.

j aimerai lui demander de faire for i=3 to (la derniere ligne).

merci par avance pour votre aide,

bien cordialement,

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
For I = 3 To ActiveSheet.UsedRange.Rows.Count Step 2
    With Range(Cells(I, 1), Cells(I, 26)).Interior
        .ColorIndex = 15
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
Next

[bentor22]

au top!

thanks