Format personnalisé

Résolu/Fermé
xls73 Messages postés 6 Date d'inscription jeudi 8 janvier 2015 Statut Membre Dernière intervention 8 janvier 2015 - 8 janv. 2015 à 18:35
Mike-31 Messages postés 18335 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 1 septembre 2024 - 8 janv. 2015 à 21:50
Bonjour,

Je n'arrive pas à créer un format personnalisé sur EXCEL du style : la cellule doit comporter 6 chiffres maximum, quand je rentre par exemple 65 le reste se complète avec des 0 donc 650000. J'ai utilisé : #000000, mais les zéros se mettent devant.
Pouvez-vous m'aider ?
je trouve des solutions en insérant une virgule, mais je dois renseigner des nombres entiers.
Merci pour votre aide.
A voir également:

3 réponses

jordane45 Messages postés 38241 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 septembre 2024 4 689
8 janv. 2015 à 18:55
Bonsoir,

En général... on affiche les zéros DEVANT le nombre.. pas derrière....
Je ne suis pas sûr que tu puisses réaliser cela avec un format personnalisé.

Sachant que .. le "format" d'une cellule ne sert qu'à l' AFFICHAGE .. ça ne joue en rien sur la "valeur" réelle contenue dans la cellule.. et donc dans les calculs.
Et c'est bien pour ça.. qu'avec le FORMAT tu peux avoir : 65 .. qui est la même chose que 000065 ... mais qui ne serait en aucun cas pareil à 650000 ....



0
xls73 Messages postés 6 Date d'inscription jeudi 8 janvier 2015 Statut Membre Dernière intervention 8 janvier 2015
8 janv. 2015 à 19:02
Merci pour votre réponse. Y a t-il peut-être une autre façon de procéder autre que par le format personnalisé ?
0
jordane45 Messages postés 38241 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 septembre 2024 4 689 > xls73 Messages postés 6 Date d'inscription jeudi 8 janvier 2015 Statut Membre Dernière intervention 8 janvier 2015
8 janv. 2015 à 19:11
Par macro (VBA) tu pourrais le faire...

Par exemple :
Sub formatNombre()
Dim Rng As Range
Dim Sh As Worksheet
Set Sh = Sheets("Feuil2")

Set Rng = Sh.Range("A1:A50")

For Each C In Rng
 If Len(C.Value) < 6 And C.Value <> "" Then
 newVal = C.Value
    For nbtoAdd = 1 To 6 - Len(C.Value)
     newVal = newVal & "0"
    Next
     C.Value = newVal
 End If

Next
End Sub
0
xls73 Messages postés 6 Date d'inscription jeudi 8 janvier 2015 Statut Membre Dernière intervention 8 janvier 2015 > jordane45 Messages postés 38241 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 septembre 2024
8 janv. 2015 à 19:28
Je vais essayer. Mais mon souci, c'est que c'est pour des stagiaires en comptabilité, et ils ne maitrisent pas le VBA.
0
jordane45 Messages postés 38241 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 septembre 2024 4 689 > xls73 Messages postés 6 Date d'inscription jeudi 8 janvier 2015 Statut Membre Dernière intervention 8 janvier 2015
8 janv. 2015 à 19:33
Il n'y a pas besoin de maitriser le VBA .. je t'ai écris le code...
Il n'y a plus qu'à l'utiliser ...

Par contre.. je persiste... Je n'ai jamais vu quelque part qu'on pouvait avoir besoin de rajouter des zéros DERRIÈRE....
Que le format d'un nombre soit de 6 chiffres obligatoirement ( et que donc on ajoute des zéros devant ).... ok... .. mais derrière ?????
Si tu le peux.. il faudra m'expliquer le pourquoi de ce "besoin".
0
xls73 Messages postés 6 Date d'inscription jeudi 8 janvier 2015 Statut Membre Dernière intervention 8 janvier 2015 > jordane45 Messages postés 38241 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 septembre 2024
8 janv. 2015 à 19:40
Pour renseigner des comptes du plan comptable. Le principe est de taper par exemple : 606 faire "entrée" et automatiquement se rajoute 000 derrière ou 60 et automatiquement 0000 derrière.
0
Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 6 412
Modifié par Vaucluse le 8/01/2015 à 19:17
Bonsoir
à priori cela fonctionne avec un format personnalisé tout bête:
000000
sans dièse et sans macro
crdlmnt

