ComboBox sans doublons...?

Bonjour tout le monde,

J'ai en colonne A des dates.

Une ComboBox "cbo_DateMin" qui récupère ces dates.

et une condition qui est sensée gérer les doublons.

Mon code !

Private Sub UserForm_Initialize()
Dim f As Worksheet
Dim i As Integer
Dim Lr As Integer

Set f = ThisWorkbook.Sheets("C.MUTUEL")
   With f
   Lr = .Range("A" & Rows.Count).End(xlUp).Row - 1
   For i = 5 To Lr
[Surligner]      If Me.cbo_DateMin.ListIndex = -1 Then
      Me.cbo_DateMin.AddItem Range("A" & i).Value[/Surligner]
      End If
      Me.cbo_DateMax.AddItem Range("A" & i).Value
      Me.cbo_Libelle.AddItem Range("B" & i).Value
      Me.cbo_Paiement.AddItem Range("C" & i).Value
      Me.cbo_Debit.AddItem Range("D" & i).Value
      Me.cbo_Credit.AddItem Range("E" & i).Value
   Next i

   End With

Le soucis, c'est que ça ne filtre pas les doublons...

Peut-être parce qu'il s'agit de Dates...

J'ai bien essayé en remplaçant ".Value" par ".Text" mais ça ne fonctionne pas plus...

Avez vous une idée pour m'aider à résoudre ce problème ?

Salut Atlonia,

Sa a fonctionné de mon côté mais j'ai pas utilisé le Range("A" & i).Value ou Range("A" & i).Text mais le Cells(x,1)

Cf le code ci-dessous et le fichier ci-joint :

Private Sub Userform_initialize()
Dim x As Long
Me.ComboBox1.Clear
For x = 5 To Sheets("C.MUTUEL").Range("A" & Rows.Count).End(xlUp).Row
    Me.ComboBox1 = Cells(x, 1)
    If ComboBox1.ListIndex = -1 Then Me.ComboBox1.AddItem Cells(x, 1)
Next
End Sub

Restant à ta dispo

Bonjour

Combobow sans doublon a Voir

Private Sub UserForm_Initialize()
Nlig = Cells(Rows.Count, 1).End(xlUp).Row
With ComboBox1
    .Clear
    For L = 2 To Nlig
      .Value = Cells(L, 1).Value
        If .ListIndex = -1 Then
           .AddItem Cells(L, 1).Value
        End If
    Next L
  .ListIndex = -1
End With
End Sub

Private Sub ComboBox1_Change()
 If ComboBox1.ListIndex = -1 Then Exit Sub
 ' Code
End Sub

A+

Maurice

Merci Juice,

Ta solution fonctionne parfaitement...

Bonjour archer,

Toujours là à ce que je vois...

Heureux de te retrouver.

Je n'ai pas encore eu le temps de tester ton code, je vais m'en occuper un peu plus tard dans la soirée, et je reviens te dire ce qu'il en est.

Merci d'être toujours présent pour apporter ton aide...

bonsoir archer,

Je viens d'adapter ton code à mes ComboBox, il fonctionne très bien également...

il me reste à régler la suppression des lignes vides pour 2 d'entre elles.

Je vais mettre un autre post sur le sujet.

Merci encore pour ton aide...