Discussion :

[ChrisP]

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 :

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

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

Merci pour l'aide

[wilfried_42]

bonjour

à tester

Code :

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

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

[Godzestla]

Bonjour,

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

Pour cela regarde ici

[jolop35]

Bonjour


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

Code :

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

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

J.L

[ChrisP]

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 :

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

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