Comment supprimer des lignes dont les dates ont plus de 7 jours
Résolu/Fermé
A voir également:
- Comment supprimer des lignes dont les dates ont plus de 7 jours
- Comment supprimer une page sur word - Guide
- Supprimer compte instagram - Guide
- Comment récupérer les messages supprimés sur whatsapp - Guide
- Passer de windows 7 à windows 10 - Guide
- Comment supprimer bing - Guide
9 réponses
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
18 janv. 2013 à 13:05
18 janv. 2013 à 13:05
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+
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
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
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
18 janv. 2013 à 18:50
18 janv. 2013 à 18:50
Re,
voir ton classeur en retour.
A+
voir ton classeur en retour.
A+
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
18 janv. 2013 à 19:51
18 janv. 2013 à 19:51
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+
j ai un probleme le code efface toute la page
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
18 janv. 2013 à 20:20
18 janv. 2013 à 20:20
pourquoi tu sais pas ouvrir mon classeur ?
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
18 janv. 2013 à 20:29
18 janv. 2013 à 20:29
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+
Sinon, désolé mais je peu rien de plus pour toi, le classeur est fonctionnel et le code aussi.
A+
