Bonjour à tous,
J'ai des valeurs en colonnes A et B de la Feuil1 et des valeurs en colonnes A et B de la Feuil2. Je voudrais lister les valeurs qui se trouvent dans la colonne A de la Feuil1 mais pas dans la colonne A de la Feuil2 et les ajouter en colonne A et B de la Feuil2.
J’ai essayé le code ci-dessous.
Sub extrait()
For Each Cel In Worksheets("Feuil1").Range("A1", [A1].End(xlDown))
Set Cherch = Worksheets("Feuil2").Range("A:A").Find(Cel)
If Cherch Is Nothing Then
Worksheets("Feuil2").Columns(1).Find("*", , , , , xlPrevious).Offset(1, 0) = Cel
End If
Next
End Sub
Le problème que je rencontre est le suivant, au lieu d’ajouter les valeurs dans la colonne A et B de la Feuil2, il ajoute les valeurs dans la colonne A de la Feuil2 mais pas les valeurs dans la colonne B. Je ne trouve pas la solution.
Quelqu’un pourrait-il m’aider.
Bonne a-m @ +
J'ai des valeurs en colonnes A et B de la Feuil1 et des valeurs en colonnes A et B de la Feuil2. Je voudrais lister les valeurs qui se trouvent dans la colonne A de la Feuil1 mais pas dans la colonne A de la Feuil2 et les ajouter en colonne A et B de la Feuil2.
J’ai essayé le code ci-dessous.
Sub extrait()
For Each Cel In Worksheets("Feuil1").Range("A1", [A1].End(xlDown))
Set Cherch = Worksheets("Feuil2").Range("A:A").Find(Cel)
If Cherch Is Nothing Then
Worksheets("Feuil2").Columns(1).Find("*", , , , , xlPrevious).Offset(1, 0) = Cel
End If
Next
End Sub
Le problème que je rencontre est le suivant, au lieu d’ajouter les valeurs dans la colonne A et B de la Feuil2, il ajoute les valeurs dans la colonne A de la Feuil2 mais pas les valeurs dans la colonne B. Je ne trouve pas la solution.
Quelqu’un pourrait-il m’aider.
Bonne a-m @ +