XL 2016 Format personnalisé : Ajouter des 0 derrières les nombre

Lone-wolf

XLDnaute Barbatruc

• 6 Avril 2018

• #2

Bonjout Kdet

par VBA

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim f

If Not Intersect(Target, Columns("A:A")) Is Nothing Then
f = ActiveCell.Offset(-1, 0) & "0000"
If Len(ActiveCell.Offset(-1, 0)) > 2 Then ActiveCell.Offset(-1, 0) = Format(f, "0000000")
End If
End Sub

 

Dernière édition: 6 Avril 2018

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 6 Avril 2018

• #3

Bonjour

Cela fonctionne avec 3 et 4 chiffres avec le format [>=1000]0"0000";[>=100]0"00000", malheureusement, pas avec 5 chiffres.

@ plus

 

Dernière édition: 6 Avril 2018

Vote positif 0 Vote négatif

kdet

XLDnaute Occasionnel

• 6 Avril 2018

• #4

Bonjour Cisco, Lone-wolf, le forum,

Je vous remercie de votre solution. par contre pour Lone-wolf je ne sais pas ce qui se passe pour le code??

Kdet

 

Pièces jointes

• Format personnalisé nombre.png

  45.6 KB · Affichages: 44

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 6 Avril 2018

• #5

Re

Edit: désolé, je pensais que c'était correct , mais non. Je n'ai pas lu correctement que tu voulais obtenir toujours 8 chiffres.

 

Dernière édition: 6 Avril 2018

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 6 Avril 2018

• #6

Bonjour à tous,

Autrement, tu as toujours cette solution:

Code:

=A1&REPT(0;8-NBCAR(A1))

JHA

 

Pièces jointes

• Format personnalisé nombre.xlsx

  8.6 KB · Affichages: 31

Vote positif 0 Vote négatif

kdet

XLDnaute Occasionnel

• 6 Avril 2018

• #7

Bonjour JHA,

Merci pour la formule qui marche à merveille. mais ce que je voulais c'est par format personnalisé comme l'a fait CISCO mais qui est limité de 3 à 4 chiffres.

Kdet

 

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 6 Avril 2018

• #8

Bonsoir

C'est bon avec le format personnalisé [>=10000] 0"000";[>=1000]0"0000";0"00000", format qui traite dans l'ordre les cas 5 chiffres, 4 chiffres et tous les autres. Il ne faut pas mettre de condition sur la 3ème partie.

@ plus

 

Dernière édition: 7 Avril 2018

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 8 Avril 2018

• #9

Bonsour®

kdet à dit:

Bonjour le forum, et à tous,

Ayant déjà consulter plusieurs discussions similaires sur le forum (https://www.excel-downloads.com/threads/format-de-cellule-personalisé-8-chiffres.107405/) et (https://www.excel-downloads.com/threads/ajouter-deux-0-aux-nbs-à-4-chiffres.58796/) et n'ayant pas trouver de solution par rapport à mon soucis, je reviens vers vous pour demander de l'aide. Dans A1 : 110 (racine à trois chiffres mais ça varie à quatre ou cinq chiffres). Ce que je voulais en A1 au format personnalisé : 11000000 (au total 8 chiffres). Si en A1 je tape 4561 le résultat devrait avoir comme 45610000 (toujours au total 8 chiffres).
Merci d'avance pour votre aide.
Kdet

Cliquez pour agrandir...

format de cellule personalisé :
#0*0
utiliser une police a pas fixe (courier, terminal, system)
limiter la largeur de colonne pour ne laisser apparaître que 8 caractères
il ne s'agit que d'un format qui ne change pas le contenu reel de la cellule

 

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 8 Avril 2018

• #10

Bonjour

Merci pour cette astuce, Modeste geedee. Cela fonctionne aussi sans le #. Dommage qu'il ni ait pas la possibilité de limiter le nombre de caractères à 8 sans avoir à jouer sur la largeur de la colonne.

@ plus

 

Dernière édition: 9 Avril 2018

Vote positif 0 Vote négatif

kdet

XLDnaute Occasionnel

• 9 Avril 2018

• #11

BonjourBonjour CISCO, ModesteGeedee, le forum,

Merci à tous les deux pour les solutions que vous m'apportiez.

kdet

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Avril 2018

• #12

Bonjour kdet, Lone-wolf, CISCO, Modeste geedee,

Un exemple d'utilisation du format [<1000]0"00000";[<10000]0"0000";0"000" dans le fichier joint.

A+

 

Pièces jointes

• Format personnalisé nombre(1).xlsx

  29.9 KB · Affichages: 33

Vote positif 0 Vote négatif

kdet

XLDnaute Occasionnel

• 9 Avril 2018

• #13

job75 à dit:

Bonjour kdet, Lone-wolf, CISCO, Modeste geedee,

Un exemple d'utilisation du format [<1000]0"00000";[<10000]0"0000";0"000" dans le fichier joint.

A+

Bonjour Job75, le forum,

Merci à toi et le forum.

CISCO : [>=10000] 0"000";[>=1000]0"0000";0"00000"
Job75 : [<1000]0"00000";[<10000]0"0000";0"000"
Modeste geedee : #0*0
JHA : A1&REPT(0;8-NBCAR(A1))

Kdet

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

kdet

XLDnaute Occasionnel

• 9 Avril 2018

• #14

Bonjour Job75, le forum,

Merci à toi et le forum.

CISCO : [>=10000] 0"000";[>=1000]0"0000";0"00000"
Job75 : [<1000]0"00000";[<10000]0"0000";0"000"
Modeste geedee : #0*0
JHA : A1&REPT(0;8-NBCAR(A1))

Kdet

 

Vote positif 0 Vote négatif