Discussion :

[Nico451]

Bonjour,

J'ai un souci avec la fonction de vérification car si je met 45/14/19 avec le format dd/mm/yy, le format de la date passe sans message d'erreur

Voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub TextBox5_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
 
    If KeyCode = 13 Then
 
        If IsDate(TextBox5.Value) And TextBox5.Value Like "##/##/##" Then
            TextBox18.Enabled = True
            TextBox18.BackColor = RGB(255, 255, 255)
        Else
            MsgBox "Entrer une date valide"
            TextBox5.Value = ""
            Me.TextBox5.SetFocus
       End If
    End If
End Sub

Petite Question bonus : pourquoi je ne reviens pas à mon TextBox5 avec le SetFocus?

Merci d'avance.

[unparia]

Bonjour
Drôle d'idée que celle de tester si la touche ENTER a été utilisée.
L'évènement exit existe et est doté d'un paramètre cancel (to cancel = annuler).
regarde ce que fait ceci (exemple)

Code :

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

1
2
3
4
5
6
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 If Not IsDate(TextBox1.Text) Then
   MsgBox "non"
   Cancel = True
 End If
End Sub

PS sans préjuger du bien fondé de ta manière de contrôler. Je ne traite ici que l'aspect que tu as dénoncé (rien d'autre).

[Nico451]

Merci, je débute en codage VBA. Pour comprendre et faire mon code je vais sur les forums, je regarde les aides et les tutos, mais je n'ai pas eu de formation.

Je ne connais pas tous ce qui est possible de faire et comment réagisse chaque fonction, chaque action, chaque combinaison.

Je pense que l'intégralité de mon code peux être simplifier, mais pour le moment j'essais de voire comment je peux me débrouiller. Mais quand je bloque comme j'appel à l'aide.

Je suis preneur de tous les truc et astuce, les simplifications, les conseils et les explications.

Je voudrait vérifier si c'est bien au format jj/mm/aa

[unparia]

Ce forum est assorti de plusieurs didacticiels, etc ...
Je te conseille de les lire attentivement avant de te précipiter pour exposer une difficulté. Et ce : d'autant plus que tu débutes.
Il y en a un qui concerne très précisément le traitement des dates.
Regarde ce que fait par exemple ce petit bout de code bâclé :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   Dim couic As Boolean
   If IsDate(TextBox1.Text) Then
     couic = Val(CDate(TextBox1.Text)) <> Split(TextBox1.Text, "/")(0)
   Else
     couic = True
   End If
   Cancel = couic
   If couic Then MsgBox "NON !"
End Sub