XL 2019 Saisie Intuitive impossible

Nicolaroute

XLDnaute Nouveau
Bonjour à, tous,
Voilà!! j'ai presque terminé mon bon de commande, j'affine de plus en plus!
mais tout irait bien si je savais résoudre mon problème de saisie Intuitive ..
Après beaucoup de recherche ( chez Jacques en particulier), je n'arrive pas à trouver les bons codes..
Voici mon souci : dans mon userform Bon de commande, je sélectionne mon fournisseur, ces articles sont copiés dans une feuille SHWTri,
ensuite je n'arrive pas dans mon combobox à taper ma saisie intuitive :: erreur :
Private Sub CodeArt_Change()
If Me.CodeArt.ListIndex = -1 And IsError(Application.Match(Me.CodeArt, a, 0)) Then
Me.CodeArt.List = Filter(a, Me.CodeArt.Text, True, vbTextCompare) ' ici le souci!
Me.CodeArt.DropDown

Je vous joint mon classeur pour observation et solution!!
Merci votre aide et votre temps passé.
 

patricktoulon

XLDnaute Barbatruc
Bonjour
ben faut il encore savoir que la fonction filter ne fonctionne que sur un array a 1 dimension et que par conséquent t étant issu d'une colonne d'une feuille est un tableau a 2 dimensions (x lignes sur 1 colonne)
conclusion faut transposer
VB:
Me.CodeArt.List = Filter(Application.Transpose(T), Me.CodeArt.Text, True, vbTextCompare)