Macro pour filtre personalisé

[phil]

Bonjour,
J'ai écrit la macro suivante, afin de faire un fitre personalisé, qui filtre toutes les lignes qui contienent les caractères saisis par une inputbox
(la colonne filtrée est paramétré en dur pour l'exemple, ici colonne 9) :

Sub Filtre_Perso9()
critere = CStr("*" & InputBox("Entrer le critère du filtre") & "*")

Selection.AutoFilter Field:=9, Criteria1:=critere, Operator:=xlAnd
Range("A1").Select

End Sub


Jusque là, tout va bien. Le seul problème, c'est que si les caractères saisis sont des chiffres, ça ne marche plus ! Excel n'affiche aucune ligne.
Si quelqu'un a une idée, ça serait gentil, merci !

Phil

 

[sousou]

Le problème est q'un nombre n'est pas une chaine de caractère.
Pour retrouver un chiffre dans un nombre, il faut transformer ce nombre en chaine de caractère. du genre( texte()).

Il n'est pas certain que cela de facilite la vie