Problème type variable

Chers tous,

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

Code:

---

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:

---

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

Bonjour à toi,

Utilise un double :)

Code:

---

Dim X As Double

---

Bonjour, bonjour !

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

Voilà, voilà !

______________________________________________________________________________________________________

Je suis Paris, Charlie, Bruxelles, …

@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 ?

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

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

@joe.levrai : Merci de ta réponse. C'est une possibilité mais le but est d'épurer mon code. Je ne pense pas que ca aille dans ma philosophie même si cette option pourrait convenir.

@eriiic : Merci de ta contribution. La solution currency me plait beaucoup. cependant elle indique une unité (l'euro par défaut). As tu une idée pour s'affranchir de cette unité tout en travaillant en currency ?

Citation:

---

Envoyé par Vincent32

@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) …

______________________________________________________________________________________________________

:fleche: Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

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 :

Citation:

---

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:

---

Range(Cell_2).NumberFormat = "0.00"

---

cependant je pense que la solution que tu me proposes

Code:

---

Application.Round(X, 2)

---

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

Je te souhaite une belle journée

Bonjour,

A mon avis Cells(lig, 1).Value = CDbl(i) est suffisant.
Double est le type des cellules et avec i As Currency l'arrondi sert à rien puisque le nombre n'a pas ces erreurs de perte de précision.

@Marc-L : qu'entends-tu par :

Citation:

---

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)

---

Apparemment une différence avec la fonction feuille mais laquelle ?
A noter qu'il existe aussi RoundDown() et RoundUp() (se dépêcher avant qu'il ne soit interdit à la vente)

Citation:

---

RoundUp() (se dépêcher avant qu'il ne soit interdit à la vente)

---

:ptdr:

Citation:

---

Envoyé par eriiic

A mon avis Cells(lig, 1).Value = CDbl(i) est suffisant.

---

J'éclaicis pour ne avoir de signe monétaire dans la cellule : soit utilisation d'une variable Currency et fonction CDbl,
soit comme le code initial une variable en Double ou Single et la fonction Application.Round … :roll:

Citation:

---

Envoyé par eriiic

Apparemment une différence avec la fonction feuille mais laquelle ?

---

Code:

---

1 2 3 4 5

Sub Demo() MsgBox "Arrondir 2,5 à l'entier par exemple :" & vbLf & vbLf & _ "Excel : " & [ROUND(2.5,0)] & vbLf & vbLf & _ "VBA : " & Round(2.5, 0) & " !" End Sub

---

Le bougre !
Bon à savoir en effet.

Du coup je me suis penché dessus d'un peu plus près. Tester :

Code:

---

1 2 3

MsgBox "Arrondir 2,5 et 3.5 à l'entier par exemple :" & vbLf & vbLf & _ "VBA : " & Round(2.5, 0) & " !" & vbLf & vbLf & _ "VBA : " & Round(3.5, 0) & " !"

---

On obtient 2 et 4.
Il semble pratiquer l'arrondi bancaire qui prend un arrondi si c'est pair et l'autre si c'est impair.
Au lieu que les déficits se cumulent ils se neutralisent les uns les autres, ce qui peut être intéressant dans certains cas.
eric