rainbow69006
XLDnaute Occasionnel
Bonjour à tous,
Je viens d'utiliser une partie d'un code trouver sur le forum qui marche parfaitement!!
Dans ma feuille "données": Celui ci coupe la ligne si la cellule correspondante en AZ est modifié et la colle dans une feuille "classer".
Cela marche parfaitement.
Par contre seul problème dans ma feuille donnée il me garde la ligne (qui devient vide) n'est il pas possible de supprimer la ligne?
merci d'avance
Je viens d'utiliser une partie d'un code trouver sur le forum qui marche parfaitement!!
Dans ma feuille "données": Celui ci coupe la ligne si la cellule correspondante en AZ est modifié et la colle dans une feuille "classer".
Cela marche parfaitement.
Par contre seul problème dans ma feuille donnée il me garde la ligne (qui devient vide) n'est il pas possible de supprimer la ligne?
merci d'avance
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range, Plage As Range
Set Plage = Intersect(Target, Range([AG2], Cells(Rows.Count, "AZ").End(xlUp)))
If Plage Is Nothing Then Exit Sub
For Each Cel In Plage
If IsDate(Cel) Then
With Sheets("classer")
Rows(Cel.Row).Cut .Cells(Rows.Count, "A").End(xlUp)(2)
End With
End If
Next Cel
Application.CutCopyMode = False
End Sub