VBA Comparer deux tableaux (array of string )

Version imprimable

Bonjour.
J'ai un problème dans une macro VBA qui a pour rôle de comparer deux tableaux (array of string ) et de stocker les données identiques dans une variable.
j'ai procédé comme suit:
Code:

1 2 3 4 5 6 7 8 ct = -1 For i = 3 To RowCount If objsheet.Cells(i, 4) <> "-" Then ct = ct + 1 ReDim Preserve VarExcel(ct) VarExcel(ct) = objsheet.Cells(i, 7) End If Next i
Cette boucle sert à extraire les données excel qui vont servir à faire la comparaison avec la variable VarFile après. Ces données sont stockées dans la variables VarExcel.
Puis, j'effectue la comparaison entre VarFile et VarExcel.
Code:

1 2 3 4 5 6 7 8 9 10 11 cpt = -1 For j = 1 To UBound(VarFile) For k = 0 To UBound(VarExcel) If InStr(VarFile(j), VarExcel(k)) Then cpt = cpt + 1 ReDim Preserve ch1(cpt) ch1(cpt) = VarFile(j) Debug.Print ch(cpt) End If Next k Next j
Mon problème est que la variable ch est exactement identique à Varfile alors qu'elle doit normalement ne contenir que les "cases" de VarFile si InStr(VarFile(j), VarExcel(k)).

SVP aidez moi, j'arrive pas à identifier le problème et c'est vraiment urgent.
Merci :)

Re-salut :)

alors y a personne pour m'aider ?
si mon message n'est pas tout à fait clair, que quelqu'un me le dise pour que j'essaye de réexpliquer.

SVP je cherche une réponse en urgence car je suis bloqué et je ne peux pas avancer dans le développement de mon application avant que je résolve ce problème.

Merci à l'avance :)

22/05/2013, 16h27
Daniel.C

Bonjour,

Faut pas t'impatienter comme ça, tu n'es pas tout seul ici. "VarFile", c'est quoi ?
22/05/2013, 16h31
Invité

Bonjour,

Ne faudrait-il pas tester le résultat de :

Citation:

If InStr(VarFile(j), VarExcel(k)) Then

Ci-dessous, l'aide de la fonction Instr

http://www.developpez.net/forums/att...1&d=1369232932

Si la chaîne est trouvée, le résultat est > 0.

Pas sûr, à tester.

Cordialement.
22/05/2013, 16h58
rebelious

Merci Daniel.C et Eric KERGRESSE pour vos réponses.

Daniel, je fais une course contre la montre pour terminer mon application à temps c'est pour cela que je ne m'impatiente un peu. et tu as raison, y a pas que moi qui demande de l'aide sur ce forum.
Alors VarFile est un array de string (variable où j'ai stocker des données extraites à partir d'un fichier texte). A tire d'exemple:
VarFile (1) = "Anne : femme 34ans;"
VarFile (2) = "jean : homme 50ans;"

Désolée Eric,mais j'ai pas tout à fait saisi ta remarque :/

En suivant le raisonnement de mon message, il faut que

Code:

If InStr(VarFile(j), VarExcel(k))>0 Then

Dans

Code:

1
2
3
4
5
6
7
8
9
10
11
cpt = -1
    For j = 1 To UBound(VarFile)
        For k = 0 To UBound(VarExcel)
            If InStr(VarFile(j), VarExcel(k))>0 Then
                cpt = cpt + 1
                ReDim Preserve ch1(cpt)
                ch1(cpt) = VarFile(j)
              Debug.Print ch(cpt)
            End If
        Next k
    Next j

22/05/2013, 17h13
rebelious

Merci Eric pour la clarification :)
Mais ça ne fonctionne toujours pas càd même résultat avec ou sans la condition >0 !!
22/05/2013, 17h15
Invité

As-tu un classeur exemple sans données confidentielles avec ton code VBA ?

Cordialement.
22/05/2013, 17h41
rebelious

c'est ça tout le problème Eric.
Je ne peux pas t'envoyer mon classeur avec le code VBA.
Mais est ce que tu peux m'indiquer une piste (celle que tu suspectes) et j'essaierai de creuser moi même pour résoudre le problème ?
22/05/2013, 18h44
Invité

J'ai essayé de reproduire l'exemple sur 3 enregistrements dont 1 était commun aux deux matrices dans le fichier joint.
Le résultat est bien l'enregistrement commun (Eric).

Nb : Mes variables matrices sont de type Variant (voir le code).

Avec quelques données à toi, tu peux modifier le fichier transmis et regarder si cela fonctionne correctement.

Cordialement.
23/05/2013, 11h16
rebelious

Bonjour Eric.

Merci infinement pour ta réponse et pour l'effort que t'as fourni pour me la donner :)

