Discussion :

[js8bleu]

Bonjour,

je souhaiterai contrôler les minutes d'un textbox. En fait, j'ai un textbox (format texte) dans lequel je saisis l'heure (au format 16:59 par exemple) mais je ne sais pas comment extraire uniquement les deux derniers caractères (ici le 59) à partir de la troisième position afin de pouvoir faire le test pour que les minutes soient < 60 et dans le même sens faire de telle sorte que les heures soient < 24. Merci d'avance.

NB : pour contrôler les minutes, j'ai essayé :

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
    pos6 = InStr(4, txtheure.Text, "6", 1)
    pos7 = InStr(4, txtheure.Text, "7", 1)
    pos8 = InStr(4, txtheure.Text, "8", 1)
    pos9 = InStr(4, txtheure.Text, "9", 1)
    If pos6 Then
        MsgBox "Veuillez resaisir les minutes svp!"
        txtheure.SetFocus
    ElseIf pos7 Then
        MsgBox "Veuillez resaisir les minutes svp!"
        txtheure.SetFocus
    ElseIf pos8 Then
        MsgBox "Veuillez resaisir les minutes svp!"
        txtheure.SetFocus
    ElseIf pos9 Then
        MsgBox "Veuillez resaisir les minutes svp!"
        txtheure.SetFocus
    Else
    End If

mais le problème est que même pour 16:48 il m'affiche l'erreur.

Cordialement

[ucfoutu]

Bonsoir (et bien que je préfère personnellement contrôler "au vol" et non in fine ) :

Une chose du genre (pour un simple contrôle in fine) :

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
Private Sub Command1_Click()
  Select Case IsDate(Text1.Text)
    Case True
      Exit Sub
    Case False
      If Len(Text1.Text) < 5 Then
        MsgBox "heure non saisie ou incomplète"
      ElseIf Val(Text1.Text) > 23 Then
        MsgBox "heure fausse"
      ElseIf Mid(Text1.Text, 3, 1) <> ":" Then
        MsgBox "séparateur faux"
      Else
        MsgBox "minutes fausses"
      End If
  End Select
 
End Sub

[js8bleu]

Ok, Merci. Je vais essayer et je vous tiens au courant. Excellente journée.

Cordialement.

[Delbeke]

Une astuce

Code :

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

MsgBox Format("01/01/1900 01:" & Text1.Text, "ss")

[js8bleu]

Bonsoir à tous,

coooooool! Rien à dire, ça marche à merveille, c'est vraiment ce que je recherchais. Merci.

Cordialement