comparaison des valeurs de 2 colonnes

Question

Bonjour &#224; tous,
je dois trouver une solution sur vb excel qui me permet de comparer les valeurs une &#224; une de 2 colonnes et d'identifier par une couleur rouge les valeurs dans la colonne A qui n'existent pas dans la colonne B.
Par exemple:
valeurs dans colonne A : 1;3;5;88;122
valeurs dans colonne B : 8;122;3;1;9;199
le code doit me mettre en rouge dans la colonne A les valeurs 5 et 88.
J'arrive &#224; le faire sur une valeur avec le code suivant mais je bloque pour les autres valeurs de la colonne.
Que faire ?
Merci d'avance.
Set critereCherche = Application.InputBox(Prompt:="S&#233;lectionnez le crit&#232;re &#224; trouver", Type:=(8))
Set plageCherche = Application.InputBox(Prompt:="S&#233;lectionnez la plage de donn&#233;es &#224; modifier", Type:=(8))
Set c = plageCherche.Find(critereCherche, LookIn:=xlValues)


For Each Item In plageCherche
On Error Resume Next
    If Item.Value = c Then
        Item.Select
            With Selection
             .Font.ColorIndex = 3
                
            End With
    Else
        Item.Select
            With Selection
              .Font.ColorIndex = 1
                          
            End With
    End If
Next

cs_wape · Answer

Bonjour,


Voici un petit exemple, &#224; adapter selon tes besoins :

Dim MaCellule As Range


'Parcourir les cellules de la colonne A
For Each MaCellule In Range("A1:A" & Range("A65536").End(xlUp).Row)
   'Rechercher la valeur dans la colonne B
   If Range("B:B").Find(MaCellule.Value, LookIn:=xlValues) Is Nothing Then
      'Pas trouv&#233; -> mettre en rouge
      MaCellule.Font.ColorIndex = 3
   Else
      'Trouv&#233; -> mettre en noir
      MaCellule.Font.ColorIndex = 1
   End If
Next

wape

bouv · Answer

Je ne vais pas tout de macher mais cela pourra t'aider

Dim Resultat() as String
Dim i as Integer

Redim Resultat(0)
Resultat  =  Split("1;3;5;88;122", ";")

For i = 0 To Ubound(Resultat)
      MsgBox Resultat(i)
Next i

Tu obtiendra 5 MsgBox contenant respectivement 1 puis 3 puis 5 puis 88 puis 122

Fais de m&#234;me avec la deuxieme cellule et compare ensuite chaque valeurs

Bonne prog
++

Comparaison des valeurs de 2 colonnes

2 réponses

Discussions similaires