Comparer deux liste en VBA

[Yoda69]

Bien le bonjour à tous !

Voila je viens à vous après de nombreuses heures à chercher une solutions à mon problème.

Je cherche une macro capable de comparer 2 listes sur deux feuilles différentes. Jusque là tout va bien !

Mon souci est que je n'arrive pas à ajouter un terme de la feuille 2 non present dans la feuille 1 à la suite de cette dernière.

Plus clairemement :

feuil1 feuil2

1 3
2 4
3 5
4 6
5 7

Après Macro :


feuil1 feuil2

1 3
2 4
3 5
4 6
5 7
6
7


Je sais je ne pense pas que cela soit bien difficile mais jusqu'a present j'ai pas trouvé de solution...

Merci par avance.

Yoda69

 

[néné06]

Re : Comparer deux liste en VBA

Bonjour Yoda69
Une méthode simple serait de copier la feuil 2 a la suite
De la feuil1, trier, supprimer les doublons de la feuil1
Cordialement

 

[ROGER2327]

Re : Comparer deux liste en VBA

Bonjour à tous

En l'absence d'un support permettant de voir précisément ce qu'il convient de faire, voyez si cela peut vous dépanner :

Sub toto()
Dim tf As Boolean, n&, oCel1 As Range, oCel2 As Range, p1 As Range, p2 As Range
  Set p1 = Sheets("Feuil1").Range("A1:A5") 'À adapter
  Set p2 = Sheets("Feuil2").Range("A1:A5") 'À adapter
  Application.Calculation = xlCalculationManual
  For Each oCel2 In p2.Cells
    tf = True
    For Each oCel1 In p1.Cells
      If oCel2.Value = oCel1.Value Then tf = False: Exit For
    Next oCel1
    If tf Then n = n + 1: p1(p1.Rows.Count).Offset(n, 0) = oCel2
  Next oCel2
  Application.Calculation = xlCalculationAutomatic
End Sub

​

ROGER2327
#4784

Vendredi 20 Sable 138 (Saint Sabre, allopathe, SQ)
30 Frimaire An CCXIX
2010-W51-1T14:55:32Z

​

 

[Banzai64]

Re : Comparer deux liste en VBA

Bonjour

Une idée

Bonjour ROGER2327 (A quelques secondes)

 

[Yoda69]

Re : Comparer deux liste en VBA

Bonjour, et merci à vous !

En fait j'ai trouver une fonction simple qui est autre que un countif dans une boucle cela marche vraiment bien =)

 

[Amrane]

Re : Comparer deux liste en VBA

c'est amrane

Grand Merci