Liste Mondico avec 2 noms sur une ligne

[jlp035]

Bonjour à tous,
J'ai actuellement un problème avec un tbl mon dico.
Je liste le nom de différente marques dans la listBox2.
Si j'ai un seul nom sur la ligne cela fonctionne.
Si j'ai deux nom sur la ligne , seul le premier nom est pris en compte.
Comment faire pour prendre en compte les noms suivant ?
Exemple de ligne : Buderus ; Bosch ;

Merci par avance.

For L = 1 To UBound(Tbl, 1)
        If Len(Tbl(L, 11)) > 1 Then
            Pos = InStr(Tbl(L, 11), "_")
            If Pos > 0 Then X = Mid(Tbl(L, 11), Pos + 1)
            X = Trim(X)
            Pos = InStr(Tbl(L, 11), ";")
            If Pos > 0 Then X = Mid(Tbl(L, 11), 1, Pos - 1)
            X = Trim(X)
            Mondico(X) = X
        End If
    Next L
        
       Me.ListBox2.List = Mondico.Items

 

[BOISGONTIER]

Re : Liste Mondico avec 2 noms sur une ligne

Bonjour,

Sub essai()
  Set mondico = CreateObject("Scripting.Dictionary")
  For Each c In [A2:A2]
    a = Split(c, ";")
    For i = LBound(a) To UBound(a)
      If Trim(a(i)) <> "" Then tmp = Trim(a(i)): mondico(tmp) = ""
    Next
  Next
  [C2].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)
End Sub

JB