Remplacement Couleur en VBA ??

Bonjour
A adpater :
For Each c In Range("A1:G15")
If c.Interior.ColorIndex = 48 Then c.Interior.ColorIndex = 15
Next c

Cordialement
Pascal

"Myriam" <Vigule.la.bande.a.basil@Netcourrier.com> a écrit dans le message
de news:%23hJjm0gdEHA.3380@TK2MSFTNGP12.phx.gbl...

Bonjour à toutes et tous !!

Je voudrais pourvoir remplacé dans tout une feuille toutes les cellules :
Selection.Interior.ColorIndex = 48

Par :
Selection.Interior.ColorIndex = 15

Comment détecté la couleur de la cellule ??
Merci
______________________________________
J'aime bien les NewsGroup mais pas les virus !!!
Retirer Virgule. si vous voulez répondre !!
Myriam.M Virgule.la.bande.a.Basil@Netcourrier.com

Bonjour Myriam,

Sub zaza()
Dim c As Range
Application.ScreenUpdating = False
For Each c In ActiveSheet.UsedRange
If c.Interior.ColorIndex = 48 Then c.Interior.ColorIndex = 15
Next c
End Sub


ChrisV


"Myriam" <Vigule.la.bande.a.basil@Netcourrier.com> a écrit dans le message
de news:%23hJjm0gdEHA.3380@TK2MSFTNGP12.phx.gbl...

Bonjour à toutes et tous !!

Je voudrais pourvoir remplacé dans tout une feuille toutes les cellules :
Selection.Interior.ColorIndex = 48

Par :
Selection.Interior.ColorIndex = 15

Comment détecté la couleur de la cellule ??
Merci
______________________________________
J'aime bien les NewsGroup mais pas les virus !!!
Retirer Virgule. si vous voulez répondre !!
Myriam.M Virgule.la.bande.a.Basil@Netcourrier.com

Salut Myriam,
Peut être avec ceci ?

Sub ChangerCouleur()
Dim Plage As Range
Dim Cel As Range
Dim Ligne As Long
Dim Colonne As Integer

'si feuille totalement vide
On Error GoTo Fin

With ActiveSheet
Ligne = .Cells.Find("*", .[A1], -4123, , 1, 2).Row
Colonne = .Cells.Find("*", .[A1], -4123, , 2, 2).Column
Set Plage = .Range(.Cells(1, 1), .Cells(Ligne, Colonne))
End With

For Each Cel In Plage
If Cel.Interior.ColorIndex = 48 Then _
Cel.Interior.ColorIndex = 15
Next Cel

Fin:
Set Cel = Nothing
Set Plage = Nothing
End Sub

Hervé.

"Myriam" <Vigule.la.bande.a.basil@Netcourrier.com> a écrit dans le message
de news: #hJjm0gdEHA.3380@TK2MSFTNGP12.phx.gbl...

Bonjour à toutes et tous !!

Je voudrais pourvoir remplacé dans tout une feuille toutes les cellules :
Selection.Interior.ColorIndex = 48

Par :
Selection.Interior.ColorIndex = 15

Comment détecté la couleur de la cellule ??
Merci
______________________________________
J'aime bien les NewsGroup mais pas les virus !!!
Retirer Virgule. si vous voulez répondre !!
Myriam.M Virgule.la.bande.a.Basil@Netcourrier.com

Salut Myriam

If selection.interior.colorindexH
then
selection.interior.colorindex

A+



Myriam wrote:

Bonjour à toutes et tous !!

Je voudrais pourvoir remplacé dans tout une feuille toutes les cellules :
Selection.Interior.ColorIndex = 48

Par :
Selection.Interior.ColorIndex = 15

Comment détecté la couleur de la cellule ??
Merci
______________________________________
J'aime bien les NewsGroup mais pas les virus !!!
Retirer Virgule. si vous voulez répondre !!
Myriam.M Virgule.la.bande.a.Basil@Netcourrier.com

Bonjour !

C'est toujours les même ici !!! (hi hi hi)
Vous avez que ça à faire, au boulot !!
Non mais....
______________________________________
J'aime bien les NewsGroup mais pas les virus !!!
Retirer Virgule. si vous voulez répondre !!
Myriam.M Virgule.la.bande.a.Basil@Netcourrier.com
"Myriam" <Vigule.la.bande.a.basil@Netcourrier.com> a écrit dans le message
de news: #hJjm0gdEHA.3380@TK2MSFTNGP12.phx.gbl...

Bonjour à toutes et tous !!

Je voudrais pourvoir remplacé dans tout une feuille toutes les cellules :
Selection.Interior.ColorIndex = 48

Par :
Selection.Interior.ColorIndex = 15

Comment détecté la couleur de la cellule ??
Merci
______________________________________
J'aime bien les NewsGroup mais pas les virus !!!
Retirer Virgule. si vous voulez répondre !!
Myriam.M Virgule.la.bande.a.Basil@Netcourrier.com

Oui, mais t'as vu, c'est moi qui bosse le plus,

entre le temps d'affcihage des nouveau mesage et le temps que je réponde
(dépannage d'un ordi, d'une imptimants, un pti coup de visu sur ma macro
de manip sur les graphiques (shuis content, elle est finie)) et bin, ys
ont pu répondre toous les 4 ...



Myriam wrote:

Bonjour !

C'est toujours les même ici !!! (hi hi hi)
Vous avez que ça à faire, au boulot !!
Non mais....
______________________________________
J'aime bien les NewsGroup mais pas les virus !!!
Retirer Virgule. si vous voulez répondre !!
Myriam.M Virgule.la.bande.a.Basil@Netcourrier.com
"Myriam" <Vigule.la.bande.a.basil@Netcourrier.com> a écrit dans le message
de news: #hJjm0gdEHA.3380@TK2MSFTNGP12.phx.gbl...

Bonjour à toutes et tous !!

Je voudrais pourvoir remplacé dans tout une feuille toutes les cellules :
Selection.Interior.ColorIndex = 48

Par :
Selection.Interior.ColorIndex = 15

Comment détecté la couleur de la cellule ??
Merci
______________________________________
J'aime bien les NewsGroup mais pas les virus !!!
Retirer Virgule. si vous voulez répondre !!
Myriam.M Virgule.la.bande.a.Basil@Netcourrier.com