XL 2016 Couper coller les lignes entre feuilles si condition

[Lahou02]

Bonjour,

J'ai un fichier Excel avec n lignes et x colonnes sur la feuille ( travaux en cours ), j'aimerai pouvoir couper toutes les lignes si la cellule P ( date terminés ) est remplie

Puis je voudrai coller les lignes concernés dans la feuille ( travaux finis ) a partir de la ligne disponible

( en appuyant sur un bouton )

Fichier en pj

Voilà, si quelqu'un pourrait m'aider s'il vous plaît.

Merci

 

[laurent3372]

Voici une solution, avec un bouton "Couper-Coller" sur la feuille Travaux en cours.
La macro effectue un véritable "Couper": elle détruit les lignes après qu'elles aient été collées dans la feuille Travaux finis.

Sub couperColler()
    Dim lastcell As Range
    With Worksheets("Travaux en cours")
        Set lastcell = .UsedRange.SpecialCells(xlCellTypeLastCell)
        With .Range([A1], lastcell)
            .AutoFilter Field:=16, Criteria1:="<>"
            With .Range([A2], lastcell).SpecialCells(xlCellTypeVisible)
                .Copy
                Worksheets("Travaux finis").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
                .EntireRow.Delete
            End With
            .AutoFilter
        End With
    End With
End Sub

 

[Lahou02]

bonjour merci bcp pour votre retour ,

ça fonctionne parfaitement sur le votre , qd j'essaie sur la version original cela ne fonctionne pas .

ça m'affiche comme indiqué en PJ

merci d'avance