XL 2016 Macro pour appel de valeurs

sousou à dit:

bonjour
J'ai repris un bout de ton code et l'ai modifié.
Une manière de gérer les listbox et les combobox avec match
Private Sub UserForm_Initialize()

Dim ligne As Long
ligne = 3

While Sheets("BDD").Range("B" & ligne).Value <> ""
ComboBox1.AddItem Sheets("BDD").Range("B" & ligne).Value
ligne = ligne + 1
ReDim matable(ComboBox1.ListCount)
matable(ComboBox1.ListCount - 1) = ComboBox1.List(ComboBox1.ListCount - 1)
DoEvents
Wend


End Sub

Private Sub CommandButton1_Click()
Dim nom As String, num_ligne As Long, ligne As Long
lg = Application.Match(ComboBox1.Value, matable)
If IsError(lg) Then MsgBox "erreur"

Cliquez pour agrandir...