Changer la couleur jaune 19 par jaune 6

Patrick CHAMBRES -  
eriiic Messages postés 25847 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Je cherche, avec VBA, à changer automatiquement la couleur de cellules qui sont jaune 19 par la couleur jaune 6 dans une feuille de calcul excel.

Merci beaucoup de m'éclairer

1 réponse

eriiic Messages postés 25847 Date d'inscription   Statut Contributeur Dernière intervention   7 282
 
Bonjour,

Sub remplacerJaune() 
    Dim c As Range 
    For Each c In Selection 
        If c.Interior.ColorIndex = 19 Then c.Interior.ColorIndex = 6 
    Next c 
End Sub

Agit sur la sélection en cours.

eric
0