Discussion :

[athos7776]

Bonjour, mon problème est le suivant.

J'aimerais pouvoir créer une fonction dans VBA qui, lorsque j'effectue l'action de supprimer une ligne dans ma feuille active, elle soit recopiée dans une autre feuille (exemple : je supprime la ligne 5000 dans la feuille active, et elle se recopie automatiquement dans la feuille "deleted", c'est à dire dans la première cellule qu'elle identifiera comme vide).

Quelqu'un aurait une idée?

Merci beaucoup!

[tirex28]

Bonsoir,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub ATester()
    Dim Rw As Range
    Set Rw = ActiveSheet.Rows(ActiveCell.Row)
    With Worksheets("Deleted")
        .Rows(.Range("A65536").End(xlUp) + 1).Value = Rw.Value
    End With
    ActiveCell.EntireRow.Delete
End Sub

Cordialement,

Tirex28/