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

Question

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

lermite222 · Answer

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+

Macro recherche cellules et format couleur

1 réponse

Discussions similaires