Encadrer une date...

[alias_2003]

Bonjour à tous,
je reviens vers vous avec une question... J'ai un code contenant la ligne

 If Date = Wks.Range("A" & i) Then
... suite du code

Est-il possible de modifier cette ligne pour que la condition devienne Wks.Range("A" & i) - 7 jours < Date <= Wks.Range("A" & i)?

Wks.Range("A" & i) contient une date au format dd/mm/yyyy

Merci encore de vos conseils,
Bonne journée,
Amicalement

 

[Gareth]

Re : Encadrer une date...

Bonjour,

Essaie comme ceci :

If Wks.Range("A" & i).Value - 7 < Date And Date <= Wks.Range("A" & i).Value Then

 

[alias_2003]

Re : Encadrer une date...

Bonjour Gareth,
Merci beaucoup de ta réponse, mais ça ne fonctionne pas... Pourtant ton code me semble logique...
Merci beaucoup,
Amicalement

 

[Gareth]

Re : Encadrer une date...

Bonsoir,

Chez moi ça semble fontionner.
Voir le fichier joint

 

[alias_2003]

Re : Encadrer une date...

Bonjour Gareth,
J'ai retesté ton code et effectivement, ça fonctionne très bien ! Merci beaucoup et désolé de m'être trompé...
Bonne journée,
Amicalement

 

[JCGL]

Re : Encadrer une date...

Bonjour à tous,

Un peu plus court :

Sub Test()
For i = 1 To 15
    Range("B" & i) = IIf(Feuil1.Range("A" & i) - 7 < Date And Date <= Feuil1.Range("A" & i), "OK", "KO")
Next
End Sub

A+ à tous

 

[alias_2003]

Re : Encadrer une date...

Bonjour JCGL,
merci beaucoup de ta réponse, je vais tester ton code !
Bonne journée,
Amicalement