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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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