[Excel VBA] Macro teste couleurs.

Résolu/Fermé
Blourte - Modifié par Blourte le 23/05/2011 à 13:53
 Baloo - 23 mai 2011 à 14:10
Bonjour,

Je souhaite faire une macro qui teste la couleur d'une plage de cellule et en affecte une autre si besoin. La plage de cellule est selectionnée avant de lancer la macro, et je pense que c'est ce point qui pose problème, mais je ne sais pas comment le traiter. Voici mon code, qui tourne, mais ne marche pas!

Sub CouleurBlanche()  
'  
' CouleurBlanche Macro  
' Macro enregistrée le 23/05/2011 par PERNOTBE  
'  

'  

For Each Cell In Selection  
If Cell.Interior.ColorIndex = x1None Then  
Cell.Selection.Interior.ColorIndex = 4  
End If  
Next Cell  

End Sub  


Merci d'avance !

1 réponse

Bonjour,

Petite erreur: c'est xlNone (et non x1None)
ensuite c'est : Cell.Interior.ColorIndex = 4 ( et non Cell.Selection.Interior.ColorIndex = 4)
1