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
A voir également:
- Comparaison triple + surlignage VBA ? merci
- Comparaison million milliard - Accueil - Technologies
- Logiciel comparaison photo gratuit - Télécharger - Photo & Graphisme
- Excel compter cellule couleur sans vba - Guide
- L'indice n'appartient pas à la sélection vba - Forum VB / VBA
- Dépassement de capacité vba ✓ - Forum Excel
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
Cordialement.
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.
