Discussion :

[lanainejulie]

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

Classeur2.xls

[Runsh63]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[lanainejulie]

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.

[lanainejulie]

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

Voici le code que j'ai actuellement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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