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: 167

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