Bonjour à tous
j'utilise le code suivant pour effacer automatiquement une série de cellules
j'aimerai compléter ce code pour que les cellules effacées soient sauvegardées dans une feuille secondaire
Merci de votre aide
Kinel
Private Sub Worksheet_Change(ByVal Target As Range)
Dim flag As Boolean
'efface les infos si le nom est effacé
If Target.Column <> 4 Or Target.Count > 1 Or (Target.Row < 3 Or Target.Row > 62) Then Exit Sub
If IsEmpty(Target) Then
Application.EnableEvents = False
If MsgBox("Confirmer la suppression?", vbYesNo + vbQuestion, "SUPPRIMER") = vbYes Then
Cells(Target.Row, 14) = Cells(Target.Row, 10)
Target.Offset(, -1).Resize(1, 7) = ""
Else
Target = Cel
End If
Application.EnableEvents = True
End If
j'utilise le code suivant pour effacer automatiquement une série de cellules
j'aimerai compléter ce code pour que les cellules effacées soient sauvegardées dans une feuille secondaire
Merci de votre aide
Kinel
Private Sub Worksheet_Change(ByVal Target As Range)
Dim flag As Boolean
'efface les infos si le nom est effacé
If Target.Column <> 4 Or Target.Count > 1 Or (Target.Row < 3 Or Target.Row > 62) Then Exit Sub
If IsEmpty(Target) Then
Application.EnableEvents = False
If MsgBox("Confirmer la suppression?", vbYesNo + vbQuestion, "SUPPRIMER") = vbYes Then
Cells(Target.Row, 14) = Cells(Target.Row, 10)
Target.Offset(, -1).Resize(1, 7) = ""
Else
Target = Cel
End If
Application.EnableEvents = True
End If