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:
Si je Met :
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
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:
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
Code:
combox1.additem liste
Espérant être compris.
Merci ,d'avance
Dernière édition: