Bonjour,
j'essaye de remplir une combobox sans doublons, j'ai ce code qui m'affcihe tout les elements de la colonne A de ma feuille, mais je veux supprimer les duoublons:
Private Sub CommandButton1_Click()
Dim ws_Liste_Affect As Worksheet
Set ws_Liste_Affect = ActiveWorkbook.Worksheets("affectation")
Fin_Liste_Affect = ws_Liste_Affect.Range("A65530").End(xlUp).Row
For i = 2 To Fin_Liste_Affect
UserForm_SDE.ComboBox_Affect.AddItem ws_Liste_Affect.Range("A" & i)
Next
End Sub
Merci pour vos propositions
j'essaye de remplir une combobox sans doublons, j'ai ce code qui m'affcihe tout les elements de la colonne A de ma feuille, mais je veux supprimer les duoublons:
Private Sub CommandButton1_Click()
Dim ws_Liste_Affect As Worksheet
Set ws_Liste_Affect = ActiveWorkbook.Worksheets("affectation")
Fin_Liste_Affect = ws_Liste_Affect.Range("A65530").End(xlUp).Row
For i = 2 To Fin_Liste_Affect
UserForm_SDE.ComboBox_Affect.AddItem ws_Liste_Affect.Range("A" & i)
Next
End Sub
Merci pour vos propositions