InputBox : tant que la valeur n'est pas une Heure valide.

[Yaloo]

Bonjour à tous,

Je cherche le moyen avec l'aide d'un InputBox (ou autre) d'avoir une heure.
Tant que l'on ne rentre pas une heure l'InputBox réapparait.

Merci d'avance

Martial

 

[camarchepas]

Re : InputBox : tant que la valeur n'est pas une Heure valide.

Bonsoir ,

une possibilité , en appuyant sur mon sourire

 

[job75]

Re : InputBox : tant que la valeur n'est pas une Heure valide.

Bonsoir Martial,

Ce code par exemple :

Sub Heure()
Dim t$
1 t = InputBox("Entrez une heure :", "Heure", t)
If t = "" Then Exit Sub 'facultatif
On Error Resume Next
If CDate(t) >= 1 Then GoTo 1
On Error GoTo 0
MsgBox "OK, à suivre..." 'pour tester
End Sub

Edit : bonsoir à toi aussi camarchepas.

Bonne fin de soirée et A+

 

[job75]

Re : InputBox : tant que la valeur n'est pas une Heure valide.

Re,

Pour tester ceci est quand même mieux :

Sub Heure()
Dim t As Variant
1 t = InputBox("Entrez une heure :", "Heure", t)
If t = "" Then Exit Sub 'facultatif
On Error Resume Next
If CDate(t) >= 1 Then GoTo 1
On Error GoTo 0
t = CDate(t)
MsgBox Format(t, "hh:mm") 'pour tester
End Sub

A+

 

[camarchepas]

Re : InputBox : tant que la valeur n'est pas une Heure valide.

Bonsoir Job ,

Je ne vois pas les : sur ton étiquette de saut ,

Mes yeux qui fatiguent , je pense

 

[job75]

Re : InputBox : tant que la valeur n'est pas une Heure valide.

Re camarche pas,

Pas besoin d'imposer les ":" dans mon code.

Avec ma dernière macro teste avec 12.0 c'est bien une heure !

Curieux n'est-ce pas ?

A+

 

[camarchepas]

Re : InputBox : tant que la valeur n'est pas une Heure valide.

Et oui ,

en plus ca marche , lol

 

[Yaloo]

Re : InputBox : tant que la valeur n'est pas une Heure valide.

Bonjour camarchepas, Job🙂,

Merci à vous 2, les deux solutions fonctionnent très bien.

A+

Martial