Changer la couleur jaune 19 par jaune 6

Fermé
Patrick CHAMBRES - 20 mars 2012 à 11:20
eriiic Messages postés 24601 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 25 novembre 2024 - 20 mars 2012 à 16:34
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 24601 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 25 novembre 2024 7 243
Modifié par eriiic le 20/03/2012 à 16:35
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