Comparaison triple + surlignage VBA ? merci
sk53
Messages postés
267
Statut
Membre
-
g Messages postés 1285 Statut Membre -
g Messages postés 1285 Statut Membre -
Bonjour,
Bonjour à tous,
J'ai une feuille excel avec des tableaux. J'ai trois colonnes. Je souhaite comparer les valeurs de la colA avec celles de la colB et de la colC.
Si jamais la colB ou la colC contiennent une valeur de la colA je souhaite les mettre en rouge.
Comment puis faire ?
D'avance merci.
Cdt
Bonjour à tous,
J'ai une feuille excel avec des tableaux. J'ai trois colonnes. Je souhaite comparer les valeurs de la colA avec celles de la colB et de la colC.
Si jamais la colB ou la colC contiennent une valeur de la colA je souhaite les mettre en rouge.
Comment puis faire ?
D'avance merci.
Cdt
1 réponse
-
Bonjour,
Tu peux passer par la mise en forme conditionnelle mais comme ta demande concerne VBA, voici le code que tu peux saisir ou copier dans le module de feuille accessible par Alt+F11
Private Sub Worksheet_SelectionChange(ByVal Target As Range) For i = 2 To 100 If Range("B" & i) <> "" And Range("B" & i) = Range("A" & i) And Range("C" & i) <> "" And Range("C" & i) = Range("A" & i) Then Range("B" & i).Interior.ColorIndex = 3 Range("C" & i).Interior.ColorIndex = 3 Else Range("B" & i).Interior.ColorIndex = xlNone Range("C" & i).Interior.ColorIndex = xlNone If Range("B" & i) <> "" And Range("B" & i) = Range("A" & i) Then Range("B" & i).Interior.ColorIndex = 3 Else Range("B" & i).Interior.ColorIndex = xlNone If Range("C" & i) <> "" And Range("C" & i) = Range("A" & i) Then Range("C" & i).Interior.ColorIndex = 3 Else Range("C" & i).Interior.ColorIndex = xlNone End If End If End If Next i End Sub
Cordialement.
