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

Résolu/Fermé
conrade82 Messages postés 96 Date d'inscription dimanche 21 avril 2013 Statut Membre Dernière intervention 9 septembre 2016 - 11 sept. 2013 à 11:10
conrade82 Messages postés 96 Date d'inscription dimanche 21 avril 2013 Statut Membre Dernière intervention 9 septembre 2016 - 11 sept. 2013 à 12:14
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


2 réponses

juliencolin54 Messages postés 217 Date d'inscription dimanche 22 juillet 2012 Statut Membre Dernière intervention 1 octobre 2013 55
11 sept. 2013 à 11:31
Bonjour,

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

Cdlt,
0
Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
11 sept. 2013 à 11:36
Bonjour,

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

A+
0
conrade82 Messages postés 96 Date d'inscription dimanche 21 avril 2013 Statut Membre Dernière intervention 9 septembre 2016 4
Modifié par conrade82 le 11/09/2013 à 11:52
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 lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
11 sept. 2013 à 11:57
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 dimanche 21 avril 2013 Statut Membre Dernière intervention 9 septembre 2016 4
11 sept. 2013 à 12:14
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