Bonjour,

J'ai écrit le code ci-dessous avec la gestion d'erreur si ce n'est pas une date qui est saisie.
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
17
18
19
20
21
22
23
24
25
26
27
28
Sub Date_Connexion()
 
Dim DateConnexion As Date
Dim Lignefin As Integer
 
On Error GoTo erreur_date
 
'La sélection se fait sur la date de clôture dans l'extranet
 
DateConnexion = InputBox("Quelle est la date de dernière connexion souhaitée ? (jj/mm/aa)", "Date dernière connexion")
Range("D2").Value = "Inscrit après le " & DateConnexion
Columns("D:D").EntireColumn.autofit
 
Lignefin = ActiveWorkbook.Sheets(1).Range("A65536").End(xlUp).Row
For i = 3 To Lignefin
    If Range("C" & i).Value < DateConnexion Then
        Range("D" & i).Value = "NON"
        Else: Range("D" & i).Value = ""
    End If
Next i
 
Exit Sub
 
erreur_date:
MsgBox ("Vous devez saisir une date au format jj/mm/aa")
Resume
 
End Sub
Par contre je ne sais pas sortir si l'utilisateur clique sur annuler.

En effet si je mets
Code : Sélectionner tout - Visualiser dans une fenêtre à part
if DateCOnnexion="" then Exit Sub
Le programme saute jusqu'au Exit Sub et m'affiche en boucle la msgbox.

Quelqu'un aurait-il une idée ?

Cdlt.