Créer un masque de saisie dans un textbox

Bonjour,

J'aimerais pouvoir saisir dans un textbox un format de numéro de type: "00 00 00". Il faut d'ailleurs que les espaces existent entre les pairs de chiffre, puisque j'utilise le contenu de la cellule pour vérification.

Pour le moment, le code que j'utilise est:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Ttb_Codedéchet_Change() 'Créé un masque de saisi pour le code déchet On Error Resume Next   If Not IsNumeric(Right(Ttb_Codedéchet, 1)) Then   Ttb_Codedéchet = Left(Ttb_Codedéchet, Len(Ttb_Codedéchet) - 1) MsgBox "Veuillez saisir un chiffre" 'trouver une solution pour ne pas afficher la msgbox lorsque la txtbox est vide IsEmpty(Ttb_newdensit) n'a pas fonctionné... End If End Sub

---

Il ne me permet pas d'insérer des espaces entre les pars de chiffre.
Et lorsque j'efface ma saisie jusqu'a ce que mon textbox soit vide il m'affiche ma MsgBox, qui n'est pas nécessaire lorsque le textbox est vide.

Voyez-vous comment je puisse l'arranger?

D'avance merci!

re,
un exemple d'un autre code à adapter

Code:

---

1 2 3 4 5 6 7 8

Private Sub TELFIXEACHANGERF_Change() repert = TELFIXEACHANGERF.Text 'repert variable string Select Case Len(repert) Case 2, 5, 8, 11'là tu adaptes repert = repert & " " End Select TELFIXEACHANGERF.Text = repert End Sub

---

et dans l'evenement key

Code:

---

1 2 3

Private Sub Ttb_Codedéchet_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If InStr("1234567890", Chr(KeyAscii)) = 0 Then KeyAscii = 0 End sub

---

re,

J'arrive même pas à saisir un chiffre! Et je ne vois pas bien pourquoi...

Je pense qu'il fonctionnerait si le numéro était déjà saisi dans la textbox! non?

Lorsque je mets "Case 1":

Code:

---

1 2 3 4 5 6 7

Private Sub Ttb_Codedéchet_Change() reper = Ttb_Codedéchet.Value 'reper variable string Select Case Len(reper) Case 1, 3 'Endroit où insérer les espaces repert = repert & " " End Select Ttb_Codedéchet.Text = repert

---

un espace s'affiche quand j'appuie sur un chiffre, si j'appuis un deuxième l'espace disparait!?

as-tu déclarer la variable ?

Code:

---

repert as string

---

ou

Code:

---

reper as string

---

en début de procédure
mais maintenant je dois partir

Bonne journée

Merci beaucoup,

J'ai obtenu exactement ce que je voulais:

Code:

---

1 2 3 4 5 6 7

Dim reper As String reper = Ttb_Codedéchet.Text 'reper variable string Select Case Len(reper) Case 2, 5 'Endroit où insérer les espaces reper = reper & " " End Select Ttb_Codedéchet.Text = Left(reper, 8) 'Limite à 8 caractères

---

Bonne journée