bonsoir

je voudrais creer mon premier combobox. Il servira a effectuer une recherche dans une liste. Voila ma premiere macro pour deja remplir une liste deroulante pour effectuer mon choix, et bien sur ca ne marche pas. Merci pour votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub ParMassif()
 
Dim cell As Range
Dim ParMassif As MSForms.ComboBox
 
 
 
'Boucle sur les cellules de la plage A2:A1870 pour
'alimenter le ComboBox
For Each cell In Sheet("Liste").Range("A2:A1870")
    Liste.ParMassif = cell
    'remplissage sans doublon
    If Sheet("Liste").ParMassif.ListIndex = -1 Then _
        Sheet("Liste").ParMassif.AddItem cell
Next cell
 
End Sub