date echeance

[Mitch]

Bonsoir je cherche une macro qui me supprimerais des cellules a une date passer .
En cellule D j'ai une date ex :20/01/11 je voudrais qu'une fois la date passer le 21/01/11 les cellules de la même ligne s'efface ( cellule A,B,C,D,E,F ) et si possible que les lignes suivante remonte pour ne pas laisser de ligne vide
Merci

 

[Pierrot93]

Re : date echeance

Bonjour,

essaye peut être ceci, à placer dans le module "thisworkbook", se déclenche à l'ouverture du classeur...

Option Explicit
Sub Workbook_Open()
If Range("D1").Value < Date Then Range("A1:F1").Delete xlShiftUp
End Sub

bonne journée
@+

 

[Mitch]

Re : date echeance

Bonjour Pierrot 93 j'ai déja une macro Sub Workbook_Open() donc erreur et j'ai d'autres date dans d'autre feuilles comment lui indiquer quelle feuille ( planning )

 

[Pierrot93]

Re : date echeance

Re,

préciser le nom de la feuille concernée...

Option Explicit
Sub Workbook_Open()
If Sheets("NomFeuille").Range("D1").Value < Date Then Sheets("NomFeuille").Range("A1:F1").Delete xlShiftUp
End Sub

tu ne peux avoir qu'un seul événement "open" pour un classeur donné.... il faut grouper tes instructions dans cette même procédures...

bonne soirée
@+

 

[Mitch]

Re : date echeance

Merci Pierrot93 est bonne journée
je revient vers toi car j'ai un petit souci mes cellules a effacer partent de la ligne 3 j'ai donc changer en fonction de ça mes il reste toujours des lignes
If Sheets("planning").Range("D3").Value < Date Then Sheets("planning").Range("A3:F3").Delete xlShiftUp