Format avec zéros non significatifs

[christo810]

Bonsoir à tous,

J'essaie de créer un format personnalisé contenant des zéros non significatifs. Mais cela me pose problème :

• Ce que j'aimerai : 82 / 00345
• Ce que j'obtiens : 00 / 82345

Ci-dessus, en gras, l'emplacement suceptible de contenir des zéros non significatifs. J'ai donc mis cela à titre d'indication, il n'est pas necessaire de mettre cette partie en gras dans le format.

Merci de votre aide 😉

 

[Tibo]

Re : Format avec zéros non significatifs

Bonjour,

Fais un essai avec ce format personnalisé :

00" / 00"000

Edit : à revoir, car je n'avais fait attention que le nombre de zéro pouvait être variable.

@+

 

[Pierrot93]

Re : Format avec zéros non significatifs

Bonjour Christo, Tibo

peut être ainsi, si j'ai bien compris :

##" / "0000#

bonne soirée
@+

 

[christo810]

Re : Format avec zéros non significatifs

Merci pour ta réponse.
En effet, le nombre de zéros est variable

 

[hoerwind]

Re : Format avec zéros non significatifs

Bonjour,

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

Par formule dans une autre cellule :
=GAUCHE(A1;2)&"/"&TEXTE(DROITE(A1;3);"00000")

ou bien dans la même cellule, par macro évenementielle, en enregistrant cette formule.

Edition :
J'aurai mieux fait de me taire !

 

[christo810]

Re : Format avec zéros non significatifs

Merci Pierrot93.
Mais j'obtiens 8 / 23455. Il faudrait que le 82 soit avant le slash.

Merci hoerwind.
Bonne idée pour la formule, mais elle ne tient pas compte du nombre variable de zéros.

Peut-être cela n'est-il pas possible par format.
Merci quand même de vos interventions et bonne soirée ! 🙂

 

[hoerwind]

Re : Format avec zéros non significatifs

Re,

Par formule on peut faire varier le nombre de 0.
Mais il faudrait préciser !
Toujours deux chiffres avant le /, puis du solde des chiffres précédé d'autant de 0 qu'il faut pour obtenir 5 chiffres , ou autre chose ,
Donne quelques exemples des résultats que tu souhaites obtenir.

 

[ROGER2327]

Re : Format avec zéros non significatifs

Bonjour à tous

En l'absence d'une description du mode de saisie des données à formater, je ne sais pas si le classeur joint est utile. A vous de voir...​

ROGER2327

 

[christo810]

Re : Format avec zéros non significatifs

Veillez m'excuser pour le manque de précision.
L'idée est de taper un chiffre 1122222 et que le slash se place exactement entre 11/22222. Mais il faut prendre en compte les chiffres qui s'écriraient 1122 par exemple, et devient 11/00022, Le nombre de chiffre est constant.

Félicitation à ROGER2327 pour sa macro 😉

 

[hoerwind]

Re : Format avec zéros non significatifs

Bonjour,

Formules à tester, la valeur saisie en A1 :

=GAUCHE(A1;2)&"/"&REPT(0;7-NBCAR(A1))&DROITE(A1;NBCAR(A1)-2)
=GAUCHE(A1;2)&"/"&REPT(0;7-NBCAR(A1))&STXT(A1;3;5)

Je regarde si je peux encore la simplifier.

Edition :
Se peut-il qu'il n'y ait qu'un seul chiffre ?
Dans ce cas, faut-il renvoyer 9/00000 ou 90/00000 ?

 

[ROGER2327]

Re : Format avec zéros non significatifs

Bonjour à tous

Un code conforme au mode de saisie décrit par christo810 :

L'idée est de taper un chiffre 1122222 et que le slash se place exactement entre 11/22222. Mais il faut prendre en compte les chiffres qui s'écriraient 1122 par exemple, et devient 11/00022, Le nombre de chiffre est constant.

[COLOR="DarkSlateGray"]Private Sub Worksheet_Change(ByVal Target As Range)
Dim oCel As Range
   If Not Intersect(Target, Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))) Is Nothing Then
      For Each oCel In Intersect(Target, Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))).Cells
         If Not IsEmpty(oCel.Value) Then
            Application.EnableEvents = False
            oCel.Value = Right$("00" & Left$(oCel.Value, 2), 2) & " / " & Right$("00000" & Right$(oCel.Value, Application.Max(0, Len(CStr(oCel.Value)) - 2)), 5)
            Application.EnableEvents = True
         End If
      Next oCel
   End If
End Sub[/COLOR]

ROGER2327