Bases à comparer

ZEZEZE · 16 Août 2010

Bonjour,

J'ai 2 bases dont je souhaite identifier les lignes qui différent entre la Base2 et la Base1. Disons que la Base2 est antérieure à la Base1.

Une clé, présente dans chaque base, permet la comparaison des lignes. En effet, les lignes peuvent être identiques d'une base à l'autre mais positionnées différemment dans le fichier.

Attention, je souhaite identifier les lignes même si le contenu d'1 cellule a été modifié, pour une même clé.

En résultat, l'identification de la ligne en cause présente dans la Base2 peut me suffire, en faisant apparaître la clé par exemple.

Merci de l'intérêt porté à ma demande.
Pierre

pierrejean · 16 Août 2010

Re : Bases à comparer

bonjour 3ZE

Vois si cela te convient

croco40 · 16 Août 2010

Re : Bases à comparer

Pour pierrejean,
un petit coucou d'afrique, ou il ne fait que 40° (je sais qu'en france c'est pas la meme).
J'essaie de suivre un peu le forum depuis ici, mais l'acces a internet est assez limité.
Bonne continuation et le bisous a tout le reste du forum.
Suerte
Croco

BOISGONTIER · 16 Août 2010

Re : Bases à comparer

Bonjour,

Voir PJ

Comparaison BD

Code:

Sub BD2_BD1()
  Set f1 = Sheets("Base1")
  Set f2 = Sheets("Base2")
  Set MonDico1 = CreateObject("Scripting.Dictionary")
  For Each c In f1.Range("a2:a" & f1.[a65000].End(xlUp).Row)
    MonDico1.Item(c.Value) = c.Value
  Next c
  Set MonDico2 = CreateObject("Scripting.Dictionary")
  For Each c In f2.Range("a2:a" & f2.[b65000].End(xlUp).Row)
    If Not MonDico1.exists(c.Value) Then
      If Not MonDico2.exists(c.Value) Then MonDico2.Add c.Value, c.Row
    End If
  Next c
  Sheets("Différences dans la Base2").[A2].Resize(MonDico2.Count, 1) = Application.Transpose(MonDico2.keys)
  Sheets("Différences dans la Base2").[b2].Resize(MonDico2.Count, 1) = Application.Transpose(MonDico2.items)
End Sub

JB

ZEZEZE · 16 Août 2010

Re : Bases à comparer

A PIERREJEAN

La ligne 3 correspondant à z2bb devrait également ressortir car Janvier et MArs sont différents.
La clé z1aa aussi car elle n'existe plus dans la BAse2.

A BOISGONTIER, j'ai votre site et j'ai regardé le fichier proposé. Mais cela ne correspond pas expressément à mon souhait.
Merci à tous les 2

Pierre

pierrejean · 16 Août 2010

Re : Bases à comparer

Re

Je n'avais pas saisi que la comparaison devait porter sur toute la ligne

Vois si cela va mieux

ZEZEZE · 16 Août 2010

Re : Bases à comparer

pierrejean à dit:
Re

Je n'avais pas saisi que la comparaison devait porter sur toute la ligne

Vois si cela va mieux

PIERREJEAN

Effectivement cela va mieux mais..: j'ai rajouté une ligne dans Base2 sans toucher à la Base1 et il ne me la pas sortie en "différences" (?)
Les bases citées sont des exemples. Il y a beaucoup plus de lignes et de colonnes.
Pierre

pierrejean · 16 Août 2010

Re : Bases à comparer

Re

Il y avait effectivement une erreur

Verifie cette version
Attention elle donne a la fois les differences dans la base1 et la base2

ZEZEZE · 16 Août 2010

Re : Bases à comparer

pierrejean à dit:
Re

Attention elle donne a la fois les differences dans la base1 et la base2

parfait ! mais...
Pouvez vous adapter la macro de façon que je ne sois pas limiter en terme de nombre de colonnes ? Je vais déjà avoir 24 mois (12 pour 2009 et 12 pour 2010).
Une macro prévue pour une 30taine de colonnes me conviendrait bien.
Grand merci
Pierre

pierrejean · 16 Août 2010

Re : Bases à comparer

Re

OK mais ce sera pour demain

ZEZEZE · 16 Août 2010

Re : Bases à comparer

pierrejean à dit:
Re

OK mais ce sera pour demain

excellente nuit !!

BOISGONTIER · 16 Août 2010

Re : Bases à comparer

Voir PJ

JB

youky(BJ) · 16 Août 2010

Re : Bases à comparer

Bonsoir le fil,
JB,
Félicitations, Super belle macro.
PS: je me surprends, c'est la 1ère fois que je fais un compliment.
Donc, Bravo.
Bruno

ZEZEZE · 17 Août 2010

Re : Bases à comparer

BOISGONTIER à dit:
Voir PJ

JB

Un seul mot: IMPRESSIONNANT !!

Merci à vous BOISGONTIER (votre site est ds mes Favoris)
Pierre

ZEZEZE · 17 Août 2010

Re : Bases à comparer

BOISGONTIER à dit:
Voir PJ

JB

Encore moi...

J'ai modifié un "peu" mes 2 bases de données afin de les faire correspondre à mes besoins.
J'ai depuis un message d'erreur en appuyant sur la macro DIFF (!)
Je te joins mon fichier en PJ.

D'autre-part, BD1-BD2 ou l'inverse n'affiche pas les différences entre les 2 bases (moins urgent)
Merci
Pierre

Bases à comparer

ZEZEZE

XLDnaute Nouveau

Pièces jointes

pierrejean

XLDnaute Barbatruc

Pièces jointes

croco40

XLDnaute Occasionnel

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

ZEZEZE

XLDnaute Nouveau

pierrejean

XLDnaute Barbatruc

Pièces jointes

ZEZEZE

XLDnaute Nouveau

pierrejean

XLDnaute Barbatruc

Pièces jointes

ZEZEZE

XLDnaute Nouveau

pierrejean

XLDnaute Barbatruc

ZEZEZE

XLDnaute Nouveau

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

youky(BJ)

XLDnaute Barbatruc

ZEZEZE

XLDnaute Nouveau

ZEZEZE

XLDnaute Nouveau

Pièces jointes

Discussions similaires