XL 2013 comparaison de listes

T

Toine45

XLDnaute Junior

• 30 Juillet 2016

• #2

Bonjour
tu trouveras peut-être une piste sur ce site "en or" : http://boisgontierjacques.free.fr/
Bonne recherche

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 31 Juillet 2016

• #3

Bonjour,

il faut absolument que les fichiers soient fermés ?

P.

 

Dernière édition: 31 Juillet 2016

Vote positif 0 Vote négatif

I

ivan27

XLDnaute Occasionnel

• 31 Juillet 2016

• #4

Bonsoir le forum, Gosselien,
Si j'ai les 2 classeurs dans un répertoire sans avoir à m'en occuper, c'est mieux...
Si tu as une proposition en regroupant tous les classeurs en un seul, je pends quand même.
Le contenu de SST1 en feuille 1
Le contenu de SST2 en feuille 2
et mon extraction sur une troisième feuille.
Merci d'avance.
Ivan

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 31 Juillet 2016

• #5

re,

essaye ceci 🙂

P.

 

Pièces jointes

• DIFFERENCES.xlsm

  24.1 KB · Affichages: 47
• STT1.xlsx

  11.1 KB · Affichages: 37
• STT2.xlsx

  11 KB · Affichages: 40

Vote positif 0 Vote négatif

I

ivan27

XLDnaute Occasionnel

• 31 Juillet 2016

• #6

Re bonsoir,
Je n'ai qu'un Mac sous la main avec lequel Dictionnary pose des problèmes.
J'essaierai demain au boulot avec Windows et excel 2013.
Par contre, j'ai une première observation. Je remarque dans ton code des limitations à 65000 lignes mais j'en aurai souvent plus.
Je te tiens au courant du résultat de mes essais demain.
Bonne soirée
Ivan

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 31 Juillet 2016

• #7

re,

tu peux remplacer par 1048576 ; soit le nombre de lignes depuis XL2007 🙂

P.

 

Vote positif 0 Vote négatif

I

ivan27

XLDnaute Occasionnel

• 1 Août 2016

• #8

Bonjour le forum, Gosselien,

J'ai un problème de fonctionnement.
J'ai téléchargé les trois fichiers sans les renommer. Ils sont tous dans le même répertoire
La macro "commun" génère une erreur 1004 (fichier stt1.xlsx non trouvé)

La macro "difference3" génère une erreur 450 et bloque sur la ligne suivante au débogage :
D2() = Tblo(I, 2) & "/" & Tblo(I, 3) & "/" & Tblo(I, 4) & "/" & Tblo(I, 5) & "/" & Tblo(I, 6)

J'ai fait des essais avec les classeurs stt1 et stt2 ouverts et fermés.

Cordialement,
Ivan

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 1 Août 2016

• #9

Bonjour,

tu lances bien le module2 ? le 1 était un essai 🙂


P.

 

Vote positif 0 Vote négatif

I

ivan27

XLDnaute Occasionnel

• 1 Août 2016

• #10

Re bonjour à tous,
Je lance bien le module 2. Les dossiers sont tous dans le même répertoire et ouverts.
Cdlt,
Ivan

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 1 Août 2016

• #11

Le "chemin" indique l'endroit du fichier "différences.xslm" mais je ne l'ai pas mis dans l'ouverture des 2 autres 🙂
comme ceci:


Chemin = ActiveWorkbook.Path
Workbooks.Open Chemin & "\" & "STT1.xlsx": Workbooks.Open Chemin & "\" & "STT2.xlsx"


P.

 

Dernière édition: 1 Août 2016

Vote positif 0 Vote négatif

I

ivan27

XLDnaute Occasionnel

• 1 Août 2016

• #12

Re bonsoir à tous,

On avance. J'ai cependant un problème avec le résultat.
Seules des données de SST1 sont récupérées sur la feuille 1 et rien sur la feuille 2.
Il y a également un problème avec des colonnes qui sont dupliquées (voir le classeur joint)
Bonne soirée
Ivan

 

Pièces jointes

• DIFFERENCES.xlsm

  22.6 KB · Affichages: 51

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 1 Août 2016

• #13

J'ai mal compris ta phrase alors ? (mon neurone fatigue de + en + vite)
Pour mettre en feuille2 : Set Ws3 = Wb3.Sheets("Feuil2")

"Si dans les classeurs STT1 et STT2 les numéros de la colonne A sont identiques et les montants de la colonne B sont différents, je récupère dans un troisième classeur la ligne correspondante de STT1."

Remplace ceci:
' D2(Tmp & "¦" & C.Offset(, 1) & "¦" & C.Offset(, 2) & "¦" & C.Offset(, 3) & "¦" & C.Offset(, 4) & _
' "¦" & C.Offset(, 5) & "¦" & C.Offset(, 6)) = "" ' ajout des autres data

par :
D2(Tmp & "¦" & C.Offset(, 3) & "¦" & C.Offset(, 4) & "¦" & C.Offset(, 5) & "¦" & C.Offset(, 6)) = ""

 

Dernière édition: 1 Août 2016

Vote positif 0 Vote négatif

I

ivan27

XLDnaute Occasionnel

• 1 Août 2016

• #14

Re bonsoir Gosselien,
Tu as bien compris mais après l'extraction, les colonnes B et D ainsi que C et E sont identiques dans ta proposition.
Il manque ensuite la partie "Je récupère dans le troisième classeur en colonne G le montant STT2 et je calcule l'écart en colonne H"
Cdlt
Ivan

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 1 Août 2016

• #15

re,

je ne saurai pas ces prochains jours retravailler dessus, mais il y a eu plusieurs personnes qui l'ont chargé et qui sauront t'aider j'espère; je suivrai le fil surtout qu'il y a bien plus fort en vba donc ça devrait aller 🙂

P.

 

Vote positif 0 Vote négatif