Microsoft 365 Combobox saisie intuitive

Bonjour.
Changer la propriété MatchEntry de la ComboBox et arrangez vous pour que les noms soient classés par ordre alpha dans la liste. Si vous tapez une 1ère lettre d'un nom y existant, il sera provisoirement complété, et si vous cliquez sur le bouton, la liste sera affichée à partir de ce nom.

je ne comprends pas j'ai trouvé ce code:

Option Compare Text
Dim f, ligneEnreg, choix1()
Private Sub UserForm_Initialize()
Set f = Sheets("SAISIE")
choix1 = Application.Transpose(f.Range("F2:F" & f.[F165000].End(xlUp).Row).Value)
Me.ComboBox1.List = choix1
Me.ComboBox1.SetFocus
End Sub
Private Sub ChoixSociete_Change()
If Me.ComboBox1.ListIndex = -1 And IsError(Application.Match(Me.ComboBox1, choix1, 0)) Then
Me.ComboBox1.List = Filter(choix1, Me.ComboBox1.Text, True, vbTextCompare)
Me.ComboBox1.DropDown
Else
ComboBox1_click
End If
End Sub

sur le fichier ci-joint et quand je le met dans mon vba ca ne fait pas du tout le meme résultat, savez vous pourquoi?
Quelle différence y a t il entre les 2?

Re bonsoir

J'ai trouvé Résoluuuuuu
Merci et bonne soirée
Eric

Bonjour,

Recherche intuitive sur toutes les colonnes.




Boisgontier

Super merci beaucoup pour l’efficacité
Resoluuuu