Microsoft 365 Liste déroulante recherche rapide

rubis54

XLDnaute Occasionnel
Bonjour à tous,
j'aurai besoin de votre aide pour ma recherche rapide.

Alors dans mon stock il y a une combobox qui me sert de recherche rapide. Alors lorsque je tape les deux premières lettres il m'affiche tous les articles mélangés qui débutent ou qui contiennent ces lettres.
J'aurai bien aimé qu'il ne m'affiche que les articles qui commencent par ces lettres.
Alors est ce que cela est possible ? je vous laisse le code, si cela suffit pour corrigé.

Private Sub ComboBox1_Change()
Dim idx As Variant
If Me.ComboBox1 <> "" Then
Valeurs = Application.Transpose(Range("Tableau2[Désignation]"))
idx = Application.Match(Me.ComboBox1, Valeurs, 0)
If IsError(idx) Then
Me.ComboBox1.List = Filter(Valeurs, Me.ComboBox1.Text, True, vbTextCompare)
Me.ComboBox1.DropDown
Else
Application.Goto Range("Tableau2").Rows(idx), True
End If
End If

End Sub


Merci d'avance à vous pour l'aide et vos réponses.

Cdt Rubis
 
Solution
1633970209225.png


Supprimer dans la feuille Stock :
  • Private Sub CommandButton1_Click()
  • Private Sub ComboBox1_Change

Discussions similaires