Discussion :

[Adweuz]

Bonjour à tous,

Tout d'abord excusez moi, j'ai cherché partout et toute la matinée sur internet et sur le forum, j'ai trouvé des discussions parlant de mon problème mais aucune n'a réussi à le résoudre. Je me permet donc d'ouvrir une nouvelle discussion sur mon problème que voici :

Je doit mettre en forme des courriers Word en récupérant dans une base de donnée plusieurs infos. Je récupère à l'aide d'un script et une requête SQL un montant. Celui-ci est stocké dans une variable au format string. Quand il ne possède seulement qu’une décimale (ex : 1024,2), ça me l'affichent donc avec qu'une seule décimale. Et je souhaiterai l'afficher en 1024,20 vu que c'est un montant.

Je passe évidemment ma variable en double avec

Code :

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

mavariable = cdbl(mavariable)

(testé avec décimal aussi)

Ensuite j'ai tout essayé,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
format(mavariable,"0.00") 
format(mavariable,"0,00") 
format(mavariable,"0.##") 
format(mavariable,"0,##")
format(mavariable,"#.##") 
format(mavariable,"#,##") 
format(mavariable,".00") 
format(mavariable,",00") 
format(mavariable,".##") 
format(mavariable,",##") 
Round(mavariable,2)
Math.Round(mavariable,2)

Rien ne fonctionne.

Sauvez moi

[DAUDET78]

Tu teste la position du séparateur décimal , si il est (de gauche à droite) en avant dernière position , tu rajoute "0" à droite de ton string

Code :

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

1
2
3
4
5
mavariable="1234,5"
I%=Len(mavariable) 
J%= instr(mavariable,",")
If J%=1 then mavariable="0" & mavariable  ' pas de chiffre à gauche de la virgule
If I%-J%=1 then  mavariable=mavariable & "0" ' 1 chiffre après la virgule

PS : programme non testé en réel !

[ProgElecT]

Salut

Code :

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

1
2
3
4
5
6
7
Dim mavariable As Double
mavariable = 123.456
MsgBox Format(mavariable, "##,##0.00")
mavariable = 123.4
MsgBox Format(mavariable, "##,##0.00")
mavariable = 123456789
MsgBox Format(mavariable, "##,##0.00")

A savoir, dans le premier exemple, arrondi au chiffre supérieure, 123.456 devient 123.46

[Adweuz]

Tu teste la position du séparateur décimal , si il est (de gauche à droite) en avant dernière position , tu rajoute "0" à droite de ton string

Code :

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

1
2
3
4
5
mavariable="1234,5"
I%=Len(mavariable) 
J%= instr(mavariable,",")
If J%=1 then mavariable="0" & mavariable  ' pas de chiffre à gauche de la virgule
If I%-J%=1 then  mavariable=mavariable & "0" ' 1 chiffre après la virgule

PS : programme non testé en réel !

Super merci ça marche ! Merci beaucoup !!!

PS : la deuxième solution de ProgElecT n'a pas marché mais merci de t'être penché sur mon problème

[DAUDET78]

Super merci ça marche !

Et bien ça fait fait plaisir ...... je ne suis pas encore trop mauvais (on peut toujours oublier une virgule dans un coin !)
PS : Tu peux me cocher un p'tit pouce vert? et mettre ta question en résolue

[ProgElecT]

Re

L'important est que la proposition de DAUDET78 (salut) t'a permis de passer à la suite de ton programme.
Pour autant Adweuz tu indiquais que tu convertissais la variable string de ta BDs en type Double, est le format proposé par moi fonctionne pour ce type.
Il faut donc utiliser le code suivant pour le faire directement depuis la donnée de type String de ta BDs.

Code :

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

1
2
3
4
5
6
7
Dim mavariable As String
mavariable = "123,456"
MsgBox Format(CDbl(mavariable), "##,##0.00")
mavariable = "123,4"
MsgBox Format(CDbl(mavariable), "##,##0.00")
mavariable = "123456789"
MsgBox Format(CDbl(mavariable), "##,##0.00")

Dans l'exemple j'ai cru comprendre que la donnée string de la BDs avait pour séparateur décimal la virgule, si c'est le point, le formatage devient
Format(CDbl(Replace(mavariable, ".", ",")), "##,##0.00")

Si je me suis permis de rajouter ce post, s'est pour les éventuelles personnes qui liront cette discussion et qui hésiteraient à utiliser la fonction Format.