Recherche sur combobox avec autocomplétion

Question

Bonjour, je vous explique mon problème, j'aimerais dans ma combo box rendre possible le fait de faire une recherche dans laquelle si je tape une lettre d'un des titre cela m'affiche tous les titres où je retrouve cette lettre. J'avais de mon coté pensé à créer une liste la récupérer à l'aide d'une cellule où je peux chercher de cette manière puis copier les valeurs de cette combobox dans la mienne comme cela :

Dim a()
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect([B1:B1], Target) Is Nothing And Target.Count = 1 Then
a = Application.Transpose(Sheets("Liste").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
Me.Combobox1.DropDown ' ouverture automatique au clic dans la cellule (optionel)
Else
Me.ListeTicket.Visible = False
End If

End Sub

Private Sub Combobox1_Change()
If Me.Combobox1 <> "" And IsError(Application.Match(Me.Combobox1, a, 0)) Then
Me.Combobox1.List = Filter(a, Me.Combobox1.Text, True, vbTextCompare)
Me.Combobox1.DropDown
Else
ActiveCell = Me.Combobox1
End If
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

Néanmoins je n'y arrive pas, si quelqu'un à une solution soit dans cette même optique soit d'une manière différente je suis preneur. (Ps : Avant de poser la question ici j'ai essayé de voir avec mon prof mais bon il n'a pas réussi non plus

ps2: je vous joint le fichier, j'aimerais faire ça dans le userform afficher ticket)

Merci d'avance de votre aide !

Invité · Answer

Il semble que vous ne soyez pas passé par la case lecture de la charte du forum Sinon vous auriez vu ceci Pour plus de lisibilité, utilisez le bouton &lt;/&gt; pour insérer vos codes VBA (et si possible aussi pour vos formules Excel). J'ai corrigé votre post, mais merci d'y faire attention SVP...