Bonjour à tous et toutes,
Je bute sur ce code qui me sert à afficher via un filtre automatique le contenu d'un textbox.
Je voudrai que le filtre m'affiche les données même si le contenu de ma textbox n'est qu'une partie des cellules de ma colonne désignation. Je n'arrive pas à placer le "*" en automatique dans le code.
J'espère avoir été clair dans mon explication.
Merci de votre aide
If desi <> "" Then 'desi =nom de ma textbox
des = desi.Value 'des est le nom de ma colonne où sont stockées mes désignations dans la feuil stock
critere = critere & "(stock!f2=""" & des & """)* "
Sheets("Cachée").Range("f5") = des ' cachée est ma feuille où les données du filtre auto se déversent
critere = "=" & critere & "1"
Sheets("Cachée").Range("A2").Value = critere
Sheets("stock").Range("stock!A15000").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("cachée!A1:A2"), CopyToRange:=Range("cachée!A44"), Unique:= _
False
Unload Me
Usfconsul.Show
Je bute sur ce code qui me sert à afficher via un filtre automatique le contenu d'un textbox.
Je voudrai que le filtre m'affiche les données même si le contenu de ma textbox n'est qu'une partie des cellules de ma colonne désignation. Je n'arrive pas à placer le "*" en automatique dans le code.
J'espère avoir été clair dans mon explication.
Merci de votre aide
If desi <> "" Then 'desi =nom de ma textbox
des = desi.Value 'des est le nom de ma colonne où sont stockées mes désignations dans la feuil stock
critere = critere & "(stock!f2=""" & des & """)* "
Sheets("Cachée").Range("f5") = des ' cachée est ma feuille où les données du filtre auto se déversent
critere = "=" & critere & "1"
Sheets("Cachée").Range("A2").Value = critere
Sheets("stock").Range("stock!A15000").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("cachée!A1:A2"), CopyToRange:=Range("cachée!A44"), Unique:= _
False
Unload Me
Usfconsul.Show