Format spécial dans un TextBox d'un UserForm

Bonsoir à Tous,

Petite question:

J'ai ce format dans un TextBox d'un UserForm:

TextBox_PO_3 = Format(TextBox_PO_3, "#### ####")

Si j'inscris dans le TextBox: 20264587 ça me donne: 2026 4587.

À la place de l'espace après le quatrième digit, je veux un tiret. Donc le résultat que j'espère est: 2026-4587.

J'ai ce format qui fonctionne dans une feuille mais je n'arrive pas à l'adapter pour un TextBox:

####"-"####

Merci

Jean

Bonjour,

Et "####-####" ça passe, ou pas ?

Gelinotte

Bonjour

Dans l'événement de Exit ça fonctionne.

Private Sub TextBox_PO_3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox_PO_3 = Format(TextBox_PO_3, "####-####")
End Sub

Gelinotte

Bonsoir gelinotte,

Avec Exit ça fonctionne très bien.

Merci Beaucoup pour la solution.

Dans la même direction, est-ce qu'il est possible d'adapter ce format:

=DROITE(Lign_PO;NBCAR(Lign_PO)-5)

à un TextBox d'un UserForm. Le résultat que je recherche est si j'écris: 2026-4587, que le résultat me donne 4587.

Merci Encore.

Jean

Bonjour,

Avec ceci, quoi que tu tapes, il ne conservera que le 4 derniers caractères.

Private Sub Lign_PO_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Lign_PO = Right(Lign_PO, 4)
End Sub

Gelinotte

Bonjour gelinotte,

Ça fonctionne très bien.

Gros MERCI.

Jean