Format Cellule et décimale

[D.D.]

Hello,

Je voudrais faire afficher les nombres tels que ceci:
001
002
003
004
004.1
004.2
005
006

C'est a dire ne faire afficher les décimales que quand elles existent.
Par défaut, le format standard correspond à cela, mais il n'est alors pas possible d'avoir les "00" devant les chiffres.

En format personalisé, le 000,## fait afficher en permanence la virgule, même si elle ne sert à rien.

MErci.

D.D.

 

[natorp]

Re : Format Cellule et décimale

Bjr D.D.

et comme ça : 000#,## ça marche non ?
ce qui revient à formater la cellule en texte, je crois
cordialement, Gérard

 

[tototiti2008]

Re : Format Cellule et décimale

Bonjour DD,
Bonjour natorp,

Je ne crois pas que ce soit possible par un format...

Par une formule, peut-être :

=si(droite(texte(A1;"0,##");1)=",";gauche(texte(A1;"000,##");nbcar(texte(A1;"000,##"))-1);texte(A1;"000,##"))

 

[D.D.]

Re : Format Cellule et décimale

Hello,

000#,## donne:
0004,
0004,1
==> On voit la virgule inutile.

Avec une formule, oui, mais je le voulais en "ecriture directe".

Merci.

D.D.

 

[tototiti2008]

Re : Format Cellule et décimale

Re,

eh oui...

Je ne crois pas que ce soit possible par un format...

Mais sinon peut-être en VBA

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        Target.NumberFormat = "000" & IIf(Target.Value = Int(Target.Value), "", ".##")
    End If
End Sub

 

[D.D.]

Re : Format Cellule et décimale

Mais sinon peut-être en VBA

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        Target.NumberFormat = "000" & IIf(Target.Value = Int(Target.Value), "", ".##")
    End If
End Sub

Hello,

Le code marche bien.
Merci !!

D.D.