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
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
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 :
Merci pour ton aide
avec un peu de retard....