Format Nombre

[excfl]

Bonjour à tous,

Dans la colonne A j'ai des nombres entiers.
Ils sont formés de 2, 3 ou 4 chiffres.

Je souhaiterais que lors de la saisie (donc avec un format ou avec du VBA) ces nombres soient tous formés de 4 chiffres.

Il faut donc que certains soient complétés avec 1 ou 2 zéro(s).

Le problème : ce complément doit être situé à la fin de ces nombres.

Merci pour votre aide.

excfl

 

[DoubleZero]

Re : Format Nombre

Bonjour, excfl 😀, le Forum,

Une suggestion en pièce jointe.

A bientôt 🙂

P. S. : Bonjour, Philippe 😀

 

[phlaurent55]

Re : Format Nombre

Bonjour à tous,

en une seule instruction

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

à+
Philippe

Edit: Bonjour 00

 

[Dranreb]

Re : Format Nombre

Bonjour.

Ça sans doute :

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 !

 

[excfl]

Re : Format Nombre

Re,

Bonjour DoubleZero, phlaurent55, Dranreb

Merci à vous.

Vos trois solutions fonctionnent parfaitement.

excfl