Format cellule nombre personnalisée

[un internaute]

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

 

[JHA]

Bonjour à tous,

A essayer:

[>0]+ ### 0.00 €;[Rouge]- ### 0.00 €;[Bleu]0.00 €

Edit: Bonjour Theze, même remarque avec excel 2013
JHA

 

[Theze]

Bonjour,

Avec le format présenté, en faisant le test chez moi (Excel 2007) le signe + n'apparaît pas si la valeur est 0 !

 

[un internaute]

Bonjour JHA et Theze.
Désolé mais aucun des 2 ne met 0.00 en bleu toujours + devant.
Nous allons bien trouver l'astuce.
Merci pour vos retours
Cordialement

 

[JCGL]

Bonjour à tous,

Fonctionne sous XL 2016

 

[un internaute]

Bonjour JCGL
Ça ne fonctionne pas chez moi.
J'ai: Format => Cellule => Nombre 2 Monétaire => Aucune
Merci à vous pour tenter de résoudre ce problème. Il doit y avoir un "truc" que je ne vois pas.
Cordialement

 

[JCGL]

Bonjour à tous,

Voir le fichier joint.

A+ à tous

 

[un internaute]

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

 

[JHA]

Bonjour à tous,

Ton résultat de formule n'est peut être pas "0" regarde avec arondi(F92-F89-F90;0) ou ent(F92-F89-F90)

JHA

 

[un internaute]

Bonjour à tous,
Non pas bon.
Merci JHA
On va bien arriver à trouver une astuce
Cordialement

 

[JHA]

Bonjour à tous,

Et si tu déposais un extrait de ton fichier?

JHA

 

[un internaute]

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