Discussion :

[clochette71]

Bonjour,
J aurai aimé savoir créer des masques de saisie dans textbox, du style un n° de téléphone ou des heures, etc...

ex: _ _/_ _

J'arrive à le faire dans une cellule mais par pour un userform

C est pour mon diplôme de fin d'étude, donc tout aide est le bien venu.
Je vous remercie d'avance

[Dolphy35]

Bonjour et bienvenue sur le Forum ,

petit code permettant de créer ton propre masque de saise

- Dans un premier temps tu définis le nombre max dans la zone
- puis le nombre de caractères entre chaque "/"

Code vba :

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

1
2
3
4
Private Sub MaZone_Change()
MaZone.MaxLength = 5 'Nombre de caratères max
If Len(MaZone) = 2 Then MaZone = MaZone & "/"
End Sub

Dolphy

[ouskel'n'or]

Tu peux aussi tester la saisie dans Exit

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Telephone_Exit(ByVal Cancel As MSForms.ReturnBoolean)
' Ex : format à respecter "06 33 33 33 33"
    If Not Telephone.text Like "?? ?? ?? ?? ??" and not Telephone.text = "" Then
        MsgBox "Saisie invalide, respecter le format(nn nn nn nn nn)"
        Cancel = True
        TextBox1.SetFocus
    endif
End Sub
 
Sub Heure_Exit(ByVal Cancel As MSForms.ReturnBoolean)
' Ex : format à respecter  = "12:15:35"
    If Not Heure.text Like "??:??:??" and not Heure.text = "" Then
        MsgBox "Saisie invalide, respecter le format(hh:mm:ss)"
        Cancel = True
        TextBox1.SetFocus
    End If
End sub

et ajouter un test sur l'aspect numéric de la saisie et sur le séparateur

Code :

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

1
2
3
Private Sub Heure_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not IsNumeric(Chr(KeyAscii)) And Not Chr(KeyAscii) = ":" Then KeyAscii = 0
End Sub

Dernier test qui dans les deux cas de saisie, efface le caractère saisi
A+