Macro recherche cellules et format couleur

Résolu/Fermé
efesem - 22 juin 2010 à 16:35
 efesem - 23 juin 2010 à 11:38
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
A voir également:

1 réponse

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
22 juin 2010 à 19:13
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
C'est exactement ce que je voulais! Merci!
0