Problème mêmes valeurs dans liste déroulante

[kifran85]

Bonjour,

J'ai un problème, dans ma liste déroulante j'obtiens 2 fois la même valeur.

Veuillez trouver ci-joint une image explicative ainsi que son fichier Excel.

Cordialement,

 

[job75]

Re : Problème mêmes valeurs dans liste déroulante

Bonjour kifran85,

Faire une recherche sur liste validation sans doublon ou menu déroulant sans doublon.

A+

 

[job75]

Re : Problème mêmes valeurs dans liste déroulante

Re,

La macro de la ComboBox modifiée :

Private Sub ComboDpt_Change()
    Dim cell As Range, d As Object
    If ComboDpt <> "" Then
    ComboVille.Clear
        ComboNom.Clear
        TextBox2 = ""
        TextBox4 = ""
        TextBox7 = ""
        TextBox8 = ""
        TextBox9 = ""
        Label21.Caption = ""
       
      With Sheets("entreprises")
            [COLOR="Red"]Set d = CreateObject("Scripting.Dictionary")[/COLOR]
            For Each cell In .Range("H2:H" & .Range("C65536").End(xlUp).Row)
                If cell = ComboDpt Then d(cell.Offset(0, -1).Value) = cell.Offset(0, -1).Value
            Next
            ComboVille.List = d.Items
      End With
    End If
End Sub

A+

 

[kifran85]

Re : Problème mêmes valeurs dans liste déroulante

Merci à toi Job75, ça fonctionne.🙂

 

[Papou-net]

Re : Problème mêmes valeurs dans liste déroulante

Bonjour à tous,

Re : kifran85,

Si tes listes déroulantes ne sont pas trop longues, tu peux filtrer les doublons au remplissage de ces listes.

Ci-après un exemple pour les villes :

Private Sub ComboDpt_Change()
    Dim cell As Range[COLOR="Red"][B], Villes As String[/B][/COLOR]
    If ComboDpt <> "" Then
    ComboVille.Clear
        ComboNom.Clear
        Me.TextBox2 = ""
        Me.TextBox4 = ""
        Me.TextBox7 = ""
        Me.TextBox8 = ""
        Me.TextBox9 = ""
        Label21.Caption = ""
                  
      [COLOR="Red"][B]Villes = ""[/B][/COLOR]
      With Sheets("entreprises")
            For Each cell In .Range("H2:H" & .Range("C65536").End(xlUp).Row)
                [COLOR="Red"][B]If cell = ComboDpt And InStr(Villes, Range("G" & cell.Row)) = 0 Then
                    Villes = Villes & "*" & Range("G" & cell.Row)[/B][/COLOR]
                    Me.ComboVille.AddItem (cell.Offset(0, -1))
                End If
            Next
      End With
    End If
End Sub

Cordialement.

Oups, trop tard et moins élégant !
Merci job75 pour ton exemple d'utilisation de Dictionary, je vais penser à m'en servir à l'occasion.