Bonjour,
J'essaye de changer la couleur des cellules de plusieurs feuilles.
Le code utilise marche pour une feuille donnée mais je bloque lorsque je veux prendre tous les ongles du classeur.
Merci pour votre aide
J'essaye de changer la couleur des cellules de plusieurs feuilles.
Le code utilise marche pour une feuille donnée mais je bloque lorsque je veux prendre tous les ongles du classeur.
Code:
Range("A1:L500").Select
For Each c In Selection
If c.Interior.ColorIndex = 1 Then c.Interior.ColorIndex = 2
If c.Interior.ColorIndex = 4 Then c.Interior.ColorIndex = 36
If c.Interior.ColorIndex = 10 Then c.Interior.ColorIndex = 37
If c.Interior.ColorIndex = 3 Then c.Interior.ColorIndex = 2
If c.Interior.ColorIndex = 13 Then c.Interior.ColorIndex = 2
Next c
Merci pour votre aide