Soustraire des listes

[modus57]

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 @ +

 

[porcinet82]

Re : Soustraire des listes

Salut Modus,

Essaye avec le code suivant et ca devrait le faire :

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
        [B][COLOR=blue]Worksheets("Feuil2").Columns(1).Find("*", , , , , xlPrevious).Offset(0, 1) = Cel.Offset(0, 1)
[/COLOR][/B]    End If
Next
End Sub

@+

 

[modus57]

Re : Soustraire des listes

Salut porcinet82,

C'est super, celà marche tip top, merci pour ton aide très réactive.

A un prochain fil et bonne soirée.