Boucle if avec comparaison de dates

Version imprimable

Bonjour à tous,

Je viens d'écrire le code suivant qui me permet d'afficher des msgbox si la date d'aujourd'hui est supérieure à la valeur de ma colonne Sendingdate + 15 jours ET si la colonne Alert1date est vide.

J'ai mis des cas concrets et il ne se passe rien et je n'ai aucun message d'erreur ...

Code:

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
29
30
31
32
33
 
Sub Relances()
Dim Rep As Integer
Dim SendingDate As Date
Dim Alert1date As Date
Dim Alert2date As Date
Dim Alert3date As Date
Dim Status As String
 
i = 5
Status = Range("I" & i).Value
 
Do
If Status = "Pending" Then
SendingDate = FormatDateTime(Range("J" & i).Value)
Alert1date = FormatDateTime(Range("K" & i).Value)
 
    If Date > (SendingDate + 15) And IsEmpty(Alert1date) Then
        MsgBox "Nouvelle alerte n°1 pour " & vbLf & vbLf & Range("A" & i).Value & "  " & Range("B" & i).Value, , "Nouvelle alerte"
        Rep = MsgBox("Avez vous envoyé le mail de relance ?", vbYesNo, "Mail de relance")
        Select Case Rep
        Case vbYes
        Alert1date = Date
        Range("N" & i).Value = "RELANCE N°2"
        End Select
 
    End If
End If
 
i = i + 1
Loop While i < 15
 
End Sub

29/10/2010, 18h44
PPz78

Bonjour,

Pour les cas comme le tien, il existe le mode pas à pas et le Debug (en passant la souris sur la variable dont tu souhaites connaître la valeur.

PPz
29/10/2010, 18h51
babaothe
salut

déjà : si tu ouvres ton aide sur IsEmpty, tu peux y lire ceci :

Citation:

La fonction IsEmpty renvoie la valeur True si la variable n'est pas initialisée ou contient une valeur de type Empty

or, tu as initialisé Alert1date !
Tiens ! fais donc cette petite expérience. Elle te permettra de mieux comprendre :
Code:

1 2 Dim d As Date If IsEmpty(d) Then MsgBox "vide"
Commence par corriger ce premier aspect :?

Bonjour,

Date comprend aussi les heures, les mn et les secondes
il faudrait ramener au jour
Code:

1 2 If ( CLng(Date) > CLng(SendingDate + 15) ) And IsEmpty(Alert1date) Then
par exemple
ou
Code:

1 2 If Format$(Date, "ddmmyyyy") <= Format$(SendingDate, "ddmmyyyy") Then

Merci pour votre aide ! Je laisse tomber la fonction Empty j'y comprends rien ...

Donc je repars la dessus mais j'ai l'impression que mon test

Code:

Format$(Alert1date, "ddmmyyyy") = ""

Code:

Format$(SendingDate, "ddmmyyyy") + 15

posent un problème ... Ma valeur de Alert1date est égal à 00:00:00 pourtant elle est sensée etre au format ddmmyyyy non ?

Comment dire simplement que la cellule Alert1date doit être vide ?

Code:

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
29
30
31
32
33
34
Sub Relances()
Dim Rep As Integer
Dim SendingDate As Date
Dim Alert1date As Date
Dim Alert2date As Date
Dim Alert3date As Date
Dim Status As String
 
 
i = 5
Status = Range("I" & i).Value
 
Do
If Status = "Pending" Then
SendingDate = FormatDateTime(Range("J" & i).Value)
Alert1date = FormatDateTime(Range("K" & i).Value)
Dim d As Date
 
    If Format$(Date, "ddmmyyyy") > Format$(SendingDate, "ddmmyyyy") + 15 And Format$(Alert1date, "ddmmyyyy") = "" Then
        MsgBox "Nouvelle alerte n°1 pour " & vbLf & vbLf & Range("A" & i).Value & "  " & Range("B" & i).Value, , "Nouvelle alerte"
        Rep = MsgBox("Avez vous envoyé le mail de relance ?", vbYesNo, "Mail de relance")
        Select Case Rep
        Case vbYes
        Alert1date = Date
        Range("N" & i).Value = "RELANCE N°2"
        End Select
 
    End If
End If
 
i = i + 1
Loop While i < 15
 
End Sub

02/11/2010, 16h59
AlainTech

Houla,

Tu fais des comparaisons et des calculs sur des Strings...
Il ne faut surtout pas convertir les dates en String si tu veux les manipuler.
Les seuls cas où c'est utile, c'est pour formater des noms de fichier ou des titres dans des documents.
Dans les autres cas, il faut laisser les dates en type (As) date.