Annuler ligne suivant valeur dans cellule

Pierrot93

XLDnaute Barbatruc

• 1 Septembre 2011

• #2

Re : Annuler ligne suivant valeur dans cellule

Bonjour,

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

Code:

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
@+

 

Vote positif 0 Vote négatif

M

mcj1997

XLDnaute Accro

• 1 Septembre 2011

• #3

Re : Annuler ligne suivant valeur dans cellule

JE VIENS D'AJOUTER UN FICHIER EN pj

Merci

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 1 Septembre 2011

• #4

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
@+

 

Vote positif 0 Vote négatif

M

mcj1997

XLDnaute Accro

• 1 Septembre 2011

• #5

Re : Annuler ligne suivant valeur dans cellule

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 2 Septembre 2011

• #6

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....

Code:

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
@+

 

Vote positif 0 Vote négatif