Aide filtre en VBA

Bonjours tous le monde.

Actuellement j'utilise des filtres VBA dans un de mais fichier et je viens de voir qu'il y avait un cas pour lequel cela ne marché pas.

Je m'explique, prenons cette exemple tout simple.

dim va1,va2

va1 = Range("A7").Value

va2 = Range("z1").Value

Range("A1").Select

Range(Selection, Selection.End(xlToRight)).Select

Range(Selection, Selection.End(xlDown)).Select

Range("A1").AutoFilter Field:=2, Criteria1:=va1

Si en A7 et z1 j'écris des chiffres entier(1;2;5....), sa marche. Si j'écris des chiffres à virgule sa ne marche plus car en VBA dans les filtres il ne comprend pas les ",". Pour parer à se problème j'utilise la formule (=REMPLACER(A7;CHERCHE(",";A7);1;".") qui me permet de transformer la "," en "." sauf que j'avais pas remarqué que cette formule ne marche pas pour '0,00' par exemple.

Si il y a un "0" derrière la virgule sa ne marche plus, malheureusement j'ai besoin de ce 0.

Si quelqu'un à une solution pour moi je suis preneur ?

Bonsoir Yoda le forum

essayes peut-être ceci

a+

Papou

dim va1#,va2#

PS: Si pas cela met un bout de fichier avec les explications dedans,et on va te faire cela.