Discussion :

[karim19]

Bonjour

j' alimente une combobox à partir de conditions spécifiques, (sous format String); à partir d'une base, j'ai des doublons ( somme toute logique, ces critéres se retrouvent plusieurs fois). Yat il un code qui permet de
de comparer les données de la liste issue de la combobox, et supprimer les doublons

Ce début de code est -il approprié

Combobox.List ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
For Each Name In ComboBox5.List
                 Unique.Add ListIndex, CStr(Name)
            Next Name
 
      For Each Unique In ListIndex
         ComboBox5.AddItem Unique
      Next Unique

Voici mon code qui me permet d'alimenter celle-ci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim Cellule As Range, Name As Variant
Dim Unique As New Collection
 
    For Each Cellule In Range("MAT5").Columns(3).Cells
 
                If IsEmpty(Cellule) Then Exit Sub
                z = "SOUSCRIPTION"
                x = Application.WorksheetFunction.VLookup(Cellule(1, 1), Worksheets("TDB").Range("MAT3"), 3, False)
                y = Application.WorksheetFunction.VLookup(ComboBox6.Value, Worksheets("TDB").Range("MAT2"), 2, False)
 
                If x = NATURE.Text And _
                y = Cellule(1, -1) And _
                z = Cellule(1, 2) _
               Then ComboBox5.AddItem Cellule.Value
 
    Next Cellule

Cordialement

[mercatog]

Une proposition (à main levée, sans possibilité de tester)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Public Sub rempl()
Dim Unique As Collection
Dim Cellule As Range
Dim x, y, z
 
Set Unique = New Collection
On Error Resume Next
For Each Cellule In Range("MAT5").Columns(3).Cells
    If Cellule <> "" Then
        z = "SOUSCRIPTION"
        x = Application.WorksheetFunction.VLookup(Cellule(1, 1), Worksheets("TDB").Range("MAT3"), 3, False)
        y = Application.WorksheetFunction.VLookup(ComboBox6.Value, Worksheets("TDB").Range("MAT2"), 2, False)
        If x = NATURE.Text And y = Cellule(1, -1) And z = Cellule(1, 2) Then
            Unique.Add Cellule, CStr(Cellule)
        End If
    End If
Next Cellule
 
On Error GoTo 0
ComboBox5.Clear
For i = 1 To Unique.Count
    ComboBox5.AddItem Unique.Item(i)
Next i
 
End Sub

[karim19]

Bonjour, Mercatog

Merci de ta réponse et de ton aide, cela fonctionne parfaitement