Encadrer une date...

G

Gareth

XLDnaute Impliqué

• 29 Mars 2013

• #2

Re : Encadrer une date...

Bonjour,

Essaie comme ceci :

Code:

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

 

Vote positif 0 Vote négatif

A

alias_2003

XLDnaute Occasionnel

• 29 Mars 2013

• #3

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

 

Vote positif 0 Vote négatif

G

Gareth

XLDnaute Impliqué

• 29 Mars 2013

• #4

Re : Encadrer une date...

Bonsoir,

Chez moi ça semble fontionner.
Voir le fichier joint

 

Pièces jointes

• Classeur1.xls

  39 KB · Affichages: 63
• Classeur1.xls

  39 KB · Affichages: 72
• Classeur1.xls

  39 KB · Affichages: 73

Vote positif 0 Vote négatif

A

alias_2003

XLDnaute Occasionnel

• 30 Mars 2013

• #5

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 30 Mars 2013

• #6

Re : Encadrer une date...

Bonjour à tous,

Un peu plus court :

VB:

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

 

Vote positif 0 Vote négatif

A

alias_2003

XLDnaute Occasionnel

• 30 Mars 2013

• #7

Re : Encadrer une date...

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

 

Vote positif 0 Vote négatif