Errare humanum est, perseverare diabolicum
0
jordane45 Messages postés 38241 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 septembre 2024 4 689
8 janv. 2015 à 19:29
@Vaucluse,
A moins que cela dépende de la version d'excel (ce dont je doute fort)... un format personnalisé de cette forme ajoutera des zéros DEVANT le nombre... (et pas derrière comme le demande xls73)
0
Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 6 412
8 janv. 2015 à 19:32
Excat Jordane, j'ai lu le problème à l'envers.
Mea culpa
0
jordane45 Messages postés 38241 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 septembre 2024 4 689 > Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022
8 janv. 2015 à 19:36
Tu n'es pas le seul.. Mike-31 a fait la même erreur et quand il s'en ai aperçu a supprimé son message .. ^^
Et puis en même temps.. je ne vois pas l'intérêt de faire ça...
Mais bon..; nous sommes là pour répondre aux questions.. aussi farfelues soient elles :-)
0
Mike-31 Messages postés 18335 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 1 septembre 2024 5 095 > jordane45 Messages postés 38241 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 septembre 2024
8 janv. 2015 à 21:34
Bonsoir,

Oui j'étais sur le départ et en voulant répondre trop vite j'étais hors sujet, mais je vois que le problème est résolu.
Bonsoir à tous
0
jordane45 Messages postés 38241 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 septembre 2024 4 689 > Mike-31 Messages postés 18335 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 1 septembre 2024
8 janv. 2015 à 21:39
Oui ben tu n'es pas le seul. .. moi aussi j'ai tendance à répondre trop vite ces derniers temps. ..
Mais ce n'est pas grave. .. nous ne sommes pas des machines.
;-)
0
xls73 Messages postés 6 Date d'inscription jeudi 8 janvier 2015 Statut Membre Dernière intervention 8 janvier 2015
8 janv. 2015 à 19:28
J'ai essayé, les 0 se mettent toujours devant
0
jordane45 Messages postés 38241 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 septembre 2024 4 689
8 janv. 2015 à 19:39
Hein ??
Tu as essayé... mon code ?
Tu as "ajusté" les variables ?

'Nom de la feuille contenant les valeurs (pour mes tests.. j'ai mis la feuille  Feuil2 )
Set Sh = Sheets("Feuil2")

'Plage de cellule contenant les valeurs .. ici j'ai pris les cellules de  A1 à A50
Set Rng = Sh.Range("A1:A50")


Une fois ces ajustements faits pour correspondre à tes besoins... Tu lances la macro.
0
xls73 Messages postés 6 Date d'inscription jeudi 8 janvier 2015 Statut Membre Dernière intervention 8 janvier 2015 > jordane45 Messages postés 38241 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 septembre 2024
8 janv. 2015 à 19:46
Super ! ça marche. C'est ce que je voulais.
Merci beaucoup à tous
0
jordane45 Messages postés 38241 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 septembre 2024 4 689 > xls73 Messages postés 6 Date d'inscription jeudi 8 janvier 2015 Statut Membre Dernière intervention 8 janvier 2015
Modifié par jordane45 le 8/01/2015 à 19:48
Regarde aussi mon message précédent .https://forums.commentcamarche.net/forum/affich-31342898-format-personnalise#14..
. pour que le déclenchement se fasse automatiquement après avoir saisie une valeur ....

PS :
Si la question est résolue..
Merci de ne pas oublier de clôturer le sujet
(en cliquant sur le lien "Marquer comme résolu" qui se trouve sous le titre de la question)

Cordialement,
Jordane
0