Bonjour à tous
j'utilise le code ci dessous pour effacer automatiquement plusieurs cellules lorsqu'on efface celle de la troisième colonne
ça fonctionne très bien mais je voudrai intégrer un msgbox qui demande confirmation ou non de l'effacement
merci de votre aide
KInel
If Target.Column <> 3 Or Target.Count > 1 Or (Target.Row < 4 Or Target.Row > 34) Then Exit Sub
If IsEmpty(Target) Then
ActiveSheet.Unprotect
Application.EnableEvents = False
Target.Resize(, 4).ClearContents
Target.Resize(, 5).ClearContents
Target.Resize(, 6).ClearContents
Target.Resize(, 7).ClearContents
Target.Resize(, 8).ClearContents
Target.Resize(, 9).ClearContents
Target.Resize(, 10).ClearContents
Target.Resize(, 11).ClearContents
Application.EnableEvents = True
ActiveSheet.Protect
End If
j'utilise le code ci dessous pour effacer automatiquement plusieurs cellules lorsqu'on efface celle de la troisième colonne
ça fonctionne très bien mais je voudrai intégrer un msgbox qui demande confirmation ou non de l'effacement
merci de votre aide
KInel
If Target.Column <> 3 Or Target.Count > 1 Or (Target.Row < 4 Or Target.Row > 34) Then Exit Sub
If IsEmpty(Target) Then
ActiveSheet.Unprotect
Application.EnableEvents = False
Target.Resize(, 4).ClearContents
Target.Resize(, 5).ClearContents
Target.Resize(, 6).ClearContents
Target.Resize(, 7).ClearContents
Target.Resize(, 8).ClearContents
Target.Resize(, 9).ClearContents
Target.Resize(, 10).ClearContents
Target.Resize(, 11).ClearContents
Application.EnableEvents = True
ActiveSheet.Protect
End If