Discussion :

[nono63]

Bonjour,

J'ai récupéré un code qui valide une saisie de date dans un champ textbox, aucun problème il fonctionne parfaitement mais je ne comprends pas la signification du 2 devant l'instruction "Select Case".
Si je le supprime la routine ne fonctionne plus !
Quand je consulte l'aide sur cette instruction il n'est pas mentionné ce genre d'écriture.
Quelqu'un peut-il m'expliquer l'intérêt de ce '2' et surtout sa fonction ?

@+

Nono

Ci-dessous une partie de ce 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
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
Sub ValidationDate(TextBox As Object)
Dim Reponse As Variant
Dim LaDate As String
 
 
2 Select Case Len(TextBox.Value)
    Case 1
        If CLng(TextBox.Value) > 3 Then
            Reponse = MsgBox("Le jour ne peut pas commencer par " & TextBox.Value, vbOKOnly, "Erreur de saisie")
            TextBox.Value = ""
            Exit Sub
        End If
    Case 2
        If CLng(TextBox.Value) > 31 Then
            Reponse = MsgBox("Le mois ne peut avoir plus de 31 jours", vbOKOnly, "Erreur de saisie")
            TextBox.Value = Left(TextBox.Value, 1)
            Exit Sub
        Else
            TextBox.Value = TextBox.Value & "/"
        End If
    Case 4
        If Right(TextBox.Value, 1) > 1 Then
            Reponse = MsgBox("L'année ne peut avoir plus de 12 mois", vbOKOnly, "Erreur de saisie")
            TextBox.Value = Left(TextBox.Value, 3)
            Exit Sub
        End If
    Case 5
        If CLng(Right(TextBox.Value, 2)) > 12 Then
            Reponse = MsgBox("L'année ne peut avoir plus de 12 mois", vbOKOnly, "Erreur de saisie")
            TextBox.Value = Left(TextBox.Value, 4)
            Exit Sub
        Else
            TextBox.Value = TextBox.Value & "/"
        End If
    Case 8
    LaDate = Left(TextBox.Value, 6) & "20" & Right(TextBox.Value, 2)
    If Not IsDate(LaDate) Then
        Reponse = MsgBox("Le " & TextBox.Value & " n'existe pas ", vbOKOnly, "Erreur de saisie")
        TextBox.Value = ""
        Exit Sub
    End If
    If CDate(LaDate) < DateMini Then
        Reponse = MsgBox("La date doit être postérieure au " & DateMini, vbOKOnly, "Erreur de saisie")
        TextBox.Value = ""
        Exit Sub
    End If
    If CDate(LaDate) > DateMaxi Then
        Reponse = MsgBox("La date doit être antérieure au " & DateMaxi, vbOKOnly, "Erreur de saisie")
        TextBox.Value = ""
        Exit Sub
    End If
    Valide = True
End Select
End Sub

[Invité]

Je ne suis pas sur mais généralement ça correspond à un 'Goto'. Le seul problème c'est qu'il n'y en a pas dans le code que tu as posté.

Exemple de la fonction 'Goto':

Code :

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

1
2
3
4
5
6
7
8
Option Explicit
 
Sub TestGoto()
 
1   Debug.Print ("Boucle infinie")
    GoTo 1
 
End Sub

[nono63]

Re,

Pourquoi ne puis-je pas le retirer ?

[SfJ5Rpw8]

Bonsoir,

que se passe-t-il lorsque tu le retire ?

[nono63]

Rien, comme si la sub n'était pas exécutée, le "select case" est comme non parcouru...