Format cellule nombre personnalisée

un internaute

XLDnaute Impliqué
Bonjour le forum,
Je fais afficher + ou - dans Format nombre personnalisée pour mieux voir le résultat (voir ci-dessous)
+ # ##0.00 €;[Rouge]- # ##0.00 €;[Bleu]0.00 €
Tout va bien mais je voudrais lorsque c'est à zéro ne plus avoir + 0.00 € mais 0.00 €
Quelqu'un a t-il une astuce?
Merci pour vos éventuels retours.
Bon WE
Cordialement
 

JCGL

XLDnaute Barbatruc
Bonjour à tous,

Fonctionne sous XL 2016

upload_2017-4-30_8-42-52.png



upload_2017-4-30_8-44-20.png
 

un internaute

XLDnaute Impliqué
Bonjour à tous,
Effectivement si je fais sous un classeur vierge Classeur1 par exemple c'est bon
Mais avec mon fichier NON.
Ma cellule a une formule dedans ci-dessous:
=F92-F89-F90
Si je tape ce que je dois pour que ça tombe juste c'est à dire 177.49 € = + 0.00 €
Si je tape 177.48 € = - 0.01 €
Si je tape 177.50 € = + 0.01 €
Pour l'instant je ne vois
Merci à vous et bon appêtit
Cordialement
 

un internaute

XLDnaute Impliqué
Bonjour JHA et au forum,
Désolé du retard mais j'étais absent
En ce qui concerne le fichier il est trop personnel et sans fichier c'est très difficile de résoudre le "petit" problème.
J'ai ajouter ceci (en rouge) qui fonctionne très bien dans ThisWorkb00k:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim NombreJour As Integer
Dim Ladate As Date

If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
' On recherche si la page est surveillée
If Left(Sh.Name, 7) = "Charges" Then 'Le chiffre 7 = Nombre de lettres du mot "Charges".On peut mettre 8 avec un espace après "Charges " pour une sécurité.
If Not Intersect(Range("B9:B83,E9:E83"), Target) Is Nothing Then
If Target.Interior.ColorIndex = 2 Then
' Si la colonne B et la colonne E est vide on efface la date
Range("A" & Target.Row) = IIf(Range("B" & Target.Row) & Range("E" & Target.Row) = "", "", Date)
VERIFIER_AJOUTERPLUS
End If
End If
End If
Application.EnableEvents = True
End Sub

Sub VERIFIER_AJOUTERPLUS()
If Range("E2") = 0 Then
Range("E2,F93").NumberFormat = " #,##0.00 $;[Red]- #,##0.00 $;[Blue]0.00 $"
Else
Range("E2,F93").NumberFormat = " + #,##0.00 $;[Red]- #,##0.00 $;[Blue]0.00 $"
End If
End Sub


Merci pour ton investissement
Cordialement
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof