Comparer 4 fichiers Excel

[JDD]

Bonjour à Toutes et à Tous,

Je galére depuis quelques jours pour réaliser une comparaison de 4 tableaux Excel.Et oui rien que çà.
Je vais essayé d'être le plus explicite possible.
Je souhaite comparer toutes les lignes de mon fichier de base avec leur éventuelle correspondance avec les lignes du fichier à comparer.
C'est exactement ce qui est expliqué sur ce lien que je souhaiterai réaliser mais avec 1 table de base et 3 autres tables à comparer.
bimpe.free.fr/utilisation_script_comparaison.doc

Je connaît certaines fonctions dans Excel mais je ne sais pas laquelle utiliser pour réaliser ce type de comparaison.

Si quelqu'un à une idée, je suis preneur,en tout cas merci d'avance pour votre aide.
Salutations

 

[edelweisseric]

Bonsoir JDD
Bonsoir à tous

Ce fichier te servira peut être. Il a été fait pour comparer 2 fichiers.

Bon courage

Cordialement [file name=Fichiertestcomparaison_20060324185508.zip size=18867]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Fichiertestcomparaison_20060324185508.zip[/file]

 

[JDD]

Bonsoir edelweisseric,

Merci pour ta réponse rapide.
Je viens d'en prendre note mais je rencontre un probléme.
En ouvrant le fichier Zipé, je tombe sur une feuille Excel avec un Bouton 1.

Que dois-je faire?
Est-ce que j'ai des fichiers à rapatrier?

A bientôt

 

[CAPRI_456]

bsoir JDD, Edelweis, le Forum,

j'ai 'séché' et ai progressé surtout grâce à l'aide de MichelXLD sur un pb similaire ou je souhaitais comparer deux classeurs dont 1 fermé ..

avec en sus si tu le souhaites , une possibilité de colorer les lignes identiques retrouvées ou non retrouvées selon une codification de stragtégie...

Encore merci à MichelXLD et je te fais pars d'une partie de mon évolution

2 petits fichiers en attache.

Bonne adaptation, si c'est ce que tu recherches [file name=CLASSEUR2.zip size=20155]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/CLASSEUR2.zip[/file]

 

[edelweisseric]

Bonsoir JDD, Capri
Bonsoir le forum

Tu cliques sur le bouton.
Tu donnes les 2 fichiers à comparer
Sur le 2ème il met en couleur les cellules différentes
Et il édite un fichier rapport avec les différences et les adresses des cellules modifiées.

Bon courage
Cordialement

 

[JDD]

Bonsoir à Tous,

Merci pour votre aide concernant ma comparaison de fichiers.
Cependant , et aprés avoir testé les différentes manip conseillées, je ne retrouve pas ce que je souhaite.
J'ai pris le temps de préparer sous Excel un fichier explicatif afin que je sois le plus clair possible.
Dans l'attente de votre conseil pour réaliser cette comparaison,

A trés bientôt

 

[JDD]

Re Bonsoir,

Ci joint le fichier qui devait être joint à mon dernier message :

A trés bientôt [file name=Explication_20060325204601.zip size=4200]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Explication_20060325204601.zip[/file]

 

[edelweisseric]

Bonsoir JDD, Capri
Bonsoir à tous

Rien ne sert de courir.... mais j'espère que je n'arrive pas trop tard.
J'ai écris ce code, regarde si cela te va. Il est fait pour comparer 3 fichiers avec 1 fichier base.
Regardes bien sur le fichier, j'ai mis des annotations pour modifier certaines lignes pour adapter.
N'hésite pas si tu as des doutes, si tu veux modifier, si tu as des pb quelconques....
Bon courage
Cordialement [file name=Explicationmodifie02.zip size=13259]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Explicationmodifie02.zip[/file]

 

[JDD]

Bonsoir edelweisseric, bonsoir Capri

