identifier des écarts entre deux onglets

Version imprimable

27/08/2013, 17h05
jul2012

1 pièce(s) jointe(s)

Comparaisons de données sans clé unique

Bonjour,

Je sollicite votre aide car je suis novice en VBA, et j’ai besoin d’aide sur la macro que j’essaie de réaliser.

Dans mon fichier, il y a un onglet « client 1 » et un onglet « client 2 », à l’intérieur il y a de nombreuses références qui sont censé être à peu près les mêmes

Le fonctionnement de ma macro serait le suivant :
Il faudrait quelle identifie là où il y a des différences entre le client 1 et le client 2, et les faire ressortir sous la même forme que l’onglet « trade unmatched » que j’ai créé pour vous montrer à quoi cela devrait ressembler une fois fini.

Le champs "state" permettrait de savoir à quel niveau se situe la différence et le surlignage de couleur aussi pour bien mettre en évidence.

J’avais pensé à faire une boucle mais le problème c’est qu’il n’y a pas de référence unique, pas de clé primaire. Le seul moyen serait de pouvoir identifier les données ou il y a le moins d’écart possible.

De plus il faudrait que dans le champs « client 1 inconnu », la macro puisse me dire que certaines données du client 1 ne correspondent pas du tout à celle du client 2 et vice versa.

Je suis conscient de la difficulté de la macro et je suis vraiment perdu.

Pourriez-vous m’aider ?

Cordialement.

Julien
28/08/2013, 09h42
jul2012

Quelqu’un aurait-il une idée ?

Sinon je pensais à faire une boucle qui compare les cellules de la première ligne client 1 avec toute les autres de client 2.

La ou il y aura le moins d'erreur,cela voudra dire que la ligne client 1 correspond à la ligne client 2 qui à le moins d'erreur et je pourrais savoir identifier ou son les données qui posent problème.

Seulement comment peut-on modéliser ça ?

Cordialement.

Julien.

Un petit bout de code à adapter en bouclant tout simplement...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Sub compare()
    Dim i As Long, j As Long, k As Long, l As Long
    Dim dernligne As Long, dernligne2 As Long, ligne As Long
    Dim maxim As Integer
 
 
    dernligne = Sheets("client 1").Range("A" & Rows.Count).End(xlUp).Row
    dernligne2 = Sheets("client 2").Range("A" & Rows.Count).End(xlUp).Row
 
    l = 2
 
'pour chaque client 1
    For i = 2 To dernligne
 
'pour chaque client 2
        For k = 2 To dernligne2
            For j = 1 To 9
'on établit les différences
                If Sheets("client 1").Cells(i, j) = Sheets("client 2").Cells(k, j) Then
                    Sheets("Tableau de comparaison").Cells(k, j) = "OK"
                Else
                    Sheets("Tableau de comparaison").Cells(k, j) = "FAUX"
                End If
            Next j
        Next k
 
'Calcul des differences
        For k = 2 To dernligne2
            For j = 1 To 9
                If Sheets("Tableau de comparaison").Cells(k, j) = "OK" Then
                    somme = somme + 1
                End If
            Next j
            Sheets("Tableau de comparaison").Cells(k, 10) = somme
            somme = 0
        Next k
 
 
'trouve le plus grand nombre de similitudes
        maxim = Application.WorksheetFunction.Max(Sheets("Tableau de comparaison").Range("J2:J" & dernligne2))
        ligne = Sheets("Tableau de comparaison").Range("J2:J" & dernligne2).Find(maxim).Row
 
'Copie en feuille5 celui à qui il ressemble
        For k = 1 To 9
            Feuil5.Cells(l, k) = Sheets("client 1").Cells(i, k)
            Feuil5.Cells(l, 11) = "Ressemble a"
            Feuil5.Cells(l, k + 12) = Sheets("client 2").Cells(ligne, k)
        Next k
        l = l + 1
    Next i
 
End Sub

28/08/2013, 12h13
jul2012

c'est génial.

merci beaucoup, ça va vraiment beaucoup m'aider.

Est-ce qu'il est possible également de supprimer le champs "TYPE" de l'onglet client 1 et client 2.

Dans ce cas la dernière ligne client 1 ne correspondrait pas du tout avec la ligne 6 client 2 et j'aimerais pouvoir l'isoler à part cette ligne client 1.

Est ce que cela est possible?

Merci beaucoup.

Cordialement.

Julien.
28/08/2013, 12h21
EngueEngue

Pas compris ce que tu voulais, mais tout est possible!
28/08/2013, 12h29
EngueEngue

Ce que tu veux c'est pondérer les champs par ordre d'importance vis à vis de la ressemblance ?

Il te suffit de faire une regression logistique et établir un score et à partir de là tu pourras faire un ciblage plus précis...
28/08/2013, 12h37
jul2012

en gros,

Si dans la feuille tableau de comparaison, dans la colonne I il y a un 0 comme c'est le cas pour la dernière ligne de la feuille client 1 alors la ligne client 1 et mis dans une autre feuille et elle n'apparait pas la feuil5 avec la ligne qui lui correspond le plus de l'onglet client 2.

j'ai remis le fichier avec la macro légèrement modifié, j'ai supprimé une colonne dans la feuille client 1 et client 2.

Dis moi si je ne suis pas clair encore ?

Cordialement.
28/08/2013, 12h42
EngueEngue

Toujours pas clair...

Ne comprenant pas ton processus générateur des données, je ne peux que faire des suppositions, mais:

Je dirais que les variables LOTS et PRICES ainsi que la date du trade sont des variables qui identifient clairement une opération, indépendamment des clients, leurs devises etc...

Il me parait donc plus raisonnable des les pondérer davantage que les autres..

Nous avons 9 champs donc tu devrais faire des pondérations sur chacune de ces valeurs dont la somme fait 100% pour une vision plus directe.. et puis après adapter la macro pour que le résultat de la séléction se fasse en fonction de ces pondérations...
28/08/2013, 12h49
jul2012

c'est une bonne idée de faire ça avec des pondérations.

je vais essayer, si j'ai un problème, je reviendrais vers toi.

merci en core pour tous ! ;)