effacement des couleurs

[nougat0_7]

bonjour
je desirerai effacer les couleurs bleu et orange des cellules uniquement sans toucher les autres couleurs et les inscriptions dans la plage E15:AI40 par le bouton jaune
ci joint une des feuilles du fichier
merci par avance de vos geniales soluces

 

[STephane]

Re : effacement des couleurs

For Each cl In [E15:AI40]
If cl.Interior.Color = vbBlue Or cl.Interior.Color = vbRed Then cl.Interior.ColorIndex = xlNone: 'cl.clearcontents 'enlever l'apostrophe pour effacer le contenu
Next cl
End Sub

 

[pierrejean]

Re : effacement des couleurs

bonjour nougat_7

vois si cela te convient

Edit :Salut Stephane

 

[nougat0_7]

merci à pierrejean et stephane pour soluces

merci à vous deux pour les réponses