Suppression de lignes!

[carterslap]

Bonjour, jai un tableau à plusieur colonne et chaque colonne contient plus de 800 valeur, je voudrais pouvoir supprimer les lignes automatiquement lorsque les valeurs de la colonne A (par ex) sont supérieur à 20 (par ex)

merci

[fred65200]

bonjour
à tester

Sub SupprLigne()
Dim i As Long
Dim DerLi As Long
'Recherche de la dernière ligne de la colonne A
DerLi = Columns(1).Find("*", , , , , xlPrevious).Row
Application.ScreenUpdating = False
' boucle de suppression
For i = DerLi To 2 Step -1
    If Cells(i, "A") > 20 Then Rows(i).Delete
Next i
Application.ScreenUpdating = False


End Sub

@+

[job75]

Bonsoir,
L'automatisation a du bon, mais pourquoi ne pas utiliser les outils Excel quand c'est possible et facile : en la circonstance le filtrage ? Voir la discussion ouverte par Zeronimo 3 lignes plus haut.
A+

[job75]

Oui bien sûr les lignes changent... discussion "déplacer des données" de zeronimo.