Je pense que l'on tiens le bon bout.
En effet, je pense qu'il faut parfois attendre pour avoir ce que l'on recherche.Je suis actuellement en train de faire mes comparaisons de fichiers et ce que tu m'a proposé fonctionne presque.
Je viens de relancer la moulinette car j'avais toujours mon fichier de base identique à mon fichier 1.Et donc de ce fait ma comparaison était faite sur 2 fichiers et non 3 comme je le souhaitais.
Ah oui au fait, j'ai du apporter la modif afin de lire mes 15000 lignes, et oui que çà.C'est pour cela que le traitement est assez long.
De toute les maniéres je te tiendrai au courant de ma derniére comparaison qui mouline toujours.
En tout cas encore un grand merci pour ton aide.
Au fait, depuis combien de temps tu manipules VBA.Quels conseils peux tu me donner afin que je familiarise mieux avec VBA, ou exite-t-il un moyen d'apprendre d'une maniére interactive, ou par bouquins (Si tu connais un bon support je suis preneur).
A trés bientôt, et je te tiens au courant de mon résultat final.
Merci encore
Bonne soirée à tous.

 

[edelweisseric]

Bonsoir JDD
Bonsoir à tous

Je ne savais pas qu'il y avait 15000 lignes, tu en as pour un bon moment. J'avais pris 1000 lignes à vérifier mais j'étais loin du compte !!!
Tu peux lancer la macro avec les fichiers ouverts ou fermés, sauf bien sur celui où elle est installée.
Je pense qu'il faudrait réaménager les procédures car j'ai fait cela un peu vite, et je ne suis pas expert, donc il y a certainement du code en trop, et peut être que l'on peut réduire le temps de traitement, à voir.
Au sujet de bouquin, il y a une personne sur un forum qui m'a donné celui avec lequel elle programmait :
VBA pour Excel programmation macro
par Richard Shepherd
éditeur First Interactive
391 pages 24.90 euros
(23.66 chez FNAC)
Pour ma part, j'ai un vieil ouvrage :
Etape par étape, excel 97, VB
Microsoft press, de .... 1999
Je trouve qu'il est assez bien fait pour commencer.
Je ne suis actionnaire ni chez l'un ni chez l'autre.

A+
Cordialement
Edelweisseric

 

[JDD]

Bonsoir edelweisseric,
Bonsoir à tous,


Génial !

Aprés avoir mouliné un certain temps, c'est exactement le résultat que j'attendais.

Bon, oui, en effet, il faut du temps mais il y a du résultat.

Encore merci

Bonne soirée
A bientôt

 

[edelweisseric]

Bonsoir JDD
Bonsoir à tous

J'ai un peu réfléchi, et j'ai transformé un bout de code

Je te le transmet, essayes le, on devrait gagner du temps sur le traitement

Dans 'Sub fichier_01() ' à la place de :

'''For x = 0 To derlign_base ''' le 0 réprésente la cellule A1 vers derlign
''' dans le cas présent A7 ne pas changer
'''If ActiveCell.Offset(ligne, 0).Value = liste_code_barre(x, 0) Then
'''For b = 1 To 3
'''liste_code_barre(x, b + (3 * num_fic)) = ActiveCell.Offset(ligne, b).Value
'''Next b
'''b = 0
'''liste_code_barre(x, 13) = liste_code_barre(x, 13) + 1
'''x = 0
'''Exit For
'''End If
'''Next x

tu remplaces par :

texte_cellule = ActiveCell.Offset(ligne, 0).Value
Windows(nom_fichiers(0)).Activate
With Worksheets(1).Range('a7:a19')
Set Var = .Find(texte_cellule, LookIn:=xlValues)
maligne = Var.Row - 7
End With

Windows(nom_fichiers(c)).Activate
For b = 1 To 3
liste_code_barre(maligne, b + (3 * num_fic)) = ActiveCell.Offset(ligne, b).Value
Next b
b = 0
liste_code_barre(maligne, 13) = liste_code_barre(maligne, 13) + 1

A+

Cordialement

 

[edelweisseric]

Bonsoir JDD
Bonsoir à tous

oups de oups

Dans la ligne :
With Worksheets(1).Range('a7:a19')
il faut que tu adaptes
Worksheets(1) à la feuille qui est ta feuille maitresse sur le fichier base

et Range('a7:a19') qui est en rapport avec ton exemple

et dans la ligne
maligne = Var.Row - 7
le -7 est par rapport à ton 'a7:...' donc ne rien mettre si tu démarres à A1

J'espère que j'ai été clair, sinon n'hésite pas

A+

Cordialement