Discussion :

[ghitarais]

Bonjour, à tous je voudrais vous demander quel est le script en VBA qui permet de supprimer les lignes si la date de la création de l'article fixée est supérieur à 365 jours de la date d'aujourd'hui par exemple, si la date a été crée le 21/07/2018 et on est aujourd'hui le 21/07/2019 il faut que Excel la supprime.

N'hésitez pas à me demander le fichier dans lequel je travaille

Cordialement, Ghita

[Menhir]

Une solution simple et basique (il y en a certainement de nombreuses autres plus rapides et subtiles) : Faire une boucle For To Step -1 sur l'ensemble des lignes, vérifier la date avec un test If Then et, s'il est positif, supprimer la ligne avec un Row.Delete.

Cela dit, il doit être possible de faire ça sans VBA avec un filtre avancé : http://philippetulliez.developpez.co...dvancedfilter/

[BENNASR]

Bonjour
si la date de création en colonne A essayer avec

Code :

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

1
2
3
4
5
6
7
Sub nettoyer()
      For i = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
             If Date - Cells(i, 1) > 365 Then
             Cells(i, 1).EntireRow.Delete
             End If
       Next i
End Sub

BONNE JOURNÉE A TOUS

[patricktoulon]

bonjour
oh! que oui il y a beaucoup plus simple et rapide
un simple autofilter
exemple en colonne a j'ai des dates

Code :

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

1
2
3
4
5
6
7
8
Sub test()
    limit_date = DateSerial(Year(Date), Month(Date), Day(Date) - 365)
     With ActiveSheet.Range("A1:A1000")
        .AutoFilter Field:=1, Criteria1:="<" & CLng(limit_date)
        MsgBox "il ne reste plus qua suprimer le range(""" & .SpecialCells(xlVisible).Address & """)"
    .autofilter ' on enleve le filtre
     End With
End Sub

pour supprimer c'est

Code :

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

.SpecialCells(xlVisible).entirerow.delete

[ghitarais]

Bonjour,

Merci pour votre réponse, pourriez-vous m'eclaircir davantage votre explication, car je suis très débutante en VBA est ce que je dois insérer le code dans module ou dans la feuille ?

Merci beaucoup

[patricktoulon]

re
dans un module si tu veux y avoir acces de n'importe ou dans le classeur dans le sheets concerné si tu veux travailler pendant que celui ci est activé

[ghitarais]

Bonjour,

Le code n'a pas du tout marché. Je vous envoie le fichier, si ça ne vous dérangerait pas. Merci beauucoup!

[Menhir]

Le code n'a pas du tout marché.

Wao ! Tu fais vraiment de gros efforts pour décrire ce dysfonctionnement dans le détail.

Je vous envoie le fichier, si ça ne vous dérangerait pas. Merci beauucoup!

[patricktoulon]

re
c'est vrai que maurice il a mangé tout le chocolat

sincerement une petite macro de 2 ligne qui a été testé et qui ne fonctionne pas chez toi sans relever de numero ou description de l'erreur serait un si gros effort ?serieux!!??
quelque chose me dit que certaines bases ne sont pas aquises

comme aujourd'hui tout le monde s'aime (on est champi(gn)on du monde ) je te met sur la voie

regarde la capture et dis moi dans quelle colonne sont tes dates
@menhir cui cui!!cui!!!

[ghitarais]

Haha c'est pas bien de se moquer des débutants hein ?

Oui j'ai modifié la colonne et pourtant, on me dit qu'il y'a une erreur d'execution "1004"

Je vous remercie d'avance!!!

[patricktoulon]

re
par rapport a ton exemple en determinant automatiquement la derniere ligne en "B"

Code :

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

1
2
3
4
5
6
7
8
Sub test()
    limit_date = DateSerial(Year(Date), Month(Date), Day(Date) - 365)
     With ActiveSheet.Range("B11", Cells(Rows.Count, "B").End(xlUp))
        .AutoFilter Field:=1, Criteria1:="<" & CLng(limit_date)
        MsgBox "il ne reste plus qua suprimer le range(""" & .SpecialCells(xlVisible).Address & """)"
    .AutoFilter ' on enleve le filtre
     End With
End Sub

pour la suppression relire le post 4

[ghitarais]

J'ai mis le code que vous m'avez envoyé par contre pour la suppression (post4) je devrais la mettre où ?

Cordialement, Ghita

[patricktoulon]

re
ma fois ala place du msgbox pardi

Code :

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

.SpecialCells(xlVisible).entirerow.delete

[Menhir]

on me dit qu'il y'a une erreur d'execution "1004"

Encore un petit effort et je suis sûr que tu vas parvenir à nous donner la description du message d'erreur...

Haha c'est pas bien de se moquer des débutants hein ?

Je ne me moque pas des débutants, je me moques des ennemis du moindre effort.

[Iron_Mike]

Bonjour,

Le script de PatrickToulon fonctionne très bien par contre je ne retrouve plus mes lignes dates qui ne sont pas encore expirés, il me supprime tout. Par contre le filtre marche bien car il me sélectionne que les dates expirées. Pourriez vous m'aider? Un grand merci