Afficher des arrondis dans une listBox

Bonjour,

Je réalise le remplissage d'une listBox en additionnant une variable à une valeur initial. Cette variable peut être égale à 0,1 et dans ce cas, certaine valeur implémenté sont égale à 1,1000001 ou 2,9999989 par exemple(et malgré la fonction "round,"x",1)).

Comment faire pour afficher des valeurs exacte dans une listBox ?

D'avance merci,

Drics

Bonjour,

La fonction "Round" est-elle correctement écrite ?

Teste ceci

Code:

---

1 2 3 4 5 6 7 8

Sub test() Dim MaVariable As Double   MaVariable = 0.09999 + 0.1   MsgBox "MaVariable sans arrondi = " & MaVariable & Chr(10) & "MaVariable avec arrondi = " & Round(MaVariable, 1)   End Sub

---

merci pour ta réponse fring, je vais pas coller tous le code car c'est une usine à gaz.:aie:
Mais je te met comment sont récupéré les variables d'une chaine et la boucle pour la list.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

factor = Round(CSng(Replace(Right(facOffBase(0), numbersOfCaractere - 1), ".", ",")), 1) offset = Round(CSng(Replace(Left(facOffBase(1), numbersOfCaractere - 1), ".", ",")), 1) min = Round(CSng(Replace(Right(minMaxBase(1), numbersOfCaractere - 1), ".", ",")), 1) max = Round(CSng(Replace(Left(minMaxBase(2), numbersOfCaractere - 1), ".", ",")), 1)   If max <> 0 Then For j = 1 To ((max - offset) + 1) valueList.AddItem min min = min + factor Next End If

---