Discussion :

[Scrabblouille]

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.

[Daniel.C]

Bonsoir,
Oui, tu boucles sur l'InputBox jusqu'à récupérer une saisie correcte, sinon, mets :

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
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")
End Sub

[Scrabblouille]

Bonsoir,

Merci, mais en enlevant le "Resume" je n'ai plus de boucle infinie si l'utilisateur clique sur annuler par contre je perd également la boucle tant que la saisie est incorrecte.

En résumé, ce que je souhaiterais c'est :
1. Boucler tant que la saisie est incorrecte.
2. Sortir de la macro si le bouton "Annuler" est cliqué.

Bonne soirée.

[Scrabblouille]

Ca y est j'ai trouvé la solution.

Au lieu d'utiliser la fonction Inputbox j'utilise la méthode Inputbox.

Ca à l'air pareil mais ne l'est pas. Voici ce que ça donne :

Code :

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

1
2
3
DateConnexion = Application.InputBox _
("Quelle est la date de dernière connexion souhaitée ? (jj/mm/aa)", "Date dernière connexion")
If DateConnexion = False Then Exit Sub

Cdlt.