Retirer couleur

[desatan]

Bonjour,

Je cherche un moyen dans un document de remplacer une couleur verte par aucune couleur ?

Merci par avance

 

[Dull]

Re : Retirer couleur

Salut Desatan, le Forum

Peut-être un code comme ça à mettre dans le Module de la Feuille

Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
For Each C In Range("A:A")
If C.Interior.ColorIndex = [D3].Interior.ColorIndex Then C.Interior.ColorIndex = xlNone
Next C
End Sub

Bonne Journée

 

[Modeste geedee]

Re : Retirer couleur

Bonsour®

sélectionner la plage souhaitée
éxécuter la macro ci-dessous
Sub change()
For Each cell In Selection
If cell.Interior.Color = RGB(153, 204, 0) Then cell.Interior.Color = vbWhite
Next
End Sub


edit:
Bonsour® Dull
bien vu la "couleur exemple" à prendre en référence

 

[desatan]

Re : Retirer couleur

bonjour, merci à vous 2, je teste et je vous dit, c'est quoi le module de la feuille ?
Quand je fais alt+F11 je vois pas module ?

 

[Dull]

Re : Retirer couleur

Re le Fil, Salut Modeste geegee🙂



le Module de la feuille tu l'apercevra en doubleclickant sur le nom de la feuille



et le module sera sur la Droite

Bonne Journée

 

[desatan]

Re : Retirer couleur

re merci pour les réponses, peut on modifier un peu car une autre idée m'est venue.
au final ce dont j'ai besoin c'est ceci :
Si la valeur de cellule est supérieure ou égal à 0,875 alors vert
Si la valeur de cellule est comprise entre 0,625 et 0,874999 alors jaune
Si la valeur de cellule est comprise entre 0,375 et 0,624999 alors orange
Si la valeur de cellule est comprise entre 0,0001 et 0,374999 alors rouge
Si la valeur est égal à 0 alors vide

Hélas, excel 2003 ne permet 5 mise en forme conditionnelle 🙁

Comme dans mon fichier joint

Merci

 

[desatan]

Re : Retirer couleur

ok dull merci, après avoir mit ton code dans le module, je l'execute comment ?

 

[desatan]

Re : Retirer couleur

re Dull, tu peux jeter un oeil ma demande a un peu évoluée ;-)
merci