Transférer ligne d'une feuille à l'autre en effaçant de la 1ere feuille

0

Bonjour, 

je commence à douter si c'est possible, car je ne trouve aucun tuto à ce sujet.

J'aimerai transférer (qu'elle s'efface de la feuille 1 pour qu'elle n'apparaisse que sur la feuille 2) une ligne qui contient un terme défini dans une colonne défini.

J'ai essayé:

Private Sub Workbook_Open()

Dim i, LastRow

LastRow = Sheets("Dossiers en cours").Range("A" & Rows.Count).End(xlUp).Row

Sheets("Dossiers fermés").Range("A2:I500").ClearContents

For i = 2 To LastRow

If Sheets("Dossiers en cours").Cells(i, "I").Value = "Fermeture de dossier" Then

Sheets("Dossiers en cours").Cells(i, "I").EntireRow.Copy Destination:=Sheets("Dossiers fermés").Range("A" & Rows.Count).End(xlUp).Offset(1)

End If

Next i

End Sub

 mais elle ne s'efface pas de la première feuille et si je l'efface, elle s'efface des 2 feuilles.

HELPPPPPp! 

Merci beaucoup pour votre aide

    Posté le 11 janvier, 02:37
    par FinaMtl
    Répondre
    0

    Bonjour,

    Au lieu de mettre

    Sheets("Dossiers en cours").Cells(i, "I").EntireRow.Copy Destination:=Sheets("Dossiers fermés").Range("A" & Rows.Count).End(xlUp).Offset(1)

    mettre

    Sheets("Dossiers en cours").Cells(i, "I").EntireRow.Cut Destination:=Sheets("Dossiers fermés").Range("A" & Rows.Count).End(xlUp).Offset(1)

    Posté le 11 janvier, 09:12

    Si vous n'êtes pas inscrit sur le site, vous pouvez poster librement (en tant qu'invité).
    Pour cela, indiquez un pseudonyme (nom d'utilisateur) et une adresse email :