Filtrer et Copier des lignes en VBA

Je souhaite filtrer et copier uniquement les lignes filtrées.
Actuellement, je filtre puis je copie de la ligne 1 à dernièreLigne mais si aucune ligne ne correspond au filtre alors, il prend toutes les lignes.

Il y a sûrement un moyen plus élégant et efficace de faire.

Voici mon code pour copier les lignes qui ont VRAI en colonne 14

Code:

---

1 2	Rows.AutoFilter Field:=14, Criteria1:=True Range("A2", Cells(lastRow, 14)).Copy

---

Merci pour l'aide

bonjour

à tester

Code:

---

1 2	Rows.AutoFilter Field:=14, Criteria1:=True Range("A2", Cells(lastRow, 14)).SpecialCells(xlCellTypeVisible).Copy

---

Bonjour,

pour faire le filtrage et le copiage ensemble il existe le filtre élaboré.

Pour cela regarde ici

Bonjour


Une autre proposition
(recopie des données filtrées en Feuil2)

Code:

---

1 2 3 4

Sub MACRO_TEST() [A1].AutoFilter Field:=14, Criteria1:=True ActiveSheet.AutoFilter.Range.Copy Feuil2.Range("A1") End Sub

---

:salut:

J.L

Merci à tous, tout ceci est très instructif et intéressant.

Avant de lire tout ceci, J'ai aussi eu le réflexe de tester le nombre de ligne et le code suivant m'a tiré d'affaire:

Code:

---

1 2 3 4 5 6 7

Rows.AutoFilter Field:=14, Criteria1:=True lastfilterRow = Range(["A65535"]).End(xlUp).Row   If lastfilterRow > 1 Then _ Range("A2", Cells(lastfilterRow, 14)).Copy _ Destination:=bilanSheet.Cells(1, 1)

---

Merci