[VBA Excel] Pb Suppression de lignes non filtrées

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

Code:

---

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:

---

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

---

Run-time error '1004' :

Citation:

---

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 ;)

Bonjour,

Mets simplement

Code:

---

Rows("2:65000").Delete

---

Citation:

---

Envoyé par David2304

Bonjour,

Mets simplement

Code:

---

Rows("2:65000").Delete

---

---

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

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:

---

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

---

Citation:

---

Envoyé par 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:

---

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 ;)

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 ;)