Changer couleurs de cellules

[micie1509]

Bonjour,

J'aimerais avoir une marcro qui changerait les couleurs intérieures des cellules en une autre couleur.

Exemple:
Si ("B1:F14") = Bleu pâle then ("B1:F14") = Vert pâle
et
si ("B1:F14") = Bleu Foncé then ("B1:F14") = vert foncé

Je vous met un exemple en fichier joint.

Je suis vraiment nulle en VBA. J'ai réussi à changer 1 cellule mais pas plus.

Merci beaucoup de l'aide que vous pourriez m'apporter.

Micie

 

[st007]

Re : Changer couleurs de cellules

Bonjour,
Une possibilité

Sub couleur()


Range("A1:G15").Select
For Each c In Selection
If c.Interior.Color = 15261110 Then c.Interior.Color = 10147522
If c.Interior.Color = 10191921 Then c.Interior.Color = 3969653

Next c
End Sub

 

[st007]

Re : Changer couleurs de cellules

Placé dans ton fichier . Clic bouton

 

[micie1509]

Re : Changer couleurs de cellules

Fonctionne parfaitement. Exactement ce que je voulais.

Merci beaucoup!


Bonne fin de semaine !