Cellule avec motif

Bonjour.
Regarde la macro suivante et modifie-la suivant tes formats de cellule :

Sub Remplacer()
Dim c As Range
For Each c In Selection
Select Case c.Interior.ColorIndex
Case 3
c.Value = "A" 'par exemple
'etc.
End Select
Next c
End Sub

Cordialement.
Daniel
"dudulo" <dudulo@discussions.microsoft.com> a écrit dans le message de news:
F87DA1D0-3B6A-43BD-A6C5-6C7BAC3A87C2@microsoft.com...

bonjour,

comment remplacer une cellule avec un motif par une valeur numerique ou
alphabetique ?

J'ai des tableaux avec différentes couleurs et j'aimerais remplacer ces
couleurs par une valeur num ou alpha. Exemple : couleur verte = A ou 0 ,
couleur orange = B ou 1 etc..

Merci
cordialement

Pour supprimer la couleur :

Sub Remplacer()
Dim c As Range
For Each c In Selection
Select Case c.Interior.ColorIndex
Case 6
c.Value = "A" 'par exemple
c.Interior.ColorIndex = -4105
'etc.
End Select
Next c
End Sub

Daniel
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%234JfzF71FHA.3720@TK2MSFTNGP14.phx.gbl...

Bonjour.
Regarde la macro suivante et modifie-la suivant tes formats de cellule :

Sub Remplacer()
Dim c As Range
For Each c In Selection
Select Case c.Interior.ColorIndex
Case 3
c.Value = "A" 'par exemple
'etc.
End Select
Next c
End Sub

Cordialement.
Daniel
"dudulo" <dudulo@discussions.microsoft.com> a écrit dans le message de
news: F87DA1D0-3B6A-43BD-A6C5-6C7BAC3A87C2@microsoft.com...

bonjour,

comment remplacer une cellule avec un motif par une valeur numerique ou
alphabetique ?

J'ai des tableaux avec différentes couleurs et j'aimerais remplacer ces
couleurs par une valeur num ou alpha. Exemple : couleur verte = A ou 0 ,
couleur orange = B ou 1 etc..

Merci
cordialement