Tri avec Autofilter et nombre après la virgule

Bonjour,

J'ai créer un code qui permet de trier une liste dont un des critères est un chiffre avec une virgule.

Cette variable est créé grâce à ce code :

 LongueurBarre = Sheets("Sortie").Cells(2, a + 1) / 1000

Dans mon cas j'ai LongeurBarre=0.9

Ensuite, j'affecte la variable à un tri grâce à ce code :

 Sheets("Longueur Barre").Range("$A$1:$K$" & nbcode).AutoFilter field:=8, Criteria1:=Array("", Round(LongueurBarre, 1))

Et là, la valeur rentré dans le filtre est : 0.899999976158142

Malgré des tentatives de recherche et d'arrondi forcer cela ne change rien.

Auriez-vous des pistes ?

En vous remerciant.

Bonsoir,

De quel type avez vous définit pour votre variable ?

De plus, perso, je ferais plutôt

 LongueurBarre = Round(Sheets("Sortie").Cells(2, a + 1) / 1000,1)

A+

la variable LongueurBarre est défini en tant que Single. J'avais essayé avec Currency mais comme son nom l'indique c'est une monnaie et une variable Integer me donnait 1 car nombre entier.

Ma variable LongueurBarre est bonne donc je ne pense pas que l'erreur vient de là et ma valeur en Cells(2,a+1) vaut 900 tout rond.

Je vais essayer malgré tout.

Je vous remercie de votre réponse,

A+

Je pensais avoir trouvé une solution en mettant que les valeurs afficher doivent être comprises entre 0.85 et 0.95 (environ). Mais aucune valeur ne s'affichent automatiquement.
Je suis obligé de revalider dans le tri de colonnes manuellement pour que cela fonctionne.

Quelqu'un aurait une idée du problème ?

Voici le code que j'utilise :

    .AutoFilter Field:=8, Criteria1:=Array("", ">=" & (LongueurBarre - 0.05)), Operator:=xlAnd, Criteria2:=Array("", "<=" & (LongueurBarre + 0.05))