Changement de couleur appliqué à une cellule...

[Asperule]

Bonsoir à tout le Forum.

Est-il possble à partir d'une appliquation VBA ou autre, de changer toutes les cellules d'une certaine couleur par une autre?

Merci...
salutation,
Asperule.

 

[bqtr]

Re : Changement de couleur appliqué à une cellule...

bonsoir Asperule,

Voici un exemple, basé sur des cellules dans la plage A1:G20.

A+

P.O

 

[Asperule]

Re : Changement de couleur appliqué à une cellule...

Bonjour P.O

C'est ce que je recherchais...
Je te remerci de ton aide!

Salutation,
Asperule.

 

[myDearFriend!]

Re : Changement de couleur appliqué à une cellule...

Bonsoir Asperule, bqtr, le Forum,

En complémenent, on peut aussi réaliser la même chose en évitant une boucle :

[SIZE=2]      Application.FindFormat.Interior.ColorIndex = 6
      Application.ReplaceFormat.Interior.ColorIndex = 3
      Sheets("Feuil1").Cells.Replace What:="", Replacement:="", SearchFormat:=[COLOR=navy]True[/COLOR] , ReplaceFormat:=[COLOR=navy]True[/COLOR][/SIZE]

Cordialement,

 

[Asperule]

Re : Changement de couleur appliqué à une cellule...

Bonjour bqtr, my Dear Friends.
Bonjour à tous.

Je n'arrive pas à introduire le code dans sub pour qu'il fonctionne...

Est ce que je pourrai avoir la formule VBA dans son ensemble...
( ou est ce que c'est juste ça...

Sub Macro1()
Application.FindFormat.Interior.ColorIndex = 6
Application.ReplaceFormat.Interior.ColorIndex = 3
Sheets("Feuil1").Cells.Replace What:="", Replacement:="", SearchFormat:=True , ReplaceFormat:=True
End Sub

car si c'est le cas, cela ne fonctionne pas chez moi... est ce que c'est parce que je travail sur mac?)

Peut-être que je dois déclarer une variable avant?

Merci de votre aide...
Salutation,
Asperule.