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

pierrejean

XLDnaute Barbatruc

• 16 Juillet 2017

• #2

Bonjour philmaure

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

 

Pièces jointes

• Classeur2 (14).xlsm

  25.3 KB · Affichages: 29

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Juillet 2017

• #3

Bonjour.
Comme ça par exemple :

VB:

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

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 16 Juillet 2017

• #4

Bonjour à tous,

Un essai par filtre avancé dans une autre feuille.

Edit: Bonjour Pierre Jean, Dranreb

JHA

 

Pièces jointes

• Filtre semaine.xlsm

  45.4 KB · Affichages: 14

Vote positif 0 Vote négatif

P

philmaure

XLDnaute Impliqué

• 16 Juillet 2017

• #5

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

 

Vote positif 0 Vote négatif