Copie lignes filtrées

Le
Alf
Bonjour à tous,

Dans une feuille, je filtre des lignes.
Je voudrais copier les lignes filtrées dans une autre feuille en lançan=
t une macro.

Pouvez vous m'aider ?

D'avance Merci pour votre aide
Alf
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #26395433
bonjour Alf,

Sub Filter_first_last()
Dim plg As Range, x As Variant, first As String, last As String
Set plg = ActiveSheet.Range("_filterdatabase").SpecialCells(xlCellTypeVisible)

x = Split(plg.Address, ",")

last = Range(x(UBound(x))).Rows(Range(x(UBound(x))).Rows.Count).Row 'last row

If Range(x(0)).Rows.Count > 1 Then
first = Range(x(0)).Rows(2).Row 'first row
Else
first = Range(x(1)).Row 'first row
End If

MsgBox "first: " & first & vbCrLf & "Last: " & last
Rows(first & ":" & last).Copy Sheets("autre feuille").Range("A2")
End Sub

isabelle

Le 2016-04-15 12:55, Alf a écrit :
Bonjour à tous,

Dans une feuille, je filtre des lignes.
Je voudrais copier les lignes filtrées dans une autre feuille en lançant une macro.

Pouvez vous m'aider ?

D'avance Merci pour votre aide
Alf

Alf
Le #26396198
Le vendredi 15 avril 2016 18:55:34 UTC+2, Alf a écrit :
Bonjour à tous,

Dans une feuille, je filtre des lignes.
Je voudrais copier les lignes filtrées dans une autre feuille en lanç ant une macro.

Pouvez vous m'aider ?

D'avance Merci pour votre aide
Alf



Merci pour ton aide
avec un peu de retard....
Publicité
Poster une réponse
Anonyme