Suppression ligne suivant critere colonne

Bonjour,

J'ai un fichier Excel comprenant des adhérents d'un club de tennis.

Nous avons besoins de supprimer toutes lignes dont la colonne (Q) du classeur Détaillé qui est différent de 2013.

(afin de supprimer les adhérents qui ne sont plus licencies) .

J'ai essayé cette macros mais ça ne fonctionne pas: ( rien de ne se passe )

Option Explicit 'Oblige la déclaration des Variables

Sub Sup_Lig()
Dim DLig As Long, i As Long ' Declare la variable Dlig
Application.ScreenUpdating = False 'Empeche le rafraichissement de l'écran
DLig = Sheets("Détaillé").Range("Q" & Rows.Count).End(xlUp).Row ' Recherche la Dernière LIGne de la Colonne D
For i = DLig To 2 Step -1 ' Boucle sur les lignes de la Dernière trouvée a la ligne n°2

 If Cells(i, 4) <> "" And Cells(i, 4) < 2013 Then Rows(i).EntireRow.Delete 

Next i 'Prochaine Ligne
Application.ScreenUpdating = True 'Remet la rafraichissement de l'écran
End Sub

Avez-vous une idée?

Merci

Zs

Bonjour à toutes et à tous...

Si les valeurs "2013" se trouve dans la colonne Q

If Cells(i, 4) <> "" And Cells(i, 4) < 2013 Then Rows(i).EntireRow.Delete 

Remplacer les "4" par "17"

Sinon

Prendre le code de frangy

Bonjour,

Peut-être avec

DLig = Sheets("Détaillé").Range("D" & Rows.Count).End(xlUp).Row

A+

Lean a écrit :

Bonjour à toutes et à tous...

Si les valeurs "2013" se trouve dans la colonne Q

If Cells(i, 4) <> "" And Cells(i, 4) < 2013 Then Rows(i).EntireRow.Delete 

Remplacer les "4" par "17"

Sinon

Prendre le code de frangy

super ça fonctionne .

Merci bcp