valeur de varaible tableau dans Combobox (Résolu)

[Laguich]

Bonjour à tous,
Pierrejean m'a bien dépanné sur une macro, mais j'ai un autre souci, mon fichier étant en partagé, je ne peux créer de liste de choix donc il faut passer en combobox et userform. Ca c pret, seulement je ne sais pas comment sortir les references trouver dans la macro.
Voici le code:

  For n = LBound(tablo, 1) To UBound(tablo, 1)
  If tablo(n, 2) = Target.Value Then
   liste = liste & tablo(n, 3) & ","
  End If
  Next
  
  Set lookfor = book1.Sheets(nombase).Range("B" & Target.Row)   ' value to find
 
  If IsEmpty(liste) Then
  Target.Offset(0, 1).Value = "DSL - Peut être erreur de frappe"
  Exit Sub
  Else
 
liste = Left(liste, Len(liste) - 1)
End If
 If InStr(liste, ",") <> 0 Then
  With Target.Offset(0, 1).Validation
   .Delete
   .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:=liste
  End With
  Target.Offset(0, 1).Select
 Else
  With Target.Offset(0, 1).Validation
   .Delete
  End With

Si je Met :

combox1.additem liste

dans ma combobox s'affiche le resultat sur une seule ligne avec une virgule en separateur et pas le choix des 2 entrées.
Espérant être compris.
Merci ,d'avance

 

[Pierrot93]

Re : valeur de varaible tableau dans Combobox

Bonjour,

un petit exemple qui j'espère pourra t'aider :

Dim liste As String
liste = "123,456,789,"
ComboBox1.List = Split(liste, ",")

bonne journée
@+

 

[Laguich]

Re : valeur de varaible tableau dans Combobox

Merci Pierre, C'est exactement cela
Bonne journée