Liste déroulante intuitive (auto-complétion)

Bonjour,

Merci d'avoir pris de votre temps pour me répondre, lors de mes précédentes recherches sur le net je suis souvent tombé sur vos propositions, vos réponses et je sais que ce que vos solutions fonctionnent, cependant je n'arrive pas à mettre en forme les codes et solutions que vous proposé.

Dans le code suivant, dois-je remplacer [A2:A16] par [Feuille2.A2:A362] ?

Et ma cellule en L2 correspond à quoi dans ce code ?

J'ai vraiment du mal à comprendre (j'ai pourtant compris certains points), lorsque j'aurais du temps je vais m'y mettre franchement. Je reviens la semaine prochaine vous dire ce qu'il en résulte, je vais voir si je peux me dégagé une demi-journée ce week-end.

Merci de bien vouloir m'aidé.

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
'If Target <> "" Then SendKeys "{esc}"
'Me.ComboBox1.DropDown ' ouverture automatique au clic dans la cellule (optionel)
Else
Me.ComboBox1.Visible = False
End If
End Sub

Private Sub ComboBox1_Change()
If Me.ComboBox1 <> "" Then
Set d1 = CreateObject("Scripting.Dictionary")
tmp = UCase(Me.ComboBox1) & "*"
For Each c In a
If UCase(c) Like tmp Then d1(c) = ""
Next c
Me.ComboBox1.List = d1.keys
Me.ComboBox1.DropDown
End If
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

Bonjour Boisgontier Jacques,

Je mets un lien pour vous aider à visualiser, pour indication la cellule L2 qui doit contenir la liste avec autocomplétion qui se trouve sur la feuille Calcul et la feuille Liste des agents qui contient la plage de données (A2:A362).

https://www.cjoint.com/c/HGzbRucdzox

Si il vous faut plus de détails, dîtes le moi j'en rajouterais selon ce que vous me demanderais.

Merci.