Format cellule nombre personnalisée

J

JHA

XLDnaute Barbatruc

• 30 Avril 2017

• #2

Bonjour à tous,

A essayer:

Code:

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

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

 

Dernière édition: 30 Avril 2017

Vote positif 0 Vote négatif

T

Theze

XLDnaute Occasionnel

• 30 Avril 2017

• #3

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 !

 

Vote positif 0 Vote négatif

U

un internaute

XLDnaute Impliqué

• 30 Avril 2017

• #4

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 30 Avril 2017

• #5

Bonjour à tous,

Fonctionne sous XL 2016

 

Vote positif 0 Vote négatif

U

un internaute

XLDnaute Impliqué

• 30 Avril 2017

• #6

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 30 Avril 2017

• #7

Bonjour à tous,

Voir le fichier joint.

A+ à tous

 

Pièces jointes

• JC Format Personnalisé.xlsx

  14.1 KB · Affichages: 28

Vote positif 0 Vote négatif

U

un internaute

XLDnaute Impliqué

• 30 Avril 2017

• #8

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

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 30 Avril 2017

• #9

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

 

Vote positif 0 Vote négatif

U

un internaute

XLDnaute Impliqué

• 30 Avril 2017

• #10

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

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 30 Avril 2017

• #11

Bonjour à tous,

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

JHA

 

Vote positif 0 Vote négatif

U

un internaute

XLDnaute Impliqué

• 4 Mai 2017

• #12

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

 

Vote positif 0 Vote négatif