formule conditionnelle qui me rend fou!

[kllmoon]

Bonjour le forum, j'ai la formule suivante

Sub Worksheet_Activate()
Range("A3:D100").Delete
For n = Sheets("Feuil1").Range("D65536").End(xlUp).Row To 4 Step -1
  If Date - Sheets("Feuil1").Range("D" & n) <= 7 Then If Sheets("Feuil1").Range("D" & n) >= -7 Then Sheets("Version Imprimable").Range("A" & n & ":D" & n) = Sheets("Feuil1").Range("A" & n & ":D" & n).Value
 MsgBox (Date - Sheets("Feuil1").Range("D" & n))
   Next n
       dd = Date - 7
dd2 = Date + 7
[A1].Value = "Alertes pour accouchements prévus entre le " & dd & " et le " & dd2
  Call trier
  End Sub

Le problème est que cette macro fait l'action peut importe le résultat des conditions. Si le calcul donne -45, ça copie... Moi je ne veux qu'un copir si la différence entre Date et Sheets("Feuil1").Range("D" & n) est comprise entre 7 et -7

J'ai beau me creuser les méninges et fouiller sur le forum, je ne trouve pas la solution. Quelque chose me dit qu'elle sera simple et que je vais faire "Mais oui! pourquoi n'y ais-je pas pensé!" Mais bon, votre aide serait grandement appréciée.

 

[kllmoon]

Re : formule conditionnelle qui me rend fou!

J'ai aussi essayé avec And mais sans même résultat.

 

[kllmoon]

Re : formule conditionnelle qui me rend fou!

Cool j'ai trouvé ma réponse vous pouvez effacer Petite erruer de ma part, je m'avais mal relu 0_o