Problème avec inputbox
stepaustral
Messages postés
54
Date d'inscription
dimanche 5 janvier 2003
Statut
Membre
Dernière intervention
29 juillet 2012
-
16 oct. 2003 à 15:27
stepaustral Messages postés 54 Date d'inscription dimanche 5 janvier 2003 Statut Membre Dernière intervention 29 juillet 2012 - 16 oct. 2003 à 19:50
stepaustral Messages postés 54 Date d'inscription dimanche 5 janvier 2003 Statut Membre Dernière intervention 29 juillet 2012 - 16 oct. 2003 à 19:50
2 réponses
stabe
Messages postés
144
Date d'inscription
lundi 23 décembre 2002
Statut
Membre
Dernière intervention
17 juin 2006
16 oct. 2003 à 15:56
16 oct. 2003 à 15:56
Quand tu fais annuler dans une inputbox, ça te renvoie une chaine vide donc tu as alors date1 = ""
Mais comme tu as déclaré date1 de type Date, ça fait boom ("" n'est pas un format de date valide)
Une solution (parmi d'autres) :
dim r as string
r = InputBox("De la date :", "Date", Format("01/01/" & Year(Date), "dd/mm/yyyy"))
'format de date invalide ou appuie sur Annuler ?
if not isdate(r) then exit sub
date1 = cdate(r)
...
-- stabe --
Mais comme tu as déclaré date1 de type Date, ça fait boom ("" n'est pas un format de date valide)
Une solution (parmi d'autres) :
dim r as string
r = InputBox("De la date :", "Date", Format("01/01/" & Year(Date), "dd/mm/yyyy"))
'format de date invalide ou appuie sur Annuler ?
if not isdate(r) then exit sub
date1 = cdate(r)
...
-- stabe --
stepaustral
Messages postés
54
Date d'inscription
dimanche 5 janvier 2003
Statut
Membre
Dernière intervention
29 juillet 2012
16 oct. 2003 à 19:50
16 oct. 2003 à 19:50
cool ca fonctionne je te remerci ;) donc je remet le code en entier en faite c juste le debut modifié pour ceux que ca interesserais
Private Sub Impr_Click()
Dim DATE1 As String
Dim DATEx As Date
Dim entree As String
Dim SORTIE As String
Dim TENTREE As String
Dim TSORTIE As String
Dim OBSERV As String
Dim RESTE As String
Dim T
Dim Chaine As String
DATE1 = InputBox("De la date :", "Date", Format("01/01/" & Year(Date), "dd/mm/yyyy"))
If Not IsDate(DATE1) Then Exit Sub
Private Sub Impr_Click()
Dim DATE1 As String
Dim DATEx As Date
Dim entree As String
Dim SORTIE As String
Dim TENTREE As String
Dim TSORTIE As String
Dim OBSERV As String
Dim RESTE As String
Dim T
Dim Chaine As String
DATE1 = InputBox("De la date :", "Date", Format("01/01/" & Year(Date), "dd/mm/yyyy"))
If Not IsDate(DATE1) Then Exit Sub