En effet, j'ai pu identifier la cause de mon problème: ma VarExcel contient une "case" vide. Quand je remplis cette case, mon code fonctionne normalement.
Mais franchement je vois pas comment corriger ce problème au cas où j'aurais des cases vides.
Un autre problème, c'est que ma variable ch contient des cases en doublons mais j'arrive pas à en déterminer la cause ! donc si tu as un conseil à me donner, il sera le bienvenu.

Merci encore et bonne journée :)

En insérant une valeur vide dans VarExcel, CH1 récupère tout Varfile.

Essaye de modifier la code

Code:

If InStr(VarFile(J), VarExcel(K)) > 0

par
Code:

1 2 If InStr(VarFile(J), VarExcel(K)) > 0 And Not IsEmpty(VarExcel(K)) Then ' MsgBox ("Valeur Varfile : " & VarFile(J) & Chr(10) & "Valeur VarExcel : " & VarExcel(K) & Chr(10) & " Valeur Instr : " & InStr(VarFile(J), VarExcel(K)))
La condition ne fonctionne que si VarExcel(K) n'est pas vide.

Indique moi si tu as toujours des doublons.

Cordialement.

23/05/2013, 12h00
rebelious

j'ai essayé comme tu m'as conseillé et bizarrement ça n'a pas fonctionné.
PS: les doublons persistent encore !!
23/05/2013, 12h15
Michel_M

1 pièce(s) jointe(s)

Bonjour

Avec une autre méthode que instr avec l'objet dictionary
par un exemple quelconque; le tableau final ne comporte pas de doublon

Dans ce cas modifie ton code en initialisant deux variables "PresenceDoublon" et CompteurCh1 et ajoute les lignes de code testant la présence des doublons dans ta macro

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
Sub ComparerVarExcel()
 
Dim Cpt As Long
Dim J As Long
Dim K As Long
Dim PresenceDoublon As Boolean
Dim CompteurCh1 As Long
 
    Call ChargementVarfile
    Call ChargerVarExcel
    Cpt = -1
    For J = 0 To UBound(VarFile)
        For K = 0 To UBound(VarExcel)
            If InStr(VarFile(J), VarExcel(K)) > 0 And Not IsEmpty(VarExcel(K)) Then
                MsgBox ("Valeur Varfile : " & VarFile(J) & Chr(10) & "Valeur VarExcel : " & VarExcel(K) & Chr(10) & " Valeur Instr : " & InStr(VarFile(J), VarExcel(K)))
 
                PresenceDoublon = False
                For CompteurCh1 = LBound(Ch1, 1) To UBound(Ch1, 1)
                 If Ch1(CompteurCh1) = VarFile(J) Then PresenceDoublon = True
                Next CompteurCh1
 
                If PresenceDoublon = False Then
                       Cpt = Cpt + 1
                       ReDim Preserve Ch1(Cpt)
                       Ch1(Cpt) = VarFile(J)
                       MsgBox ("Ch1 : " & Ch1(UBound(Ch1)))
                    ' Debug.Print Ch1(Cpt)
               End If
            End If
        Next K
    Next J
End Sub

Cordialement.

23/05/2013, 14h44
rebelious

Merci Eric pour l'astuce que t'as ajoutée au code
.
Mais je ne sais pas pourquoi ça bloque au niveau de:

Code:

For CompteurCh1 = LBound(ch1, 1) To UBound(ch1, 1)

m'indiquant le message d'erreur suivant:
Run-time error '9' subscript out of range
23/05/2013, 16h09
Michel_M

Excusez moi d'avoir dérangé en essayant de montrer une méthode simple et rapide; pourtant l'objet dictionary est du niveau débutant

Citation:

Envoyé par rebelious

Merci Eric pour l'astuce que t'as ajoutée au code
.
Mais je ne sais pas pourquoi ça bloque au niveau de:

Code:

For CompteurCh1 = LBound(ch1, 1) To UBound(ch1, 1)

m'indiquant le message d'erreur suivant:
Run-time error '9' subscript out of range

L'erreur se produit car la variable Ch1 n'est pas initialisée à la première occurrence. J'ai donc initialisé Ch1 en début de programme. Par contre, il faut qu'à la première occurrence, la valeur aille dans Ch1(0) et que Redim Preserve Ch1 n'intervienne qu'à partir de la deuxième occurrence. J'ai donc ajouté un select case pour tester la valeur de Cpt. Attention Cpt démarre à 0 maintenant.

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
Sub ComparerVarExcel()
 
