Discussion :

[deamonRav]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[casefayere]

re,
un exemple d'un autre code à adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[deamonRav]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!?

[casefayere]

as-tu déclarer la variable ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

repert as string

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

reper as string

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

Bonne journée

[deamonRav]

Merci beaucoup,

J'ai obtenu exactement ce que je voulais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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