Macro pour supprimer des lignes, avec dates, en fonction d'une date référence...

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais votre aide pour l'écriture d'une macro.
Cette macro devra supprimer les lignes si les dates en Col A, sont passées par rapport à une date référence située dans une autre feuille (le tout dans même classeur)

voir fichier ...+ clair lol

Merci pour le temps que vous voudrez bien m'accorder.

Bien à vous,
Christian

 

[Staple1600]

Re : Macro pour supprimer des lignes, avec dates, en fonction d'une date référence...

Bonjour


Tu peux faire cela sans macro avec le filtre élaboré.
Évidemment ensuite tu peux faire ce que je viens d'écrire ci-dessus par macro pour te simplifier la tâche.

EDITION: Voila pour filtrer les données

Sub Macro1()
Range("Q1") = "Date"
Range("Q2") = "<" & Sheets("Saisie").[D10]
Range("A1:O1132").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("Q1:Q2"), Unique:=False
End Sub

 

[Staple1600]

Re : Macro pour supprimer des lignes, avec dates, en fonction d'une date référence...

Re


J'avais oublié le SoftMama's Way

Sub SupprLignes()
Dim r As Range
Set r = Range("P2:P" & [A65536].End(xlUp).Row)
With r
.FormulaR1C1 = "=IF(RC[-15]<Saisie!R10C4,1,"""")"
.Value = .Value
.SpecialCells(xlCellTypeConstants).EntireRow.Delete
End With
End Sub

Avec cette macro, les lignes sont supprimées.

 

[Christian0258]

Re : Macro pour supprimer des lignes, avec dates, en fonction d'une date référence...

Re, le forum, Staple1600,

Je te remercie, Staple1600, pour ton travail, c'est impec.

Bien à toi,
Merci
Christian

 

[Staple1600]

Re : Macro pour supprimer des lignes, avec dates, en fonction d'une date référence...

Re


De rien
mais n'oublie pas SoftMama AKA Yann , car j'ai repris sa méthode.