Microsoft 365 Combobox saisie intuitive

[eric72]

Bonsoir,
Je suis à la peine avec mon userform j'aimerais dans la combobox "recherche client", en tapant un "A" que les clients commencant par A apparaissent mais après multiples recherches je ne trouve pas mon bonheur.
l'un d'entre vous aurait il une idée sur le sujet?
Merci beaucoup d'avance.
Eric

 

[Dranreb]

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.

 

[eric72]

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?

 

[eric72]

Re bonsoir

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

 

[BOISGONTIER]

Bonjour,

Recherche intuitive sur toutes les colonnes.

Boisgontier

 

[eric72]

Super merci beaucoup pour l’efficacité
Resoluuuu