Excel si les cellules sont de telles couleur.

Re,

Exemple si tu souhaites tester la colonne A de la cellule A2 à A100 qui contiendrait la couleur verte index 4 et mettre dans ces cellules un espace
colles ce code dans un module et associes le à un bouton ou crées un bouton avec la barre contrôle et dans les propriétés du bouton colles le code

Sub Espace_Si_Vert()
Dim i
For i = 2 To 100
If Worksheets(1).Range("A" & i).Interior.ColorIndex = 4 Then Range("A" & i) = " "
Next i
End Sub

Salut,

Avec quelle version d'Excel travailles tu et cette couleur verte comment est elle saisie, manuellement, macro ou mise en forme conditionnelle !
une réponse adaptée dépend de ces critères

Bonjour,

Encore mike a ma rescousse !! Je te remercie!!

C'est excel 2003 et la couleur de fond de ma cellule est saisie manuellement.

OKmerci, j'espere que le fait que j'aie des cellules fusionnée ne sera pas gênant! Je test ça et je te redis ! Merci en tt cas !!

C'est tout ok, pour info ca marche même sur les cellules fusionnées a conditions de prendre sa 1ère colonnes en compte ! Pour ceux qui veulent connaître le colorindex :

http://www.automateexcel.com/media/ColorReference.gif

!!

Mon problème est donc résolu, mais j'ai une autre petite question, si je veux que les cellules ou quelque chose est écrit ne soit pas concerné?(parce que la, ça efface le contenu de mes cellules (normal), mais juste pour info quelles lignes faudrait t-il rajouter?

Merci encore mike

Re,

En complétant la ligne du If avec un And (et)

Sub Espace_Si_Vert()
'
Dim i
For i = 5 To 100
If Worksheets(1).Range("A" & i).Interior.ColorIndex = 4 _
And Worksheets(1).Range("A" & i) = "" Then Range("A" & i) = " "
Next i
End Sub

Ca marche, merci pour tout !!

James405