Problème de comparaison de tableau

Version imprimable

Bonjour,

Je cherche a créer un set de fonctions pour connaitre les éléments en communs, ajoutés ou supprimés de 2 listes ou les données sont séparées par des ~

voila ce que j'ai pour ma sub de test des valeurs communes:
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 Sub Test() Liste1 = "1~2" Liste2 = "2~3" MsgBox (ListeCommuns(Liste1, Liste2)) End Sub Function IsInArray(stringToBeFound, arr As Variant) As Boolean IsInArray = (UBound(Filter(arr, stringToBeFound)) > -1) End Function Public Function ListeCommuns(Liste1, Liste2) As String Communs = "" Tableau1 = Split(Liste1, "~") Tableau2 = Split(Liste2, "~") For Each elt In Tableau1 If IsInArray(elt, Tableau2()) Then If Communs = "" Then Communs = elt Else Communs = Communs & "~" & elt End If End If Next elt ListeCommuns = Communs End Function
J'ai une erreur d’exécution 9: L'indice n'appartient pas à la sélection...
Je ne vois pas ce que j'ai fais de travers. Si vous avez des idées/solution , je suis preneur, bonne journée,

Ceci vient de ta fonction isinarray...

Celle ci est plus performante:

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
Sub Test()
Liste1 = "1~2"
Liste2 = "2~3"
MsgBox (ListeCommuns(Liste1, Liste2))
End Sub
 
 
 
Public Function ListeCommuns(Liste1, Liste2) As String
    Communs = ""
    tableau1 = Split(Liste1, "~")
    tableau2 = Split(Liste2, "~")
    For Each elt In tableau1
        If IsinArray(tableau2, elt) Then
            If Communs = "" Then
                Communs = elt
            Else
                Communs = Communs & "~" & elt
            End If
        End If
    Next elt
    ListeCommuns = Communs
End Function
 
 
Public Function IsinArray(arr As Variant, valueToFind As Variant) As Boolean
  IsinArray = Not IsError(Application.Match(valueToFind, arr, False))
End Function

Merci EngueEngue, cela fonctionne parfaitement dans la sub de test! :)

Malheureusement quand je la copie colle dans mon projet j'ai une incompatibilité de type à cet endroit:

Code:

1
2
 
IsinArray = Not IsError(Application.Match(valueToFind, arr, False))

c'est bizarre parce que je construit les deux listes avec une concaténation de string dans la fonction suivante:

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
 
Public Function CompaPage(NomFichier1, NomFichier2, EAN) As String
    Workbooks(NomFichier1).Activate
    colPage1 = NumCol("Page")
    colPagePlus1 = NumCol("Info Page plus")
    ligEAN1 = NumLig(EAN, NumCol("EAN 13"))
    If Cells(ligEAN1, colPagePlus1) <> "" Then
        Pages1 = Cells(ligEAN1, colPage1).Value & "," & Cells(ligEAN1, colPagePlus1).Value
    Else
        Pages1 = Cells(ligEAN1, colPage1).Value
    End If
    Workbooks(NomFichier2).Activate
    colPage2 = NumCol("Page")
    colPagePlus2 = NumCol("Info Page plus")
    ligEAN2 = NumLig(EAN, NumCol("EAN 13"))
    If Cells(ligEAN2, colPagePlus2) <> "" Then
        Pages1 = Cells(ligEAN2, colPage2).Value & "," & Cells(ligEAN2, colPagePlus2).Value
    Else
        Pages1 = Cells(ligEAN2, colPage2).Value
    End If
    If Pages1 <> Pages2 Then
        Pages1 = Replace(Pages1, ",", "~")
        'MsgBox (Pages1)
        Pages2 = Replace(Pages2, ",", "~")
        'MsgBox (Pages2)
        Communs = ListeCommuns(Pages1, Pages2)
        MsgBox (Communs)
        CompaPage = "Communs: " & Communs
    Else
        CompaPage = "NA"
    End If
End Function

si quelqu'un a une piste je suis preneur :(

19/11/2013, 15h59
EngueEngue

Il faudrait nous copier coller la liste1 et la liste2 pour qu'on puisse voir d'où vient cette incopatibilité que je ne comprends pas puisque tout est variant..
19/11/2013, 16h29
CaraLePoke

Liste1 et Liste2 correspondent à Pages1 et Pages2.
Ces deux listes sont construitent en concaténant 2 cellules "Page" (qui contient juste un entier) et "InfoPagePlus" (qui peut contenir plusieurs entiers(ou un seul) séparé par des virgules).

J'ajoute d’ailleurs une virgule à ma concaténation, puis je remplace les virgule par ~ (c'est dans compapage que j'ai mis au dessus)

Je suis d'accord, ce sont des variant, donc ça doit passer... surtout que les liste sont "splitée" donc sont des arrays...

Voila un exemple d'un fichier avec les cellules pages et infopageplus:

Page|Info Page plus|EAN 13|Libelle Produit
2||2099901346919|Martine
2||2099901346926|Moi
2||3700301127389|Robert
2||3700301127396|Hourra
1||5012786030336|Autre
1||5012786031524|Machin
1||8710103355236|hop
1||8718158377890|Bidule
1|2,3|8718158406484|Trucd
1||8806084180018|Hip

comme je fais:

Code:

Pages1 = Cells(ligEAN1, colPage1).Value & "," & Cells(ligEAN1, colPagePlus1).Value

puis

Code:

Pages1 = Replace(Pages1, ",", "~")

donc pour l'avant dernière ligne Pages1="1~2~3"

ça aide?

HA!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 
If Cells(ligEAN1, colPagePlus1) <> "" Then
        Pages1 = Cells(ligEAN1, colPage1).Value & "," & Cells(ligEAN1, colPagePlus1).Value
    Else
        Pages1 = Cells(ligEAN1, colPage1).Value
    End If
    Workbooks(NomFichier2).Activate
    colPage2 = NumCol("Page")
    colPagePlus2 = NumCol("Info Page plus")
    ligEAN2 = NumLig(EAN, NumCol("EAN 13"))
    If Cells(ligEAN2, colPagePlus2) <> "" Then
        Pages1 = Cells(ligEAN2, colPage2).Value & "," & Cells(ligEAN2, colPagePlus2).Value
    Else
        Pages1 = Cells(ligEAN2, colPage2).Value
    End If

dans cette partie, je fais une erreur, j'ai pages1 deux fois... ça devrait être pages2 pour le fichier 2....

c'est ça qui faisait planter la fonction, parceque maintenant ça passe...