Recherche l'interieur une combobox

Dim i As Integer
For i = 0 To ComboBox1.ListCount - 1
MsgBox ComboBox1.List(i)
Next i

Cliquez pour agrandir...

Dim i As Byte

For i = 0 To ComboBox1.ListCount - 1
    If ComboBox1.List(i) = ComboBox1.Value Then
        MsgBox 'Déjà présent.', , 'Attention...'
        ComboBox1.Value = ''
        Exit Sub
    End If
Next i
ComboBox1.AddItem ComboBox1.Value

Cliquez pour agrandir...

Private Sub UserForm_Initialize() 'à l'initialisation de l'UserForm
dim cel As Range 'déclare la variable cel
dim x as Integer 'déclare la variable x

'remplit la ComboBox1 sans doublon
'boucle sur toutes les cellules de la plage A1:A_dernière
For Each cel In Range('A1:A' & Range('A65536').End(xlUp).Row)
If ComboBox1.ListCount <> 0 Then 'condition : si la ComboBox1 n'est pas vide
For x = 0 To ComboBox1.ListCount - 1 'boucle sur tous les éléments de la ComboBox1
'si la valeur de la cellule égale un élément de la comboBox1
'va à la balise 'suite' (sans ajouter cet élément à la ComboBox1
If cel.Value = ComboBox1.List(x) Then GoTo suite
Next x 'prochain élément de la ComboBox1
End If 'fin de la condition
ComboBox1.AddItem cel.Value 'ajoute la valeur de la callule à la ComboBox1
suite: 'balise
Next cel 'prochaine cellule de la plage
End Sub

Cliquez pour agrandir...