Imposer un format "Texte+Nombre" dans une TextBox

Bonjour,

J'ai actuellement un problème pour imposer le format suivant à une Textbox : "CW1(espace)(un nombre à 4 chiffres)"

Si le format n'est pas vérifié un MsgBox apparait

Je galère pour trouver le code et c'est urgent

Merci d'avance pour votre aide

Bonjour,

Est ce toujours CW1?

à ce propos 1 est considéré par VBA (et par moi ) comme un chiffre. Donc est ce toujours :

LettreLettreChiffreEspaceChiffreChiffreChiffreChiffre

C'est effectivement un chiffre ^^ mais contrairement aux autres, je ne veux pas qu'il soit changé.

Donc pour répondre à ta question: c'est toujours CW1

Bon.

Essaye ceci :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Left(TextBox1, 4) <> "CW1 " Then GoTo ErreurFormat
If Not IsNumeric(Right(TextBox1, 4)) Then GoTo ErreurFormat
If Len(TextBox1) <> 8 Then GoTo ErreurFormat
Exit Sub
ErreurFormat:
MsgBox "Format faux": TextBox1 = "": Cancel = True
End Sub

Merci beaucoup pour ton aide, ca marche !

J'en profite pour poser une autre petite question:

J'ai dans un même Userform 2 ComboBox (ComboBox1 et ComboBox2) qui ont la même liste déroulante. Je souhaiterais que par défaut la ComboBox 2 affiche le choix sélectionné par l'utilisateur dans la ComboBox1. Je sais pas si je suis claire :S

Merci encore

Bonjour,

Pourquoi pas tout simplement ...

Combobox2.Value = Combobox1.Value