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

camarchepas

XLDnaute Barbatruc

• 6 Juillet 2014

• #2

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

Bonsoir ,

une possibilité , en appuyant sur mon sourire

 

Pièces jointes

• Heure.xlsm

  15.3 KB · Affichages: 22

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Juillet 2014

• #3

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

Bonsoir Martial,

Ce code par exemple :

Code:

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+

 

Dernière édition: 6 Juillet 2014

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Juillet 2014

• #4

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

Re,

Pour tester ceci est quand même mieux :

Code:

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+

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 6 Juillet 2014

• #5

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Juillet 2014

• #6

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+

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 7 Juillet 2014

• #7

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

Et oui ,

en plus ca marche , lol

 

Dernière édition: 7 Juillet 2014

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 7 Juillet 2014

• #8

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

 

Vote positif 0 Vote négatif