Dim Cpt As Long
Dim J As Long
Dim K As Long
Dim PresenceDoublon As Boolean
Dim CompteurCh1 As Long
 
    ReDim Ch1(0)
    Call ChargementVarfile
    Call ChargerVarExcel
    Cpt = 0
    For J = 0 To UBound(VarFile)
        For K = 0 To UBound(VarExcel)
            If InStr(VarFile(J), VarExcel(K)) > 0 And Not IsEmpty(VarExcel(K)) Then
                MsgBox ("Valeur Varfile : " & VarFile(J) & Chr(10) & "Valeur VarExcel : " & VarExcel(K) & Chr(10) & " Valeur Instr : " & InStr(VarFile(J), VarExcel(K)))
 
 
                     PresenceDoublon = False
                     For CompteurCh1 = LBound(Ch1) To UBound(Ch1)
                      If Ch1(CompteurCh1) = VarFile(J) Then PresenceDoublon = True
                     Next CompteurCh1
 
                     If PresenceDoublon = False Then
                        Select Case Cpt
                            Case 0
                                Ch1(Cpt) = VarFile(J)
                                MsgBox ("Ch1 : " & Ch1(Cpt))
                                Cpt = Cpt + 1
                            Case Else
                                ReDim Preserve Ch1(Cpt)
                                Ch1(Cpt) = VarFile(J)
                                MsgBox ("Ch1 : " & Ch1(Cpt))
                            Cpt = Cpt + 1
                         ' Debug.Print Ch1(Cpt)
                        End Select
 
                    End If
            End If
        Next K
    Next J
End Sub

Cordialement.

23/05/2013, 19h25
rebelious

bonsoir :)

Michel_M, je suis vraiment désolé, je ne me suis rendue-compte de ton premier message qu'après lecture du 2ème .
Alors merci bien pour la méthode que tu m'as proposée mais franchement en tant que débutant en VBA je préfère pas utiliser des objet qui ne me sont pas familiers si je peut me débrouiller autrement ;)

Eric, je ne saurais te remercier pour l'effort que tu as fournis pour me répondre et le code que tu as posté fonctionne à merveille.
Juste une dernière question et j'espère pouvoir bien la poser:
sais tu comment contourner le problème suivant:
dans ma VarExcel j'ai parfois des chaines de la forme "Rebelious_1" ou encore "Eric KERGRESSE" alors que leurs équivalents dans VarFile sont de la forme "Rebelious" ou "Eric"
càd "Rebelious_1"est équivalente à "Rebelious" et "Eric KERGRESSE"est équivalente à "Eric".
L'instrucstion InStr(VarFile(J), VarExcel(K)) > 0 ne peut pas prendre en compte ces cas particuliers et je ne sais vraiment pas s'il est possible de trouver une issue à ce problème.

J'attend vos propsitions SVP
allez, bonne soirée :)

Bonjour,

Il faut ajouter une nouvelle condition dans la ligne

Code:

 If (InStr(VarFile(J), VarExcel(K)) > 0 And Not IsEmpty(VarExcel(K))) Or (VarFile(J) = Mid(VarExcel(K), 1, Len(VarFile(J))) And Not IsEmpty(VarFile(J))) Then

Le code devient

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
Sub ComparerVarExcel()
 
Dim Cpt As Long
Dim J As Long
Dim K As Long
Dim PresenceDoublon As Boolean
Dim CompteurCh1 As Long
 
    ReDim Ch1(0)
    Call ChargementVarfile
    Call ChargerVarExcel
    Cpt = 0
    For J = 0 To UBound(VarFile)
        For K = 0 To UBound(VarExcel)
            If (InStr(VarFile(J), VarExcel(K)) > 0 And Not IsEmpty(VarExcel(K))) Or (VarFile(J) = Mid(VarExcel(K), 1, Len(VarFile(J))) And Not IsEmpty(VarFile(J))) Then
                MsgBox ("Valeur Varfile : " & VarFile(J) & Chr(10) & "Valeur VarExcel : " & VarExcel(K) & Chr(10) & " Valeur Instr : " & InStr(VarFile(J), VarExcel(K)))
 
 
                     PresenceDoublon = False
                     For CompteurCh1 = LBound(Ch1) To UBound(Ch1)
                      If Ch1(CompteurCh1) = VarFile(J) Then PresenceDoublon = True
                     Next CompteurCh1
 
                     If PresenceDoublon = False Then
                        Select Case Cpt
                            Case 0
                                Ch1(Cpt) = VarFile(J)
                                MsgBox ("Ch1 : " & Ch1(Cpt))
                                Cpt = Cpt + 1
                            Case Else
                                ReDim Preserve Ch1(Cpt)
                                Ch1(Cpt) = VarFile(J)
                                MsgBox ("Ch1 : " & Ch1(Cpt))
                            Cpt = Cpt + 1
                         ' Debug.Print Ch1(Cpt)
                        End Select
 
                    End If
            End If
        Next K
    Next J
End Sub

Cordialement.