Textbox séparer les lettres ou chiffre d'un code postal

Bonjour!

J'ai un TextBox où je saisi un code postal qui doit avoir ce format ex.: G2C 3N6. Ce que j'aimerais c'est que même si je saisi ex.: g2c3n6 que le visuel reste : G2C 3N6.

Pouvez-vous m'aider? Merci!

Salut CedL,

à copier dans la Sub adéquate selon que la TextBox soit créée dans un UserForm ou directement sur la feuille !
Principe : lors de la validation, le contenu est purgé des éventuels espaces puis, si la longueur du texte ainsi obtenu est égale à 6, le texte est formaté selon tes souhaits, sinon, il est effacé.

sMsg = Replace(Me.TextBox1.Text, " ", "")
If Len(sMsg) = 6 Then
    Me.TextBox1.Text = UCase(Left(Me.TextBox1.Text, 3)) & " " & UCase(Right(Me.TextBox1.Text, 3))
Else
    Me.TextBox1.Text = ""
End If

A+

Bonjour curulis57!

Ça marché super bien merci beaucoup pour ton aide!