📜  Remplir un ComboBox sans doublon. - 无论代码示例

📅  最后修改于: 2022-03-11 14:59:15.202000             🧑  作者: Mango

代码示例1
Private Sub UserForm_Initialize()
    Dim j As Integer
    
    'Récupère les données de la colonne A...
    For j = 1 To Range("A65536").End(xlUp).Row
        ComboBox1 = Range("A" & j)
        '...et filtre les doublons
        If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("A" & j)
    Next j
End Sub