Alimenter une combobox

Bonjour,

Si vous pouviez m'aider

Je souhaiterai alimenter ma ComboBox1 en fonction de la colonne M (à partir de M11) sans doublon et sans"vide".

De plus elle doit se mettre à jour si je dois rajouter une ligne avec une valeur différente de celles déja écrite.

Merci

Bonsoir

Utilise ce code pour alimenter ta combobox sans doublons

Private Sub UserForm_Initialize()
Dim c As Range
Dim tablo As New Collection
On Error Resume Next
With Sheets("Feuil1")
For Each c In .Range("M11:M" & .Range("M" & .Rows.Count).End(xlUp).Row)
    tablo.Add c.Value, CStr(c.Value)
Next c
On Error GoTo 0
For Each Item In tablo
    Me.ComboBox1.AddItem Item
Next
End With
End Sub

Code à placer dans l'USF.

Si ok, clique sur le V vert à coté du bouton EDITER lors de ta réponse afin de clôturer le fil

Crdlt

yes ! c'est ça ! merci beaucoup

Rechercher des sujets similaires à "alimenter combobox"