Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
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
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.
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 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....
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.