Combobox sans doublon avec additem et boucle do

Bonjour,

Je cherche une solution pour éviter les doublons dans mon combobox762 alimenté par critère et boucle do. d'une autre plage de cellule et non en direct pour une boucle for each.

j'ai trouvé des trucs avec boucle for each, mais je ne parviens pas à combiner le tout.

13logistique.xlsm (93.48 Ko)

Bonjour,

Remplacez la partie de code charger de remplir la combobox762 par celle-ci:

    Dim i As Integer
    Dim Sh As Worksheet
    Dim d As Object

    Set Sh = Sheets("MAGASIN")
    i = 1
    Set d = CreateObject("Scripting.Dictionary")
    For Each C In Sh.Range("G2:G" & Sh.Range("G" & Rows.Count).End(xlUp).Row)
        If C.Text <> "" Then d(C.Text) = ""
        If Not d.exists(C.Text) Then d(C.Text) = ""
    Next C
    If d.Count > 0 Then
        Me.ComboBox762.List = d.keys
        Me.ComboBox1.DropDown
    End If

Cdlt

Bonjour TONY83470, Arturo83,

Une autre version de la partie chargeant la combobox762

Dim i As Integer, Mag As Worksheet
i = 1
Set Mag = Worksheets("MAGASIN")
With LOGISTIQUE.ComboBox762
Do While Mag.Cells(i + 1, 14).Value <> ""
    .Value = Mag.Cells(i + 1, 7).Value
    If .ListIndex = -1 Then .AddItem Mag.Cells(i + 1, 7).Value
    i = i + 1
Loop
.ListIndex = -1
End With

N.B. : Pas très parlant l'appellation des combo et text Box

A+

Merci pour ces codes, je savais que je pouvais composé avec le do, la deuxième solution me semble ce qui me faut.

Oui mes combo sont pourris, je suis en brouillon encore et je les renomme au fur et à mesure, oui double boulot, mais je n'ai pas encore la version définitive de la mise en page.

Je vous tiens au courant si ça le fait.

Merci encore.

Bonjour Algo,

Ca marche impeccable.

Merci.

Rechercher des sujets similaires à "combobox doublon additem boucle"