Macro pr supprimer des lignes en fonction d'une date...

[Christian0258]

Bonsoir à tout le forum,

Je souhaiterais votre aide afin d'écrire une macro pour effacer des lignes si les dates en colonne B sont différentes de la date en G1.

Fichier joint.

Merci pour votre aide, si précieuse.

Bien amicalement,
Christian.

 

[job75]

Re : Macro pr supprimer des lignes en fonction d'une date...

Bonsoir Christian,

Plutôt que d'effacer ou de supprimer des lignes, ce ne serait pas mieux de les masquer ?

Pour trouver les lignes à traiter (ou à ne pas traiter), le plus simple est d'utiliser le filtre automatique. La macro ne fera guère plus que si on l'applique manuellement.

A+

 

[Christian0258]

Re : Macro pr supprimer des lignes en fonction d'une date...

Re, le rorum, Job75,

En fait je souhaite supprimer les lignes pour ensuite exporter (donc alléger)

à+

Christian

 

[Christian0258]

Re : Macro pr supprimer des lignes en fonction d'une date...

Bonsoir à tout le forum,

Pourriez-vous m'aider sur mon problème ?


Merci par avance.

Bien amicalement,
Christian

 

[Christian0258]

Re : Macro pr supprimer des lignes en fonction d'une date...

Bonsoir à tout le forum,

Merci, Jean-Marcel, pour ton travail, c'est impec.


à+

Christian

 

[CG2000]

Re : Macro pr supprimer des lignes en fonction d'une date...

Bonsoir le Forum, Bonsoir le Fil,

Sur la base de l'exellente solution de Jean-Marcel, est-il possible d'effacer des lignes si les dates en colonne B sont comprises entre deux G1 et G2.

Merci par vavance de vôtre aide.

 

[CG2000]

Re : Macro pr supprimer des lignes en fonction d'une date...

ReBonsoir à tout le forum,

Merci, Jean-Marcel, pour cette nouvelle solution. Elle est parfaite.😛
Avec tous mes remerciements.

A+

CG2000

 

[ChTi160]

Re : Macro pr supprimer des lignes en fonction d'une date...

Salut CG2000
Bonjour le fil
Bonjour le Forum

En pièce jointe une autre version à adapter .

Le Fichier : Regarde la pièce jointe supplignesV2.zip

Bonne journée

 

[laetitia90]

Re : Macro pr supprimer des lignes en fonction d'une date...

bonjour tous;
egal ou different???

Sub es()
 Dim i As Long
 Application.ScreenUpdating = False
 For i = Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1
  If Cells(i, 2) <> Cells(1, 7) Then Rows(i).Delete
 Next i
End Sub

oups!! j'ai repondu a la premiere question pas bon

 

[CG2000]

Re : Macro pr supprimer des lignes en fonction d'une date...

Bonsoir le Forum, Bonsoir le fil,

Merci à tous pour vos réponses. Elles me conviennent toutes pour des usages cepeandant différents. 😛
Les dernières propositions de Jean-Marcel et de Jean Marie (Chti160) me rendes bien service pour le traitement de mes infos (très intéressant et très futé ce transfert d'infos Jean Marie 😉) et celle de Laetitia90 me complète bien le panel de solutions possibles.

Merci(s) à tous et très bonne soirée.

CG2000