Bonjour,
Avec le code ci-dessous je supprime après sélection une ou plusieurs lignes qui se trouvent dans un tableau.
Serait-il possible d'interdire à l'utilisateur de supprimer la ligne 7 de cette feuille ou de ce tableau en sachant que celui-ci comprend la zone B7:HW7 ?
Merci d'avance.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 Sub Supprimer_Clic() If MsgBox("Etes-vous certain de vouloir supprimer la ou les lignes sélectionnées ?", vbYesNo, "Demande de confirmation") = vbYes Then ActiveSheet.Unprotect "ab" Selection.EntireRow.Delete ActiveSheet.Protect "ab", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowSorting:=True, AllowFiltering:=True End If End Sub![]()
Partager