Discussion :

[drics]

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

[fring]

Bonjour,

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

Teste ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[drics]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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