Extraire différences entre 2 colonnes

[chappyporfaro]

Bonjour le forum,

J'ai fais quelques recherches sur le sujet mais je n'ai rien trouvé de concret à ma question.

Dans 2 fichiers différents j'ai une colonne "Équipement" (pour l'exemple joint j'ai regroupé les 2 colonnes sur la même feuille) comprenant des codes alphanumériques uniques (supposément ) qui ne sont pas nécessairement dans le mêm ordre. J'aimerais faire une comparaison en vba et extraire dans une autre colonne les codes d'équipement qui sont différents d'une colonne à l'autre.

Pourriez-vous me donner un enlignement sur la façon de procéder S.V.P.?

Merci

Pierre

 

[CISCO]

Re : Extraire différences entre 2 colonnes

Bonsoir

Faut-il absolument une solution en vba ?

@ plus

 

[chappyporfaro]

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

 

[BOISGONTIER]

Re : Extraire différences entre 2 colonnes

Bonsoir,

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

Doublons

JB

 

[chappyporfaro]

Re : Extraire différences entre 2 colonnes

Bonsoir,

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

Doublons

JB

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.

 

[chappyporfaro]

Re : Extraire différences entre 2 colonnes

Bonjour BOISGONTIER, quelques questions au sujet du 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"?

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

 

[rudy dehaudt]

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+

 

[rudy dehaudt]

Re : Extraire différences entre 2 colonnes

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

 

[chappyporfaro]

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

 

[chappyporfaro]

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?

 

[chappyporfaro]

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