Format Cellule et décimale

natorp

XLDnaute Accro

• 2 Novembre 2010

• #2

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

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 2 Novembre 2010

• #3

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 :

Code:

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

 

Vote positif 0 Vote négatif

D

D.D.

XLDnaute Impliqué

• 2 Novembre 2010

• #4

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.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 2 Novembre 2010

• #5

Re : Format Cellule et décimale

Re,

eh oui...

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

Cliquez pour agrandir...

Mais sinon peut-être en VBA

Code:

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

 

Dernière édition: 2 Novembre 2010

Vote positif 0 Vote négatif

D

D.D.

XLDnaute Impliqué

• 2 Novembre 2010

• #6

Re : Format Cellule et décimale

tototiti2008 à dit:

Mais sinon peut-être en VBA

Code:

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

Cliquez pour agrandir...

Hello,

Le code marche bien.
Merci !!

D.D.

 

Vote positif 0 Vote négatif