Saisie Semi-Automatique

Bonjour,

Je suis en pleine création d'un petit fichier VBA où avec un "UserForm" je sors une combobox liée à un textbox. Mais voila dans ce combobox j'aimerai pouvoir juste écrire par exemple : BAR et qu'il me propose tout le/les mot(s) commençant par BAR. Je vous joins mon fichier.

Merci d'avance pour votre aide.

Bonjour,

Un exemple ... il suffit de taper un premier caractère

Dim choix()

Private Sub ComboBox1_Change()
Dim dico As Object, sh As Worksheet, choix
    Set sh = Feuil1
    choix = sh.Range("A2:A" & sh.Range("A" & Rows.Count).End(xlUp).Row).Value
    Set dico = CreateObject("Scripting.Dictionary")
    For Each Item In choix
        If UCase(Item) Like UCase(Me.ComboBox1) & "*" Then dico(Item) = ""
    Next
    Me.ComboBox1.List = dico.keys
    Me.ComboBox1.DropDown
    ActiveCell.Value = Me.ComboBox1
End Sub

J'ai pu adapter à mon code et cela fonctionne parfaitement !

Merci à toi !