Supprimer les lignes automatiquement

Bonjour Alain

Dans leur immense majorité, les filtres sont plus rapides que les
boucles...

JJ pas fort en filtres
Ceci dans ce cas est correct ??
'-------
Sub jj()
With Columns("K:K")
.AutoFilter Field:=1, Criteria1:="m"
.EntireRow.Delete
End With
End Sub
'---------
JJ

Ceci dans ce cas est correct ??

Pas tout à fait :
Il manque une instruction et une "précaution" car qui dit BD et/ou filtre
dit nom de champ en ligne 1 donc :


Sub jj()
x = [K65536].End(3).Row
[K:K].AutoFilter Field:=1, Criteria1:="K"
Range("K2:K" & x).SpecialCells(xlCellTypeVisible).EntireRow.Delete
End Sub

AV

Ave Alain
Ok, mais cela ne fonctionne pas correctement par rapport à la demande
initiale;-(

Je cherche une macro pour supprimer automatiquement toutes les lignes
d'un

tableau qui ont la lettre "M" en colonne K

Cela cache toutes les données et laisse le filtre automatique en place.
Ps: Criteria1:="K" remplacer par Criteria1:="M"
JJ



"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de
news:uAwR8TCyGHA.1304@TK2MSFTNGP05.phx.gbl...

Ceci dans ce cas est correct ??

Pas tout à fait :
Il manque une instruction et une "précaution" car qui dit BD et/ou
filtre

dit nom de champ en ligne 1 donc :


Sub jj()
x = [K65536].End(3).Row
[K:K].AutoFilter Field:=1, Criteria1:="K"
Range("K2:K" & x).SpecialCells(xlCellTypeVisible).EntireRow.Delete
End Sub

AV

Cela cache toutes les données et laisse le filtre automatique en place.
Ps: Criteria1:="K" remplacer par Criteria1:="M"

Il manque juste une instruction par ôter le filtre en fin de proc :
[K:K].AutoFilter

PS : il faudrait aussi une gestion d'erreur en cas d'absence de la valeur
recherchée...
Faut bien en laisser un peu...

AV