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 -
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.
End Sub
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:
- N'affichez que les personnes de calais ayant 20 ans et une note supérieure ou égale à 12. quel mot apparaît dans la colonne code ?
- Code ascii - Guide
- Déplacer une colonne excel - Guide
- Trousseau mot de passe iphone - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Trier une colonne excel - Guide
Ou total1 = Format(CDbl(Abs(ActiveCell.Value)), "#,###.00") pour inclure la valeur absolue
A+