Discussion :

[pasterlouis]

Bonjour,

j'utilise ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cellule.NumberFormat = "+# ##0;-# ##0"

pour faire un format personnalisé mais j'ai un problème avec les gestion signe du zéro (0).
Si dans la cellule je saisie le chiffre 0 il me met un + devant. J'aimerais que le zéro n'ait pas de signe.

Merci de vos aides

[casefayere]

Bonjour,

Peut-être ce contournement avec l'évènement "Change" de la feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
'imaginons que les données sont en "C"
If Target.Column = 3 Then
  If Target = 0 Then
    Target.NumberFormat = "0"
  Else
    Target.NumberFormat = "+# ##0;-# ##0"
  End If
End If
End Sub

[Jean-Philippe André]

Salut,

la fonction Format accepte jusqu'à 4 plages de valeurs
http://jpcheck.developpez.com/tutori...-vba/#LII-a-ii

Format(valeur,"FormatSiPositif;FormatSiNegatif;Formatsi0")

[casefayere]

Merci jp, j'étais dans l'ignorance

bonne journée

[pasterlouis]

merci pour vos réponse pertinentes.
En fait jai un soucis car si une cellule contient 0 au moment de l'exécution de la macro, après l'éxécution si je change la valeur de la cellule en mettant un nombre positif alors le signe de celui ci n'apparait pas. Je veux que les signes apparaissent (sauf pour le zéro) quelque soit le contenu de la cellule au départ. Et en plus j'ai fai un jeux de couleur et ici aussi pareil, après l'éxécution de la macro si je remplace la valeur d'une cellule par 0, ce 0 est de la couleur de la valeur qu'il remplace.
voici ce que j'utilise:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
With Selection.FormatConditions _
        .Add(xlCellValue, xlGreater, 0)
 
    With .Font
        .ColorIndex = 10
    End With
 
End With
With Selection.FormatConditions _
        .Add(xlCellValue, xlLess, 0)
 
    With .Font
        .ColorIndex = 3
    End With
 
End With

[78chris]

Bonjour

Si tu lis la réponse de jpcheck tu dois mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cellule.NumberFormat = "+# ##0;-# ##0;# ##0

Si le format de nombre et la MFC sont correctement définis, cela doit marcher tout seul quand tu modifies une valeur.

[casefayere]

ou tout simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cellule.NumberFormat = "+# ##0;-# ##0;0"

[78chris]

Re

Oui bien sûr, où avais-je la tête