Ajout / comparer listebox à combobox

bonjour

dabord merci à tous ceux qui allimente ce merveilleux site d’excellente matière et contenu, nouveau dans ce site j'ai une petite question.

dans une user forme j'ai une combobox et une listbox, le combobox est allimenter par des valeur au chargement de la forme, la listebox est vide et elle sera allimenter par de la valeur selectionnée dans la combobox via deux boutons ajouter et suprimer avec un controle si la valeur à ajouter à la liste box existe déja donc un msgbox et beep sera executé sinon la valeur sera ajouter. j'ai essayer avec ce code sans résultat

If lstetatgen.ListIndex = -1 Then
lstetatgen.AddItem etatgen.Value
Else
For i = 0 To etatgen.ListCount - 1
    For j = 0 To lstetatgen.ListCount - 1
        If i = j Then
        Beep
        Else
        lstetatgen.AddItem etatgen.Value
        Exit Sub
        End If
    Next
Next
End If

merci d'avance pour votre aide

Problèeme ici

If i = j Then

j'ai essayer d'optimiser le code mais toujours j'arrive pas à controler la double insertion d'une valeur

If etatgen.Value <> vbNullString Then
    For j = 0 To lstetatgen.ListCount
        If etatgen.Value = j Then
        Beep
        Else
        lstetatgen.AddItem etatgen.Value
       Exit Sub
        End If
    Next

End If

j'ai essayer d'editer le code pour afficher la valeur de j interpreté par le code et j'ai trouvé '0' donc le problème est ici, la question est comment recuperer les valeurs dans la listebox?

merci

bonjour

c'est bon j'ai trouver une solution via la modification du code

existant = 0

If etatgen.Value = vbNullString Then
    Beep
    Exit Sub
Else
Dim i As Integer
    For i = 0 To (lstetatgen.ListCount - 1)
           If lstetatgen.List(i) = etatgen.Value Then
            Beep
            existant = 1
        Else

        End If

    Next i

End If
If existant = 1 Then
Else
lstetatgen.AddItem etatgen.Value
End If
Exit Sub

merci