C
Coucou
Guest
Bonsoir a tous,
Je n'arrive pas a selectionner puis a couper/coller uniquement les lignes filtrées dans une liste.
Novice en VBA, j'ai bidouillé le code suivant: (cela fera surement rigoler beaucoup de monde mais bon!)
datefrom = Val.Range("A1")
Liste.Range("J1").AutoFilter Field:=10, Criteria1:=">" & datefrom, Operator:=xlAnd
'couper les ligne selectionnées'
Range("A1").Select
Dim Dercell1 As Object
Set Dercell1 = Selection.End(xlDown)
Dercell1.Select
'Range(Selection, Selection.End(xlDown)).Select
Selection.CurrentRegion.Select
Selection.Cut
Sheets("Reste a lancer").Select
Range("A1").Select
Dim Dercell As Object
Set Dercell = Selection.End(xlDown)
Dercell.Select
Set cellvide = ActiveCell
Set cellvide = cellvide.Offset(1, 0)
cellvide.Select
ActiveSheet.Paste
Merci encore pour tout ce que j'apprends ici. COUCOU.
Je n'arrive pas a selectionner puis a couper/coller uniquement les lignes filtrées dans une liste.
Novice en VBA, j'ai bidouillé le code suivant: (cela fera surement rigoler beaucoup de monde mais bon!)
datefrom = Val.Range("A1")
Liste.Range("J1").AutoFilter Field:=10, Criteria1:=">" & datefrom, Operator:=xlAnd
'couper les ligne selectionnées'
Range("A1").Select
Dim Dercell1 As Object
Set Dercell1 = Selection.End(xlDown)
Dercell1.Select
'Range(Selection, Selection.End(xlDown)).Select
Selection.CurrentRegion.Select
Selection.Cut
Sheets("Reste a lancer").Select
Range("A1").Select
Dim Dercell As Object
Set Dercell = Selection.End(xlDown)
Dercell.Select
Set cellvide = ActiveCell
Set cellvide = cellvide.Offset(1, 0)
cellvide.Select
ActiveSheet.Paste
Merci encore pour tout ce que j'apprends ici. COUCOU.