Bonjour à toutes, tous,
Je m'adresse à vous car je n'arrive pas à répondre à une problématique vba de comparaison de 2 listes de valeurs.
Je souhaite faire une comparaison entre 2 listes d'id sur deux onglets différents.
Feuil1 : contient une liste id et un code d'export
Feuil2 : contient une liste id
Je souhaite dans Feuil2 voir les valeurs que j'ai en commun avec la liste de la Feuil1
J'ai donc réalisé une macro :
Sub comparaison()
Dim i As Integer
Dim col_2 As Range
'Mise en mémoire id qui sont dans la feuil1
Set col_2 = Worksheets("Feuil1").Range("A2:A7")
'Dans la feuille 2,on identifie les valeurs communes (jaune = valeur absentes)
With ThisWorkbook.Sheets("Feuil2")
For i = 17 To 2 Step -1
'Test si les valeurs correspondent
If Application.CountIf(col_2, .Range("A" & i).Value) = 0 Then
'Si l'id produit n'existe pas on colorie en jaune la ligne
.Rows(i).Interior.Color = vbYellow
End If
'Je souhaite récupérer la valeur code d'export de la feuil1 pour la rajouter devant la bonne ligne avec id commun sur feuil2
'quel code mettre en place
'On passe à la ligne suivante
Next i
End With
Le code fonctionne bien pour la première partie c'est à dire identifier les valeur en communs. Les lignes en jaune ne sont pas en commun.
En revanche je n'arrive pas à récupérer le code d'export pour chaque produit en commun sur la feuil2 (donc à côté des produits non colorés en commun).
Pouvez-vous m'aider pour réaliser cette étape. L'onglet résultat attendu montre ce que je souhaiterai avoir.
Merci par avance
Voici les images du fichier
Feuil1
Feuil2
Resultats attendus
Je m'adresse à vous car je n'arrive pas à répondre à une problématique vba de comparaison de 2 listes de valeurs.
Je souhaite faire une comparaison entre 2 listes d'id sur deux onglets différents.
Feuil1 : contient une liste id et un code d'export
Feuil2 : contient une liste id
Je souhaite dans Feuil2 voir les valeurs que j'ai en commun avec la liste de la Feuil1
J'ai donc réalisé une macro :
Sub comparaison()
Dim i As Integer
Dim col_2 As Range
'Mise en mémoire id qui sont dans la feuil1
Set col_2 = Worksheets("Feuil1").Range("A2:A7")
'Dans la feuille 2,on identifie les valeurs communes (jaune = valeur absentes)
With ThisWorkbook.Sheets("Feuil2")
For i = 17 To 2 Step -1
'Test si les valeurs correspondent
If Application.CountIf(col_2, .Range("A" & i).Value) = 0 Then
'Si l'id produit n'existe pas on colorie en jaune la ligne
.Rows(i).Interior.Color = vbYellow
End If
'Je souhaite récupérer la valeur code d'export de la feuil1 pour la rajouter devant la bonne ligne avec id commun sur feuil2
'quel code mettre en place
'On passe à la ligne suivante
Next i
End With
Le code fonctionne bien pour la première partie c'est à dire identifier les valeur en communs. Les lignes en jaune ne sont pas en commun.
En revanche je n'arrive pas à récupérer le code d'export pour chaque produit en commun sur la feuil2 (donc à côté des produits non colorés en commun).
Pouvez-vous m'aider pour réaliser cette étape. L'onglet résultat attendu montre ce que je souhaiterai avoir.
Merci par avance
Voici les images du fichier
Feuil1
Feuil2
Resultats attendus