Discussion :

[Invité]

Y a t-il un moyen de colorer les rangées d'un fichier excel...à la manière de et ce jusqu'à la fin du document

Code :

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

1
2
3
4
5
6
7
objXL.Range("A3:E3").Select
objXL.Selection.Interior.ColorIndex = 44 
objXL.Range("A4:E4").Select
objXL.Selection.Interior.ColorIndex = 45
objXL.Range("A5:E5").Select
objXL.Selection.Interior.ColorIndex = 44
...ainsi de suite

merci

[Invité]

Je me répond

Code :

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

1
2
3
4
objXL.Range("A:E").Select
objXL.Selection.FormatConditions.Add(2), , "=MOD(ROW(),2)"
objXL.Selection.FormatConditions(1).Interior.ColorIndex = 44
objXL.Selection.Interior.ColorIndex = 45

merci moi même