Extraire différences entre 2 colonnes

CISCO

XLDnaute Barbatruc

• 16 Mars 2010

• #2

Re : Extraire différences entre 2 colonnes

Bonsoir

Faut-il absolument une solution en vba ?

@ plus

 

Vote positif 0 Vote négatif

chappyporfaro

XLDnaute Junior

• 16 Mars 2010

• #3

Re : Extraire différences entre 2 colonnes

Bonjour Cisco,

De préférence, oui. Car ça doit être réutilisable pour d'autres fichiers.

Merci

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 16 Mars 2010

• #4

Re : Extraire différences entre 2 colonnes

Bonsoir,

http://boisgontierjacques.free.fr/fichiers/Divers/Dictionary.xls

Doublons

JB

 

Vote positif 0 Vote négatif

chappyporfaro

XLDnaute Junior

• 17 Mars 2010

• #5

Re : Extraire différences entre 2 colonnes

BOISGONTIER à dit:

Bonsoir,

http://boisgontierjacques.free.fr/fichiers/Divers/Dictionary.xls

Doublons

JB

Cliquez pour agrandir...

Eh bien, la réponse n'a pas tardé! 🙂

Merci bien BOISGONTIER. Je viens de l'essayer dans un fichier et ça fonctionne très bien! Je vais tenter de la modifier pour comparer 2 colonnes dans 2 fichiers différents et avoir le résultat dans un 3ème fichier.

Bye

Pierre
Je vous en redonne des nouvelles.

 

Vote positif 0 Vote négatif

chappyporfaro

XLDnaute Junior

• 17 Mars 2010

• #6

Re : Extraire différences entre 2 colonnes

Bonjour BOISGONTIER, quelques questions au sujet du code:

Code:

Sub Liste2_Liste1()
  a = Range("A2:A" & [A65000].End(xlUp).Row)
  Set MonDico1 = CreateObject("Scripting.Dictionary")
  For Each c In a
   If Not MonDico1.exists(c) Then MonDico1.Add c, c
  Next c
  b = Range("C2:C" & [C65000].End(xlUp).Row)
  Set MonDico2 = CreateObject("Scripting.Dictionary")
  For Each c In b
    If Not MonDico1.exists(c) Then If Not MonDico2.exists(c) Then MonDico2.Add c, c
  Next c
  [I2].Resize(MonDico2.Count, 1) = Application.Transpose(MonDico2.items)
End Sub

Quel est la raison de créer les objets MonDico1 et MonDico2 et quel est la signification de "Scripting.Dictionary"?

Code:

Set MonDico1 = CreateObject("Scripting.Dictionary")

Et je vois que tu pointe la cellule I2 avec des crochets au lieu d'utiliser les fonctions "Cells()" ou "Range()"..... Est-ce un moyen inconnu de plusieurs pour alléger le code?

Merci pour les éclaircissements 😉

Bonne Journée

Pierre

 

Vote positif 0 Vote négatif

R

rudy dehaudt

XLDnaute Occasionnel

• 17 Mars 2010

• #7

Re : Extraire différences entre 2 colonnes

bonjour a tous

dans le fichier ci joint

en cliquant sur le bouton23 les données de la feuille nvl donnée ( qui ne sont pas dans cette feuille (A)) colonne A vienne se placer a la derniere ligne de la colonne A mais je n arrive pas a faire en sorte que se soit la colonne A:F qui qui soit utilisée...

d avance merci

A+

 

Pièces jointes

• AT1.zip

  17.3 KB · Affichages: 152
• AT1.zip

  17.3 KB · Affichages: 160
• AT1.zip

  17.3 KB · Affichages: 168

Vote positif 0 Vote négatif

R

rudy dehaudt

XLDnaute Occasionnel

• 17 Mars 2010

• #8

Re : Extraire différences entre 2 colonnes

😀oups !! j ai plusieur fenêtre d ouverte je me suis tromper de fil

 

Vote positif 0 Vote négatif

chappyporfaro

XLDnaute Junior

• 17 Mars 2010

• #9

Re : Extraire différences entre 2 colonnes

Bonjour, après maints essais je ne réussis pas à obtenir le résultat escompté.

Lorsque les 2 colonnes sont dans la même feuille ça fonctionne très bien. Mais dès que j'essais d'adapter le code pour piger les données dans 2 feuilles différentes, je me retrouve avec des fonctionnements erratiques et des erreurs.

Je vais diminuer le fichier pour pouvoir le joindre à ce fil et vous l'envoyer (48k c'est pas beaucoup! 🙁)

Bye

 

Vote positif 0 Vote négatif

chappyporfaro

XLDnaute Junior

• 18 Mars 2010

• #10

Re : Extraire différences entre 2 colonnes

Bonsoir, voilà où j'en suis rendu. Voir fichier joint. Dans Feuil3, ça fonctionne très bien mais je dois faire un copier-coller des colonnes à comparer. Mais, pour me simplifier les choses je veux utiliser les feuilles d'extraction "Extraction1" et "Extraction2" et avoir les résultats de comparaison dans la 3ème feuille "Différences Extr1-Extr2".

Bizarrement, dépendamment quelle feuille est active, les sub fonctionnent différemment mais ne devrait pas. Pouvez-vous m'aider? 😕

 

Pièces jointes

• Extraction Différences.zip

  15.1 KB · Affichages: 304

Vote positif 0 Vote négatif

chappyporfaro

XLDnaute Junior

• 19 Mars 2010

• #11

Re : Extraire différences entre 2 colonnes

J'ai dû effrayer les gens du forum ou bien il y de la surchauffe de cerveaux suite à mon fil.... 😀

Je vais cultiver ma patience encore un peu mais ça devient inquiétant 😕

Bonne journée 😀

 

Vote positif 0 Vote négatif