L
La Patate
Guest
Tout d'abord merci pour votre aide, j'ai déja bien progressé en VBA
(Partant de Zéro c'etait facile!)
Mon soucis actuel consiste a ne couper que les lignes filtrées d'une liste puis les coller en fin de liste de la feuille "reste a lancer"
C'est la selection de la plage filtrée qui me pose un probleme.
La premiere ligne n'est que rarement la meme!donc le " Rows ("2:2").select ne va pas.
Autre essai: Une fois le filtre executé, les Commandes "Selection.CurrentRegion.Select" ou "Cells.Select" prennent aussi les ligne masquées par le filtre.
Merci d'avance.
Voici mon code:
Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
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)
Selection.CurrentRegion.SelectActiveSheet.Paste
(Partant de Zéro c'etait facile!)
Mon soucis actuel consiste a ne couper que les lignes filtrées d'une liste puis les coller en fin de liste de la feuille "reste a lancer"
C'est la selection de la plage filtrée qui me pose un probleme.
La premiere ligne n'est que rarement la meme!donc le " Rows ("2:2").select ne va pas.
Autre essai: Une fois le filtre executé, les Commandes "Selection.CurrentRegion.Select" ou "Cells.Select" prennent aussi les ligne masquées par le filtre.
Merci d'avance.
Voici mon code:
Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
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)
Selection.CurrentRegion.SelectActiveSheet.Paste