Changer couleurs de cellules

micie1509 · 21 Mars 2014

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 · 21 Mars 2014

Re : Changer couleurs de cellules

Bonjour,
Une possibilité

Code:

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 · 21 Mars 2014

Re : Changer couleurs de cellules

Placé dans ton fichier . Clic bouton

micie1509 · 21 Mars 2014

Re : Changer couleurs de cellules

Fonctionne parfaitement. Exactement ce que je voulais.

Merci beaucoup!

Bonne fin de semaine !

Changer couleurs de cellules

micie1509

XLDnaute Junior

Pièces jointes

st007

XLDnaute Barbatruc

st007

XLDnaute Barbatruc

Pièces jointes

micie1509

XLDnaute Junior

Discussions similaires