Discussion :

[vincenus33]

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 :

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

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

[ucfoutu]

Bonjour,

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

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

Code :

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

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é ...

[vincenus33]

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

[Delbeke]

En controlant tes donées dans le form_querryunload

Code :

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

1
2
3
4
5
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  If DonneesIncorrectes then
    Cancel = true
  End If
End Sub

[OhMonBato]

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

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