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
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
