Userform VBA Excel

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 :wink:

Igloobel

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.

Euh ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! 8O 8O 8O 8O 8O 8O 8O 8O

Citation:

---

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 :cry:

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

merci pour ton aide

Igloobel

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:

---

1 2 3 4

Private Sub TextBox1_Change() TextBox1.Text = LCase(TextBox1.Text) End Sub

---

Tout en majuscules

Code:

---

1 2 3 4

Private Sub TextBox1_Change() TextBox1.Text = UCase(TextBox1.Text) End Sub

---

jpleroisse

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:

---

1 2 3 4

Private Sub TextBox1_Change() TextBox1.Text = LCase(TextBox1.Text) End Sub

---

Tout en majuscules

Code:

---

1 2 3 4

Private Sub TextBox1_Change() TextBox1.Text = UCase(TextBox1.Text) End Sub

---

jpleroisse

bonjour

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

Code:

---

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:

---

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

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 :oops:

Mais en y réflechissant cela parrait logique :wink:

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

Merci à tous

Igloobel

merci de ce tuto.
super