Changer la couleur jaune 19 par jaune 6

Patrick CHAMBRES -  
eriiic Messages postés 24581 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

  1. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    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