Microsoft 365 Recherche intuitif menu déroulant éviter l'affichage des doublons

[fredzertya]

Bonjour,


Dans un formulaire :

J'utilise l'auto-complétions intuitive et menu déroulant, avec le code ci-dessous, qui fonctionne très bien est ce qu'il y aurait une possibilité pour éviter les doublons dans le menu déroulant ?

Dim a()

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect([A2:A16], Target) Is Nothing And Target.Count = 1 Then
    a = Sheets("bd").Range("liste").Value
    Me.ComboBox1.List = a
    Me.ComboBox1.Height = Target.Height + 3
    Me.ComboBox1.Width = Target.Width
    Me.ComboBox1.Top = Target.Top
    Me.ComboBox1.Left = Target.Left
    Me.ComboBox1 = Target
    Me.ComboBox1.Visible = True
    Me.ComboBox1.Activate
  Else
    Me.ComboBox1.Visible = False
  End If
End Sub

Private Sub ComboBox1_Change()
ActiveCell.Value = Me.ComboBox1
End Sub

Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  Me.ComboBox1.List = a
  Me.ComboBox1.Activate
  Me.ComboBox1.DropDown
End Sub

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 13 Then ActiveCell.Offset(1).Select

End Sub

 

[youky(BJ)]

Bonjour, A tout hasard car sans fichier on ne peux tester
Bruno

Private Sub ComboBox1_Change()
If Me.ComboBox1.ListIndex=-1 then
ActiveCell.Value = Me.ComboBox1
End if
End Sub

 

[fredzertya]

Bonjour Bruno merci pour ton aide, je ne suis pas arrivé à intégrer ta solution voilà un exemple du fichier,

 

[JHA]

Bonjour à tous,

Avec une colonne supplémentaire pour gérer les doublons

JHA

 

[fredzertya]

Bonjour JHA, merci pour ton aide,

Le tableau est juste un exemple, dans le tableau original, c'est la base de donnée qui sert de liste en dynamique.

Il y a 17 colonnes dans la base de données pour 17 combo avec menu déroulant dans le formulaire de recherche.

Donc il n'est pas possible de faire des doublons de colonnes.

PF

 

[patricktoulon]

heu... bonsoir
il est ou le combobox dans ce fichier on gagne quoi si on le trouve