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