Comment supprimer des lignes dont les dates ont plus de 7 jours Résolu/Fermé

Question

Bonjour, 

je voudrais supprimer les lignes dont les dates ont plus de 7 jours

merci

Configuration: Windows 7 / Internet Explorer 9.0

lermite222 · Answer

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+

kit24be · Answer

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

lermite222 · Answer

Re,
voir ton classeur en retour.
A+

kit24be · Answer

Désolé, je n arrive pas a ouvrir le fichier.

le code me suffirais

Merci beaucoup

lermite222 · Answer

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 SubA+

kit24be · Answer

j ai un probleme le code efface toute la page

kit24be · Answer

il me dit dossier corrompu

lermite222 · Answer

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+

kit24be · Answer

un trés grand merci

je vais voir ce que je peux faire

bonne soirée

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

9 réponses

Discussions similaires