Bonjour le forum,
j'ai obtenu un code ici par un membre VDAVID, ce code me permet de chercher dans une colonne (A) les valeurs qui ne figurent pas dans les valeurs de la colonne(D)
ce que je souhaite réaliser maintenant, c'est de chercher dans les colonnes ("A : B"), les valeurs qui ne figurent pas dans les colonne("C : D"),
ensuite, dans la "feuil2" ,dans la colonne "A : B" mettre les valeurs non trouvés.
je n'arrive pas a trouver la syntaxe pour rechercher les valeurs des colonnes "A : B" dans les colonnes "C : D", .
Sub test()
Dim Cel As Range, myRange As Range, i As Long
Set myRange = Range("D112")
For Each Cel In myRange
For i = 1 To 20 Step 1
If Cel.Value = Range("A" & i).Value Then
GoTo Borne
End If
If i = 20 Then Cel.Interior.ColorIndex = 3
Next i
Borne:
Next Cel
End Sub
merci pour votre aide.
j'ai obtenu un code ici par un membre VDAVID, ce code me permet de chercher dans une colonne (A) les valeurs qui ne figurent pas dans les valeurs de la colonne(D)
ce que je souhaite réaliser maintenant, c'est de chercher dans les colonnes ("A : B"), les valeurs qui ne figurent pas dans les colonne("C : D"),
ensuite, dans la "feuil2" ,dans la colonne "A : B" mettre les valeurs non trouvés.
je n'arrive pas a trouver la syntaxe pour rechercher les valeurs des colonnes "A : B" dans les colonnes "C : D", .
Sub test()
Dim Cel As Range, myRange As Range, i As Long
Set myRange = Range("D112")
For Each Cel In myRange
For i = 1 To 20 Step 1
If Cel.Value = Range("A" & i).Value Then
GoTo Borne
End If
If i = 20 Then Cel.Interior.ColorIndex = 3
Next i
Borne:
Next Cel
End Sub
merci pour votre aide.