Discussion :

[Vincent32]

Chers tous,

Un détail m'échappe. Pourquoi lorsque je fais :

Code :

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

1
2
3
4
Dim X As Single
For X = 20 To 40 Step 0.02
    Range("D" & Lig) = X
Next X

Les valeurs renvoyées dans les cellules correspondent à : 20.0200004577636 au lieu de 20.02 ?

Comment faire pour remédier à ce problème ?

Pour info j'ai une solution qui ne me plaît que moyennement :

Code :

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

1
2
3
4
Dim X As Integer
For X = 2000 To 4000 Step 2
    Range("D" & Lig) = X/100
Next X

Merci de votre aide, belle soirée à tous

[cerede2000]

Bonjour à toi,

Utilise un double

Code :

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

Dim X As Double

[Marc-L]

Bonjour, bonjour !

En passant vite fait, tester aussi le code de cette discussion …

Voilà, voilà !

______________________________________________________________________________________________________

Je suis Paris, Charlie, Bruxelles, …

[Vincent32]

@cerede2000 merci de ta réponse cependant j'ai le même problème : 22.3599999999999 au lieu de 22.36

@Marc-L merci de ton aide. Si je comprends bien il n'y a pas grand chose à faire, c'est lié à excel qui arrondi un peu comme il veut. Dès lors ma solution du integer semble la plus raisonnable, non ?

[joe.levrai]

Bonjour,

si tu veux vraiment passer par du Single ou du Double, tu peux éventuellement effectuer un arrondi ou une troncature pour n'obtenir que 2 digits

[eriiic]

Bonjour,

Tu peux même mettre As Long vu que les Integer sont converti en Long par vba
Sinon tu as Currency qui travaille avec des entiers à virgule fixe (oui, c'est bien ça) qui ne présente pas cet inconvénient. Plus obligé de diviser par 100
eric

[Marc-L]

@Marc-L Dès lors ma solution du integer semble la plus raisonnable, non ?

Non pas du tout car le résultat est faux avec un type entier !

Comme pourtant démontré dans mon lien puis re-signalé par eriiic, le type de donnée Currency est le plus approprié !
Et du reste dans l'affichage de mon lien il n'y a pas de signe monétaire :
veille à être clair comme de l'eau de roche dans tes explications !

J'en déduis donc la valeur est réaffectée dans une cellule, plusieurs possibilités mais je me limite à deux :

• Utiliser en interne le type Currency pour les calculs puis
au moment de l'affectation dans la cellule convertir la valeur via la fonction VBA CDbl …

• Utiliser la fonction de feuille de calculs d'Excel ARRONDI en VBA (Application.Round)
et non la fonction VBA Round (sauf pour un arrondi à la norme anglo-saxonne) :

Cells(Lig, 4).Value = Application.Round(X, 2) …

______________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Vincent32]

Merci pour ces clarifications Marc-L !

Un petit bémol cependant : je pensais être clair dans mes explications et je regrette que tu n'es pas compris que la valeur était ensuite écrite dans une cellule. En effet le bout de code donné me semblait limpide :

Range("D" & Lig) = X

Concernant l'utilisation du type currency il s'agit de l'option que j'ai retenu et pour pallier à l'unité j'ai utilisé le code suivant

Code :

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

Range(Cell_2).NumberFormat = "0.00"

cependant je pense que la solution que tu me proposes

Code :

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

Application.Round(X, 2)

semble beaucoup plus rigoureuse aussi je te remercie énormément de cette proposition.

Je te souhaite une belle journée