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

fredzertya

XLDnaute Nouveau
Bonjour,


Dans un formulaire :

1607686403683.png

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 ?


VB:
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
 

fredzertya

XLDnaute Nouveau
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
 

Discussions similaires