Suppression de lignes suivant plusieur conditions

Bonjour à vous

J'aimerais pouvoir supprimer des lignes d'une base de données selon plusieurs critères.

Les critères sont tous dans la colonne A. Par contre il faut garder l'entête.

Ceci par une macro, j'ai bien essayé de faire un tri puis de les effacer mais cela prends beaucoup de temps.

En cherchant j'ai trouvé une macro mais elle fonctionne qu'avec un seul critère.

Option Explicit

Sub SuppressionLigne()

Dim DerLig As Long

Application.ScreenUpdating = False

'Rows(1).Insert

'Range("A1") = "Etat"

DerLig = Range("A2:A" & Rows.Count).End(xlUp).Row

Range("A2:A" & DerLig).AutoFilter field:=1, Criteria1:="1"

Range("A2:A" & DerLig).AutoFilter field:=1, Criteria1:="Etat"

If Application.Subtotal(103, Columns("A")) > 1 Then

Range("A2:A" & DerLig).SpecialCells(xlCellTypeVisible).EntireRow.Delete

End If

'Rows(1).Delete

Range

End Sub[/code]

Merci pour votre aide

Bonjour,

Pour plusieurs critères ... tu peux tester

Array("1","Etat")

J'espère que cela t'aidera ...

ReBonjour

Désolé de l'oubli, avec un fichier c'est mieux.

Cdt

James007

J'essaie de le placer dans la macro, et je te dit si ça fonctionne.

Merci

Etant novice sur VBA, je n'arrive pas à placer

Array("1","Etat")

Peux tu m'en dire plus.

merci

Re,

Tu peux tester le code suivant :

Sub SuppressionLignes()
Dim DerLig As Long
Application.ScreenUpdating = False
DerLig = Range("A2:A" & Rows.Count).End(xlUp).Row
  With Range("A1:A" & DerLig)
      .AutoFilter Field:=1, Criteria1:="=1", Operator:=xlOr, Criteria2:="=2"
      .Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
  End With
Application.ScreenUpdating = True
End Sub

En espèrant que cela t'aide ...

Salut James007

Nickel, tout fonctionne bien.

Sincèrement merci, ma BDD fait plus de 80000 lignes.

Imagine à la main le temps que ça prend, même avec la macro ça mouline pas mal.

A plus, pour un coup de main.

Cdt

Content que cela fonctionne ....

Merci ... pour tes remerciements ...

C'est la moindre des choses.

christian77 a écrit :

C'est la moindre des choses.

Mais je tiens tout de même à le souligner ...

Car, pour tout te dire .... tout le monde ne fait pas ce simple effort de dire ' Merci ' ...

Je sais bien,