Discussion :

[erlerwade]

Bonjour Forum
Je travaille sous excel-VBA 2000.Je voudrai changer le format d'une cellule le mettre 3 chiffre aprés la virgule et ensuite utiliser le nombre à 3 chiffre aprés la virgule pour faire mes calculs.Sauf que le macro que je fais met le format de la cellule à 3 chiffre apres la virgule mais ne l'utilise pas pour les calculs il utilise plutot le nombre non arrondi à 3 chiffre. Voila le macros que j'ai fait:

Code :

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

1
2
3
4
5
6
7
Sub Macro1()
 
    Range("D4").Select   ' dans D4 j'ai mis la valeur 1.444444
   Selection.NumberFormat = "0.000"
   Range("A1") = Range("D4").Value * 1
 
End Sub

Dans range A1 je m'attendai a la valeur: 1,444
non pas a la valeur 1,444444
Et pourtat la cellule D4 est bien arrondi quand j'execute le macro à 1,444

Merci d'avance et Vive le Forum

[Orhleil]

Salut à toi,
En fait, quand tu demandes à Excel le format "0,000" pour la cellule D4, Excel affiche le nombre avec le format demandé, mais la valeur gardée en mémoire est la valeur complète, et ce de façon précisément à garder des calculs exacts.

Donc deux solutions s'offrent à toi :
-soit tu souhaites faire les calculs sur les valeurs exactes et n'afficher que 3 chiffres après la virgule, auquel cas tu peux simplement faire...

Code :

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

Range("A1").NumberFormat = "0.000"

-soit tu arrondis vraiment la valeur dans D4, dans ce cas au lieu de...

Code :

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

Range("D4").NumberFormat = "0.000"

tu fais...

Code :

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

Range("D4").Value = Round(Range("D4").Value, 3)

...et après ça tes calculs utiliseront bien la valeur tronquée puisque c'est celle qui aura été enregistrée en mémoire

[Didier Gonard]

Bonjour,

Dans ce contexte, tu peux utiliser la propriété Text de l'objet range, et le pouvoir d'interprétation d'Excel ainsi :

Code :

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

1
2
3
4
5
6
7
Sub Macro1_B()
 
    Range("D4").Select   ' dans D4 j'ai mis la valeur 1.444444
   Selection.NumberFormat = "0.000"
   Range("A1") = Range("D4").Text * 1
 
End Sub

cordialement,

Didier

[erlerwade]

Merci beaucoup à vous orhleil et Didier toutes les deux solutions sont

pertinentes et adaptées à mon probléme je n'ai que l'embarras du choix

You do so much good pour la communauté !!!!!!!!!!!!!!!!!!!!!!!!

Vive le Forum !!