Discussion :

[Igloobel]

Bonjour à tous

Je suis en train de créer un userform sous Excel et je cherche à mettre un masque de saisie un peu comme ce qui existe sous Access et j'ai beau cherché depuis la fin de matiné et je ne trouve pas dans les propriétés de la zone de saisie. Ma question est : Y a-t-il la possibilité mettre dans mon userform un masque de saisie?

Je travail sous Excel 2000

J'en suis à me demander si c'est quelque chose qui existe sous Excel

Merci pour vos réponses éclairés

Igloobel

[Megaxel]

Non, je ne crois pas que ça existe sous Excel. En VB, il y a je crois (je n'ai pas VB) l'objet RichTextBox, mais il n'existe pas avec Excel.
Selon ce que tu veux faire, tu peux cependant te débrouiller en interceptant la frappe d'une touche du clavier lors de la saisie, et modifier le contenu. J'avais fait ça pour mettre des séparateurs de milliers en cours de frappe dans un textbox.
Et je ne sais plus qui avait donné une solution pour le faire.
Je vais faire une recherhce pour voir si je retrouve ce post.

Je l'ai retrouvé: le but était de forcer la casse en minuscule en cours de frappe. Recherche le post qui s'intitule: "Saisie Clavier dans un contrôle TextBox".
J'espère que tu pourras l'adapter à ton besoin.

[Igloobel]

Euh ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !

Je l'ai retrouvé: le but était de forcer la casse en minuscule en cours de frappe.

Bon c'est vrai j'aurais pu préciser que c'est une date que je veux mettre dans mon textbox.

Juste une précision J'ai Excel 2000 et pas VB. De plus je maitrise pas VB et je suis tout seul chez le client qui veut pas changer veut que ce soit de l'Excel point barre

Ceci dit que veux-tu dire par forcer la casse je ne comprend pas.

merci pour ton aide

Igloobel

[leroissejp]

Bonsoir,
Forcer la casse celà veut dire que si tu écris en minuscule le texte sera directement en Majuscule où l'inverse.
Regarde ces 2 codes.

Tout en minuscules

Code :

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

1
2
3
4
 
Private Sub TextBox1_Change()
TextBox1.Text = LCase(TextBox1.Text)
End Sub

Tout en majuscules

Code :

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

1
2
3
4
 
Private Sub TextBox1_Change()
TextBox1.Text = UCase(TextBox1.Text)
End Sub

jpleroisse

[leroissejp]

Re,
Excuse moi, je reposte car je me suis embrouillé dans les codes.

Forcer la casse celà veut dire que si tu écris en minuscule le texte sera directement en Majuscule où l'inverse.
Regarde ces 2 codes.

Tout en minuscules

Code :

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

1
2
3
4
 
Private Sub TextBox1_Change()
TextBox1.Text = LCase(TextBox1.Text)
End Sub

Tout en majuscules

Code :

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

1
2
3
4
 
Private Sub TextBox1_Change()
TextBox1.Text = UCase(TextBox1.Text)
End Sub

jpleroisse

[SilkyRoad]

bonjour

tu peux par exemple utiliser cette macro pour forcer un format xx/xx/xxxx dans le TextBox

Code :

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

1
2
3
4
5
6
7
8
Private Sub TextBox1_Change()
'exemple pour format xx/xx/xxxx
Dim Valeur As Byte
TextBox1.MaxLength = 10 'nb caracteres maxi dans textbox
 
Valeur = Len(TextBox1)
If Valeur = 2 Or Valeur = 5 Then TextBox1 = TextBox1 & "/"
End Sub

ensuite pour verifier que c'est bien une date qui a été saisie

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
    If Not IsDate(TextBox1.Value) Then
        MsgBox "Format incorrect"
        TextBox1 = ""
        Exit Sub
        Else
        MsgBox "Format correct"
        '...la suite de la procedure
    End If
End Sub

cordialement
michel

[Igloobel]

Merci à toi : leroissejp pour ton explication sur "forcer la casse"
et
Merci à toi : SilkyRoad pour ton exemple, je ne savais pas que l'on pouvais inclure dans un userform du code controllant un textbox

Mais en y réflechissant cela parrait logique

J'en conclu que l'on est obligé de coder le masque de saisie

Merci à tous

Igloobel

[bidochon34800]

merci de ce tuto.
super