Doublon combobox qui aliment listview

Bonjour à tous,

Je sais que le sujet est bien épuré sur le forum mais là je bloque sur un code pour supprimer les doublons de ma combobox. J'ai pas mal de procédure d'appel qui doivent me bloquer et je n'arrive pas à supprimer les doublons. Le code pour la récupération et tri alphabétique marchent bien mais celui des doublons me double les valeurs.

Voici le code que j'utilise :

For Each c In f.Range("C2:C" & Lr)
'alimentation combo'
Me.ComboBox4.AddItem c
'supp doublon'
If ComboBox4.ListIndex = -1 Then ComboBox4.AddItem c 'a mon avis le pb vient de là'
'tri combo'
With ComboBox4
For i = 0 To .ListCount - 1
For j = 0 To .ListCount - 1
If .List(i) < .List(j) Then
StrTemp = .List(i)
.List(i) = .List(j)
.List(j) = StrTemp
End If
Next j
Next i
End With

Next c

Dans la procédure d'appel j'ai les éléments suivants :

Dim f As Worksheet
Dim Lr As Long, ligne As Integer
Dim derligne As Integer
Set f = ThisWorkbook.Sheets("Basecovoit2")
Lr = f.Range("A" & Rows.Count).End(xlUp).Row
Dim j As Integer

Edit modo : code mis entre balises, merci d'y faire attention la prochaine fois

Désolé pour la redite du sujet et pour le code de débutant !

Merci pour le coup de main

Belle journée

Bonjour Dav43

Merci de mettre le code donné entre balises SVP

Le code à utiliser est celui-ci

For Each c In f.Range("C2:C" & Lr)
' Définit la valeur de la ComboBox
Me.ComboBox4.Value = C.Value
' Si valeur non trouvé = -1
If ComboBox4.ListIndex = -1 Then ComboBox4.AddItem c  ' On ajoute la valeur

A+

Merci beaucoup bruno et désolé pour les balises j'y veillerais la prochaine fois.

Il ya un pb avec le code j'ai une erreur d'exécution '"380" (impossible de définir la propriété value. Valeur de propriété non valide )

Bonne journée à tous

Re,

Merci de joindre une copie d'écran de la ligne surlignée avec le message de la boite de dialogue SVP

A+

re,

Je suis désolé mais je n 'ai pas de ligne qui se surligne dans mon code, le message d'erreur arrive que je lance le Userform avec F5. sorry Bruno mais je suis vraiment un profane !

Merci pour l'aide

Re,

j'avais déjà donné une valeur à ma combobox :

'Me.ComboBox4.Value = Ville' il n''y a plus le message d'erreur mais j'ai toujours les doublons !

Nouveau code :

For Each C In f.Range("C2:C" & Lr)
' Définit la valeur de la ComboBox'
Me.ComboBox4.Value = Ville
'Si valeur non trouvé = -1'
If ComboBox4.ListIndex = -1 Then Me.ComboBox4.AddItem C ' On ajoute la valeur'
'tri combo'
With ComboBox4
For i = 0 To .ListCount - 1
For j = 0 To .ListCount - 1
If .List(i) < .List(j) Then
StrTemp = .List(i)
.List(i) = .List(j)
.List(j) = StrTemp
End If
Next j
Next i
End With

Next C '

Merci à vous

Re,

Désolé mais vous ne comprenez rien, pour ma part je laisse tomber

Bonne chance

Re,

C'est pas faux!

Merci quand même.

Bonne fin de journée