insérer un % dans une TextBox

Bonjour à tous,

sur un fichier pdf du site, j'ai trouver le code suivant pour forcer un format de date type jj/mm/aaaa dans une TextBox:

Code:

---

1 2 3 4 5 6 7

Private Sub TextBox1_Change() Dim valeur As Byte TextBox1.MaxLength = 10 'nb maxi de caractères autorisés dans le TextBox valeur = Len(TextBox1) If valeur = 2 Or valeur = 5 Then TextBox1 = delaiSouhaiteTextBox1 & "/"   End Sub

---

Mon problème est que je n'arrive pas à adapter cette instruction pour une autre textBox où un pourcentage doit être inscrit. Je souhaiterai que le symbole % apparaisse pour un pourcentage à 1, 2, ou 3 chiffre.

merci beaucoup

Bonjour,

Pourcentage tout seul ne veut pas dire grand-chose...

Mais bon... si celà t'arrange :

Code:

---

1 2 3 4 5

Private Sub Command1_Click() Dim toto As String toto = "2.1" MsgBox Format(Val(toto), "#.00 %") End Sub

---

Le reste sous ta seule responsabilité ...

Bonjour à tous

j'ai une nouvelle question sur mon UserForm
tous fonctionne bien mais j'aurai besoin d'ajouter un contrôle.
j'ai une instruction qui fonctionne et qui me permet de vérifier si les dates sont au format jj/mm/aaaa
si la date est incorrect la MsgBox apparait bien lorsque je clique sur la touche OK de mon userform. Elle se ferme et inscrit quand même le mauvais format de date dans la case prévue à cette effet!!

Comment faire pour que, si le format de date est incorrect et que l'on clique sur le bouton OK, la userform reste ouverte tant que la date n'a pas été modifier.

merci

En controlant tes donées dans le form_querryunload

Code:

---

1 2 3 4 5

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If DonneesIncorrectes then Cancel = true End If End Sub

---

Ce serait bien si tu nous montrais le code que tu as écrit mais tu pourrais avoir un truc comme ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub CmdOk_Click() Dim VerifDate As Boolean VerifDate = fonction de verification de date If VerifDate = False Then MsgBox "La date n'est pas bonne", vbExclamation, "Erreur" Else 'La date est bonne Unload Me End If End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) 'Si l'utilisateur cherche à fermer la fenêtre en lciquant sur la croix de fermeture de celle ci If UnloadMode = vbFormControlMenu Then CmdOk_Click End Sub

---