Macro selon Date

Bonjour,

Je cherche à créer une macro qui serait lancée à l'ouverture du fichier concerné qui me permettrait de :
Supprimer les lignes correspondantes si la date (contenue en colonne D) est inférieur à la date d'aujourd'hui.
Exemple :
Prenons la ligne 3 : si la date contenue en D est inférieur à la date d'aujourd'hui, supprimer la ligne 3
Le fichier ne se limite pas à 15 lignes, je l'ai allégé.

Ci-joint le fichier pour plus d'explications

Il faut absolument que cela soit fait par macro.

Merci de votre aide

Pièce jointe 76990
:zoubi:

Bonjour lanainejulie,

Voilà le bout de code que tu dois inscrire dans le projet "ThisWorkbook" (et non pas dans un module), en changeant dans la liste déroulante en haut de la page de code "General" par "Workbook" (ce qui a pour effet de proposer "Private Sub Workbook_Open()", donc une exécution à l'ouveture du classeur).

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Workbook_Open()   Dim DateToDel As Long     For DateToDel = Range("A65536").End(xlUp).Row To 2 Step -1 If Cells(DateToDel, 5).Value < Now Then Rows(DateToDel).Delete   Next DateToDel   End Sub

---

Normalement ça devrait fonctionner, mais je ne te garantis rien car je suis vraiment un néophyte en VBA. Tiens-moi au courant, en espérant que ça marche !

Cordialement,

Runsh

Merci de ta réponse, mais visiblement la macro n'effectue rien, j'ai essayé de la lancer manuellement, mais aucunes données n'est supprimées or il devrait y en avoir.

J'ai peut-etre trouvé la solution mais pas sûre.

Voici le code que j'ai actuellement :

Code:

---

1 2 3 4 5 6 7 8

Sub MAJ Dim i   For i = 2 to 65536 If Range("D" & i).Value = Now Then Rows(i).delete Next i   End Sub

---

Je ne suis pas sûre que cela fonctionne