Bonjour,
Dans mon userform, je souhaite afficher le un sigle dans un textbox.
Ce sigle dépend de la valeur d'une combobox.
Je pensais utiliser une des méthodes de Boisgontier
mais je bloque
Merci de votre aide
Voici un fichier pour que cela soit plus clair
Dans mon userform, je souhaite afficher le un sigle dans un textbox.
Ce sigle dépend de la valeur d'une combobox.
Je pensais utiliser une des méthodes de Boisgontier
mais je bloque
Code:
Set mondico = CreateObject("Scripting.Dictionary")
For i = 1 To Range("sigle").Count
If Range("prestation")(i) = Me.Combobox1 Then
temp = Range("sigle")(i)
If Not mondico.Exists(temp) Then mondico.Add temp, temp
End If
Next i
Me.combobox.1.text = mondico.items
Merci de votre aide
Voici un fichier pour que cela soit plus clair