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.

Bonjour,

Merci pour votre réponse et votre aide.
J'ai un soucis car lorsque je clic sur la combobox, j'arrive à insérer des lettres mais ça s'arrête là, j'essaie de comprendre mais je peine sérieusement.
Je vais me penché plus sérieusement sur le fichier que vous m'avez mis en pièce-jointe un peu plus tard et je reviendrais dans 1 ou 2 jours vous dire ce qu'il en résulte (actuellement je n'ai pas le temps, de-plus je suis sous Open Office Calc, je switch selon le bureau où l'on m'affecte), j'essaie d'adapté les solutions que je trouve sur internet ou que l'on me propose mais ce n'est pas évident pour moi, j'ai trop de lacunes et il y a beaucoup de manips que je n'arrive pas à effectué.

Merci :)

Désolé sur Calc ça ne marche pas (la combobox semble ne pas être active, lorsque je sélectionne la cellule L2 il y a juste les petits carrés pour redimensionné la taille de la combobox), j'ai pas encore pu testé sur Excel car pour le moment je suis sur Calc, mais merci de l'aide.

Bonjour,

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.

Bonjour,

Merci de me répondre et de m'aidé.
Je n'ai pas encore testé ta méthode car je n'ai pas trop de temps actuellement, j'ai jeté un rapide coup d’œil et j'avais déjà une liste déroulante avec la fonction DECALER, cependant je crois que ta méthode est plus complexe et complète que celle que j'ai, donc je vais testé tout cela un peu plus tard et je reviendrais dans quelques jours te dire ce qu'il en advient.

Merci :)

Salut,

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.