Discussion :

[will-1981]

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 :

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
 
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

[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.

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.

[NVCfrm]

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.

[Docmarti]

Bonjour.

Pour illustrer les explications de Menhir et de NVCfrm :

Code :

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

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

[will-1981]

Merci à vous ça fonctionne :-)

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

Bonne journée à vous,
Will