conserver qu les données de la semaine précedente

[philmaure]

bonjour chaque lundi je dois filtrer des fichiers pour ne conserver que les données de la semaine précédente.

Dans l'exemple mis en pj, il faudrait supprimer toutes les données antérieures à la S28.
J'ai coloré en jaune les données à conserver

Existe t il une solution pour faire cela en vba ?


Merci pour votre aide.

Cdlt
Philmaure

 

[pierrejean]

Bonjour philmaure

A tester
Mais faire attention en début d'année

 

[Dranreb]

Bonjour.
Comme ça par exemple :

Sub Macro1()
Dim R As Range, L&
With ActiveSheet: Set R = Intersect(.[2:1000000], .UsedRange): End With
L = 1 + R.Rows.Count
With R.Columns(R.Columns.Count + 1)
   .FormulaR1C1 = "=1/(RC4<>R" & L & "C4)"
   .SpecialCells(xlCellTypeFormulas, 1).EntireRow.Delete
   .Delete xlToLeft: End With
End Sub

Edit: Bonjour pierrejean

 

[JHA]

Bonjour à tous,

Un essai par filtre avancé dans une autre feuille.

Edit: Bonjour Pierre Jean🙂, Dranreb🙂

JHA

 

[philmaure]

Bonjour et un grand merci à vous trois.

Pour cette fois je vais adapter la solution de Dranreb mais je conserve les 2 autres solutions pour d'autres applications.

Bonne a-m
Cdlt
Philmaure