Macro recherche cellules et format couleur [Résolu/Fermé]

Signaler
-
 efesem -
Bonjour,

Je n'arrive pas à touver la réponse à ma question dans les divers forums que j'ai consultés alors je me tourne vers vous.

Je cherche à créer une macro qui me permette de rechercher les cellules contenant la valeur "CA" ou "JTL" dans une plage B4:AF15 et de changer la couleur de ces cellules uniquement (couleur 4 pour "JTL" et 3 pour "CA"). Pouvez-vous m'aider?

Merci par avance,
efesem

1 réponse

Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 137
Bonjour,
Un ti exemple ?
Sub ChangeCouleur()
Dim Cel As Range
    For Each Cel In Range(" B4:AF15")
        If Cel = "CA" Then
            Cel.Interior.ColorIndex = 3
        ElseIf Cel = "JTL" Then
            Cel.Interior.ColorIndex = 4
        Else
            Cel.Interior.ColorIndex = xlNone
        End If
    Next
End Sub

A+
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 63550 internautes nous ont dit merci ce mois-ci

C'est exactement ce que je voulais! Merci!