Discussion :

[Filippo]

Bonjour, j'essaie de supprimer des lignes sélectionnées par un filtre.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
With ActiveSheet
        .Range("AO1").AutoFilter Field:=41, Criteria1:="<>1"
        .Range("AO2:A" & .Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible).EntireRow.Delete
        .ShowAllData
    End With

J'obtiens cette erreur sur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Range("AO2:A" & .Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible).EntireRow.Delete

Run-time error '1004' :

Microsoft Excel cannot create or use the data range referece
because it is too complex.

J'ai essayé de supprimer les lignes une par une dans une boucle for mais c'est vraiment trop long.

Auriez-vous une autre astuce ?

Merci beaucoup

[David2304]

Bonjour,

Mets simplement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Rows("2:65000").Delete

[Filippo]

Bonjour,

Mets simplement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Rows("2:65000").Delete

Merci David,
celle solution me supprime toutes les lignes, y compris les lignes filtrées

[David2304]

Bizarre chez moi, une fois le filtre selectionné ça supprime seulement les lignes visibles

J'ai fait le test suivant et toutes les lignes comportant 1 en colonne AO n'ont pas été supprimées

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Selection.AutoFilter Field:=41, Criteria1:="<>1"
Rows("2:65000").Delete

[Filippo]

Bizarre chez moi, une fois le filtre selectionné ça supprime seulement les lignes visibles

J'ai fait le test suivant et toutes les lignes comportant 1 en colonne AO n'ont pas été supprimées

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Selection.AutoFilter Field:=41, Criteria1:="<>1"
Rows("2:65000").Delete

Moi ça m'efface toutes les lignes de 2 à 65000;
je regarderai demain au bureau.
Encore merci

[Filippo]

Ca marche,
la sélection était trop complexe.

En fait au lieu de supprimer les lignes à supprimer, j'ai copié les lignes à garder dans un autre classeur, en 4 fois (en une seule fois, le même problème persistait, toutes les lignes étaient copiées et pas seulement celles filtrées).

Merci