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