Format Nombre

DoubleZero

XLDnaute Barbatruc

• 23 Août 2014

• #2

Re : Format Nombre

Bonjour, excfl 😀, le Forum,

Une suggestion en pièce jointe.

A bientôt 🙂

P. S. : Bonjour, Philippe 😀

 

Pièces jointes

• 00 - excfl - Format nombre modifier.xls

  38.5 KB · Affichages: 33

Dernière édition: 23 Août 2014

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 23 Août 2014

• #3

Re : Format Nombre

Bonjour à tous,

en une seule instruction

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Value = Left(CStr(Target) & "000", 4) * 1
End Sub

à+
Philippe

Edit: Bonjour 00

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 23 Août 2014

• #4

Re : Format Nombre

Bonjour.

Ça sans doute :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
Application.EnableEvents = False
Target.Value = Int(Target.Value * 10 ^ (3 - Int(Log(Target.Value) * 0.434294481903252)))
Application.EnableEvents = True
End Sub

Vous êtes sûr que ce sont des nombres entiers que voulez garder et non des String formés de chiffres ? Ce n'est pas du tout la même chose !

 

Dernière édition: 23 Août 2014

Vote positif 0 Vote négatif

excfl

XLDnaute Barbatruc

• 23 Août 2014

• #5

Re : Format Nombre

Re,

Bonjour DoubleZero, phlaurent55, Dranreb

Merci à vous.

Vos trois solutions fonctionnent parfaitement.

excfl

 

Vote positif 0 Vote négatif