Discussion :

[BluE SphynX]

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 :

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

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 !




le format de nombre de la cellule est standard




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




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

[ouskel'n'or]

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 :

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

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

ou sinon, utilise les fonctions d'Excel :

Code :

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

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

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

[alsimbad]

salut.tu peux essayer

Code :

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

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

[BluE SphynX]

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 !



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 :

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

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

Code :

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

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

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