Export variables VBA vers feuille Excel, valeur arrondi

Bonjour tlm,

J'ai un petit soucis dont j'aimerais bien connaitre l'explication, car je n'arrive pas à mettre la main sur la boulette.
Je précise que je suis débutant en VBA-Excel et que c'est mon premier developpement sur Excel.

Mon prog permet de calculer une épaisseur de tube a un diametre donné suivant des conditions de service définis.
J'ai un UserForm principal, des tableaux stockés dans des modules, etc ... bref tous est exécuté en VBA avant d'être exporté dans un nouveau classeur a partir d'un des models stocké dans le classeur avec le code.

Le problème c'est que dans le document final, les valeurs exportées du VBA qui ont une décimale sont arrondies et avec plus de décimales qu'à l'origine (voir capture). Les chiffre entier ne posent pas de problème

la commande pour exporter est de type suivant :

Code:

---

Workbooks(nClas2).Worksheets(NomSht).Cells(22, 16) = NomVariable

---

J'ai également testé avec un debug.print et un msgbox avant chaque ligne d'export et VBA me retourne les bonnes valeurs !
De même, j'ai forcé le format et (re)converti les données au passage, essayé un export dans une nouvelle feuille vierge (plutot qu'un model) et le résultat est le même !


http://img207.imageshack.us/img207/7...nexcel1gw8.png

le format de nombre de la cellule est standard

http://img205.imageshack.us/img205/2...nexcel2jo9.png


la valeur de 219,1 est donnée par une liste déroulante, donc elle n'a subie aucune modification par calcul.

http://img212.imageshack.us/img212/9...nexcel3kj7.png


je n'arrive pas a m'expliquer ce problème, je suppose que j'ai dû modifier un paramètre par inadvertance.
Si quelqu'un a une idée ou une astuce, je le remerci d'avance car là je séche et vue que je souhaite réutiliser ces valeurs cela me plairait beaucoup mieu.

merci

Si ce n'est qu'un problème de format, formate ta colonne en nombre avec le nombre de décimales que tu désires. Format -> Cellule -> Nombre
Si c'est un pb d'arrondi,

Code:

---

1 2	Valeur = 125.125698 Cells(NoLigne, NoCol).value = Int(Valeur * 100)/100

---

ou sinon, utilise les fonctions d'Excel :

Code:

---

Cells(NoLigne, NoCol).value = Application.WorksheetFunction.RoundUp(125.2365, 2)

---

Pour la syntaxe, regarde à Arrondi.sup dans l'aide d'Excel.

salut.tu peux essayer

Code:

---

1 2 3

Workbooks(nClas2).Worksheets(NomSht).Cells(22, 16) = round(NomVariable,2)

---

Merci pour vos réponses.

Comme ça m'a pris un le choux ces d'arrondi, j'ai mis de coté puis j'ai fais des essais histoire d'y voir plus clair et de comprendre. Et j'ai enfin trouvé ma bourde !


http://img153.imageshack.us/img153/7...2excel1er3.png
Donc j'ai fais une simple combobox, pour ecrire une valeur numérique dans des cellules et constater, les deux formats utilisés sont le Single et Double.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Option Explicit Dim variaB As Single   Private Sub ComboBox1_Change() variaB = ComboBox1.Value End Sub   Private Sub CommandButton1_Click() Cells(1, 1) = CSng(variaB) End Sub   Private Sub CommandButton2_Click() Cells(2, 1) = CSng(variaB) End Sub   Private Sub UserForm_Initialize() ComboBox1.AddItem (0.85) ComboBox1.AddItem (0.7) End Sub

---

http://img153.imageshack.us/img153/7...2excel2vf6.png

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Option Explicit Dim variaB As Double   Private Sub ComboBox1_Change() variaB = ComboBox1.Value End Sub   Private Sub CommandButton1_Click() Cells(1, 1) = CDbl(variaB) End Sub   Private Sub CommandButton2_Click() Cells(2, 1) = CDbl(variaB) End Sub   Private Sub UserForm_Initialize() ComboBox1.AddItem (0.85) ComboBox1.AddItem (0.7) End Sub

---

http://img153.imageshack.us/img153/6...2excel3xg6.png


D'après ce que l'on ma expliqué, c'est lié à la manière dont la valeur numérique est codé en mémoire, et également au fait que les cellules d'une feuille Excel prennent un chiffre codé en Double de manière native et elles acceptent les numériques en Single moyenant une conversion de ce dernier (et la conversion donne les arrondis, parfois au dessus et parfois en dessous). Truc de fou, bref ça ressemble bien a l'erreur du débutant :mrgreen: