Bonjour le forum
j'utilise le code suivant pour effacer une série de cellules si la 4ème est effacée
ça fonctionne très bien
je voudrais compléter ce code en faisant une copie de la cellule 8 vers la cellule 12 avant l'effacement
voici le code
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
Target.Offset(, -1).Resize(1, 7) = ""
Else
Target = Cel
End If
Application.EnableEvents = True
End If
merci de votre aide
Kinel
j'utilise le code suivant pour effacer une série de cellules si la 4ème est effacée
ça fonctionne très bien
je voudrais compléter ce code en faisant une copie de la cellule 8 vers la cellule 12 avant l'effacement
voici le code
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
Target.Offset(, -1).Resize(1, 7) = ""
Else
Target = Cel
End If
Application.EnableEvents = True
End If
merci de votre aide
Kinel