Comparaison de 2 feuilles excel via macro

Bonjour,

J'espère que vous allez bien ;)

Je viens vers vous puisque j'ai une question.
Je cherche à parcourir sur Excel ma colonne B de la feuille 1 et d'ajouter en feuille 2 la ligne de la valeur manquante (par rapport à ma vérif sur la feuille 1 de la colonne B) .

J'obtiens ce code mais il m'indique une erreur que je n'arrive pas à résoudre.

Peut-être que je fais trop compliquée alors si vous avez plus simple n'hésitez pas :)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub Test() Dim lg&, f1 As Worksheet, f2 As Worksheet Application.ScreenUpdating = False Set f1 = Sheets("Liste1") Set f2 = Sheets("Liste2") f1.Activate lg = Application.Max( _ f1.Columns(2).Find("*", , , , xlByRows, xlPrevious).Row, _ f2.Columns(2).Find("*", , , , xlByRows, xlPrevious).Row)   ---Ici je cherche à copier mes valeurs ailleurs pour ensuite pouvoir les recoller --- Range("o2") = "=COUNTIF(Liste2!b2:b" & lg & ",b2)=0" 'critère Range("a1:d" & lg).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _ Range("o1:o2"), CopyToRange:=Range("g1:j1"), Unique:=False   -- et la je cherche à compléter ma liste en feuille 2 avec les valeurs manquantes   Range("g2:j" & [g65000].End(xlUp).Row + 1) _ .Copy Destination:=f2.Range("b" & Rows.Count).End(xlUp)(2) Columns("g:o").Clear f2.Activate End Sub

---

j'espère que vous me comprenez :/

merchi !!

Bonjour,
Si j'ai bien compris ta question, tu dois utiliser un critère nommé avec comme formule la fonction EQUIV (MATCH en VBA)
Voir exemple dans ce billet Exporter les données comparées (« Matchées »)

Bonjour,

Je ne veux pas exporter ni utiliser de formules Excel.
Je veux vraiment comparer deux listes et ajouter à une des listes la ligne manquante.

Bonjour,
Il suffit de traduire cela en VBA avec la méthode AdvancedFilter

Merci je venais tout juste de trouver.
En faite tout le code que j’ai essayé ne me sert à rien.

J’obtiens ce que je veux avec

Code:

---

Worksheets("Feuil1").Range("B2:B100").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Worksheets("Feuil2").Range("B2"), Unique:=True

---

Maintenant je cherche pour copier toute la ligne des éléments ajoutés.
Une idée?

ggrr mon code fonctionnait et il ne fonctionne plus (et pas avec excel 2013), je ne sais plus d'où repartir..

Je cherche à comparer les colonnes A et B de la feuille 2 avec les colonnes A et B de la feuille 1.
Si dans la feuille 1, les colonnes A et B ne sont pas identiques aux colonnes A et B feuille 2 alors j'ajoute la ligne manquante dans la feuille 1.

feuille 1 : feuille 2 :
colonne A colonne B colonne A colonne B
1 BLABLA 1 BLABLA
2 test 5 OUF
3 salut 3 salut


--> ici ça doit ajouter sur la feuille 1 la ligne "5 OUF" de la feuille 2

Auriez-vous, s'il vous plait une idée des méthodes ou de codes ?
Merci 1000 fois