Pour remplir une combobox sans doublon et simplement, placer ce code dans le code de l'userform concerné
Dans l'exemple, il faut remplir la combobox1 avec les données de la colonne A de la feuille "Base".
_____________________________________________________________
Merci à Spitnolan08 et Staple1600 pour leur participation
Dans l'exemple, il faut remplir la combobox1 avec les données de la colonne A de la feuille "Base".
Code:
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To Sheets("Base").Range("A65536").End(xlUp).Row
ComboBox1 = Sheets("Base").Range("A" & i)
If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Sheets("Base").Range("A" & i)
Next i
End Sub
Merci à Spitnolan08 et Staple1600 pour leur participation
Dernière modification par un modérateur: