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]

Re : Suppression de lignes!

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]

Re : Suppression de lignes!

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]

Re : Suppression de lignes!

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

 

[Aurore_C]

Re : Suppression de lignes!

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

@+

Bonjour,

Ce code marche super ! Et il va me servir
Par contre, j'aurais voulu savoir si il était possible de supprimer exactement les mêmes lignes dans une feuille située dans le même classeur (sans forcément que ces dernières remplissent le critère de la première feuille) ?

Merci,
Aurore