Annuler ligne suivant valeur dans cellule

[mcj1997]

Bonjour,

j'ai utilisé l'enregistreur de macro afin de faire une macro pour trier des lignes suivant date en case B et fais ainsi un tri chronologique.

Je souhaiterai ajouté dans ma macro une ligne qui me permette de selectionner uniquement les lignes qui comporte une date précise en case B soit (j-1) et ainsi supprimer toutes les lignes qui ne sont pas de la veille.

Le nombre de lignes dans mon fichier varie tous les jours.

Merci d'avance,

 

[Pierrot93]

Re : Annuler ligne suivant valeur dans cellule

Bonjour,

essaye peut être ceci, à adapter car sans voir ton type de donnée.... :

With Sheets("NomFeuille")
    If .AutoFilterMode And .FilterMode Then .ShowAllData
    .Range("A1").AutoFilter 2, "<>" & Format(Date - 1, "mm/dd/yyyy")
    Range("_FilterDatabase").EntireRow.Delete
    .ShowAllData
End With

bon après midi
@+

 

[mcj1997]

Re : Annuler ligne suivant valeur dans cellule

JE VIENS D'AJOUTER UN FICHIER EN pj

Merci

 

[Pierrot93]

Re : Annuler ligne suivant valeur dans cellule

Re,

as tu essayé le code donné ?? je ne le vois pas dans ton fichier !!!

bonne soirée
@+

 

[mcj1997]

Re : Annuler ligne suivant valeur dans cellule

Je viens de modifier la pj mais cela ne fonctionne pas.

 

[Pierrot93]

Re : Annuler ligne suivant valeur dans cellule

Bonjour,

regarde ce code, fonctionne chez mois sur ton fichier après avoir renseigné la ligne 1 (A1 b1) par des titres de colonnes... je suppose que tu veux appliquer ceci à une base de donnée, dans ce cas il est préférable qu'elle soit convenablement organisée... Attention j'ai mis j-2 dans le code pour ne conserver que les 31 août, sinon pas de matière....

With ActiveSheet
    If .AutoFilterMode And .FilterMode Then .ShowAllData
    .Range("A1").AutoFilter 2, "<>" & Format(Date - 2, "mm/dd/yyyy")
   With Range("_FilterDatabase")
        .Offset(1).Resize(.Rows.Count - 1).EntireRow.Delete
    End With
    .ShowAllData
End With

bonne journée
@+