Utilisation du bouton Annuler de inputbox comme sortie d'instruction pour une date

Bonjour,

Comment puis je me servir de ce bouton de l'inputbox comme une sortie d'intruction. j'ai vu différentes chose mais je n'ai pas réussi à sortir de l'instruction suite à une date.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub calculEFF2() 'On Error GoTo fin: Dim Duree As Double, T As Double   Dim wsPP As Worksheet, Activite As String, Nbrediag As Long, date_deb As Date   Set wsPP = Sheets("Planning du personnel")   With wsPP finlist = .Range("A1000").End(xlUp).Row fincol = .Range("XFD5").End(xlToLeft).Column debut: date_deb = InputBox("Quelle sera la date de début du calcul", "Date ?", Date) If date_deb = "00:00:00" Then Exit Sub ...

---

Merci pour votre aide.
Will

Ton code ne peut pas marcher pour une raison très simple : InputBox ne renvoie que des String, il ne gère pas les dates.
Peut-être qu'il peut convertir une valeur date en entrée comme valeur par défaut mais il renvoie un String.

L'appui sur le bouton Annuler renvoie une chaîne vide.

Mets un "Stop" entre ton InputBox et le If qui suit et regarde le contenu de la variable date_deb quand ce Stop est déclenché après un appui sur le Annuler du InputBox.

Citation:

---

Envoyé par Menhir

Ton code ne peut pas marcher pour une raison très simple : InputBox ne renvoie que des String, il ne gère pas les dates.
Peut-être qu'il peut convertir une valeur date en entrée comme valeur par défaut mais il renvoie un String.

---

La conversion est toujours implicite. Il suffit que le texte corresponde au format attendu par la variable.
InputBox reconnaît le type d'une donnée entrée et le renvoi. Long, Date, Double, String...
Beaucoup préférent de recueillir ce renvoi dans un String parce qu'on ne peut faire confiance à ce que l'utilisateur va rentrer, pour évier une incompatibilité de type.
Mon avis est qu'il vaut mieux typer la variable dans le type attendu pour ne pas continuer avec une saisie incorrecte.

Bonjour.

Pour illustrer les explications de Menhir et de NVCfrm :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim reponse As String reponse = InputBox("Date ?", "Quelle sera la date de début du calcul", Date) If reponse = "" Then Exit Sub ElseIf Not IsDate(reponse) Then 'On doit vérifier que la valeur retournée par InputBox est une date valide pour ne pas que date_deb = reponse provoque une erreur car date_deb qui est de type DATE MsgBox reponse & " n'est pas un format de date reconnu. " Exit Sub Else date_deb = reponse ' La date de type STRING qui est dans reponse est convertie en date de type DATE lorsque attribuée à la variable date_deb. End If

---

Merci à vous ça fonctionne :-)

Et Docmarti encore plus à toi pour avoir mis en code ce que disait Menhir.

Bonne journée à vous,
Will