Format textbox letres et chifres combinées Excel VBA [Résolu]

Almeap 3 Messages postés samedi 17 juin 2017Date d'inscription 17 juin 2017 Dernière intervention - 17 juin 2017 à 13:29 - Dernière réponse : Almeap 3 Messages postés samedi 17 juin 2017Date d'inscription 17 juin 2017 Dernière intervention
- 17 juin 2017 à 19:02
Bonjours

Dans une TextBox j'aimerais avoir une espace automatique entre les 6 caractères pour des numéros de plaque ou code postale ici au Canada le numéro de plaque ressemble à A20 LCF et les codes postal à A2B 3C4 je connais le code pour espace entre des chiffres mais ne fonctionne pas si y a des letres et chiffres combinées.
Si quelqu'un a la solution en code VBA je serais bien heureux de ça.
Merci
Afficher la suite 

2 réponses

Répondre au sujet
via55 8800 Messages postés mercredi 16 janvier 2013Date d'inscription 15 décembre 2017 Dernière intervention - Modifié par via55 le 17/06/2017 à 17:03
0
Utile
Bonjour Almeap

Par format personnalisé je ne pense pas que ce soit possible mais tu peux :
1) limiter l'entrée de 6 caratères dans ton textbox en mettant sa propriété MaxLength à 6
2) Associer en VBA un code de ce type à ton userform pour insérer un espace au milieu des 6 caractères à la sortie du Textbox :
Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Left(TextBox1, 3) & " " & Right(TextBox1, 3)
End Sub

Cdlmnt
Via

"L'imagination est plus importante que le savoir."    A. Einstein
Commenter la réponse de via55
Almeap 3 Messages postés samedi 17 juin 2017Date d'inscription 17 juin 2017 Dernière intervention - 17 juin 2017 à 19:02
0
Utile
Je te remercie avec de multiples essais et avec l'aide de mon Fils nous avons trouver la solution.

Dim CODEPOSTALE As String
Dim PREMIER As String
Dim DERNIER As String
Dim CODEPOSTALE1 As String

Private Sub TextBox1_AFTERUPDATE()
CODEPOSTALE = TextBox1.Value
If CODEPOSTALE = "" Then
Exit Sub
End If

PREMIER = Left(CODEPOSTALE, 3)
DERNIER = Right(CODEPOSTALE, 3)
CODEPOSTALE1 = PREMIER & " " & DERNIER
TextBox1.Value = CODEPOSTALE1

End Sub

Un gros merci a toi bonne journée
Commenter la réponse de Almeap