Faire apparaître la seconde décimale quand elle est égale à zéro

Résolu
conrade82 Messages postés 96 Date d'inscription   Statut Membre Dernière intervention   -  
conrade82 Messages postés 96 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai crée un fichier Excel qui liste des montants à déduire ou à créditer à l'un de nos fournisseurs. Ce document me servira de justif pour établir une facture. J'ai abrégé le code complet pour se focaliser sur une partie. En effet, entre autre tâche exécutée par la macro, une phrase doit être écrite en cellule A4 en fonction de la valeur total des montants. Selon que le total est négatif ou positif, la phrase sera différente. Mon problème se situe à ce niveau: mon code utilise une formule "&" afin de faire apparaître dans le coeur de la phrase le montant en valeur absolu du total. Or quand le total égal 1 235.10 euros, le chiffre zéro n'apparait pas. C'est un peu gênant. Comment pourrai-je faire pour que le montant affiche tous les chiffres même le zéro en fin de nombre?

Ci-dessous mon code et ci-joint mon fichier pour mieux comprendre. Merci d'avance de votre aide.

Sub Phrase_ligne_4()

Range("g15").Select
total = ActiveCell.Value
total1 = Abs(ActiveCell.Value)

Range("A4").Select
If total < 0 Then
ActiveCell.FormulaR1C1 = "Veuillez trouver ci-dessous le détail de la somme de " & total1 & " euros que vous avez reçu pour notre compte."
Else
ActiveCell.FormulaR1C1 = "Veuillez trouver ci-dessous le détail de la somme de " & total1 & " euros que nous avons reçu pour votre compte."
End If

End Sub


A voir également:

2 réponses

juliencolin54 Messages postés 217 Date d'inscription   Statut Membre Dernière intervention   55
 
Bonjour,

Ceci devrait faire l'affaire :
totall=format(totall,"#0.00") 

Cdlt,
0
Zoul67 Messages postés 1959 Date d'inscription   Statut Membre Dernière intervention   149
 
Bonjour,

Ou total1 = Format(CDbl(Abs(ActiveCell.Value)), "#,###.00") pour inclure la valeur absolue

A+
0
conrade82 Messages postés 96 Date d'inscription   Statut Membre Dernière intervention   4
 
super! grand merci MERCI MERCI MERCI. Je ne l'aurai pas trouvé tout seul. C'est exactement ce qu'il me fallait. Merci!!! En plus je viens de me rendre compte que je n'avais pas joint le fichier Excel. par chance ça ne vous a pas posé problème. Merci beaucoup! bonne journée!!!
0
Zoul67 Messages postés 1959 Date d'inscription   Statut Membre Dernière intervention   149
 
Rien à voir avec Excel, mais avec la grammaire française :
"Qu'avons-nous reçu ?
- La somme."
la somme que [...] reçue
0
conrade82 Messages postés 96 Date d'inscription   Statut Membre Dernière intervention   4
 
Exact, je ne me suis focalisé que sur l'auxiliaire "avoir" sans penser au complément d'objet direct. Merci, bien vu! Je corrige.
0