Comment supprimer des lignes dont les dates ont plus de 7 jours

[Résolu/Fermé]
Signaler
-
 kit24be -
Bonjour,

je voudrais supprimer les lignes dont les dates ont plus de 7 jours

merci

9 réponses

Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 175
Bonjour,
Un exemple de ton classeur (sans données confidentielles) aiderait à résoudre ton problème.
Tu peu le déposé sur Cjoint.com (ou autre).
A+
Bonjour, volci le lien.

je desire supprimer les lignes du 11/01 et demain les lignes du 12/01 et ainsi de suite. jz veux simplement garder les données 7 jours.
merci beaucoup


http://cjoint.com/?3Asp7M3uMOW
Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 175
Re,
voir ton classeur en retour.
A+
Désolé, je n arrive pas a ouvrir le fichier.

le code me suffirais

Merci beaucoup
Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 175
Comprend pas, j'ai recharger le classeur et tout est normal, enfin bref..
Private Sub CommandButton1_Click()
Dim D As Date
Dim Lig As Long
Dim DerLig As Long
    DerLig = Cells(Rows.Count, 1).End(xlUp).Row
    D = Date - Day(7)
    For Lig = DerLig To 1 Step -1
        If Cells(Lig, 1) <> "" And Cells(Lig, 1) = D Then Exit For
    Next Lig
    Rows(Lig + 1 & ":" & DerLig).Delete
End Sub
A+

j ai un probleme le code efface toute la page
Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 175
pourquoi tu sais pas ouvrir mon classeur ?
il me dit dossier corrompu
Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 175
Faut voir au niveau de la sécurité de ton PC:
Sinon, désolé mais je peu rien de plus pour toi, le classeur est fonctionnel et le code aussi.
A+
un trés grand merci

je vais voir ce que je peux faire

bonne soirée