Discussion :

[lebigboss]

Bonjour,
j'ai un classeur Excel sur lequel sans le protéger j'aimerai empêcher la suppression de ligne.
J'ai 2 pistes mais je boque sur les 2:

1. La première repérer le clic droit, mais je ne voudrais pas supprimer tout le menu contextuel mais simplement griser l'option supprimer.
   

   Code :

   Sélectionner tout - Visualiser dans une fenêtre à part

   1
   2
   3
   4
   5
   Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    
       Cancel = True
    
   End Sub

1. La deuxième serait juste de récupérer l'évènement de suppression si l'utilisateur le fait, lui afficher une boite de dialogue pour lui dire que c'est interdit et empêcher la suppression.

Merci d'avance

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Columns.Count = Columns.Count Then
    Application.EnableEvents = False
    MsgBox "Non, non, suppréssion ligne annulée"
    Application.Undo
    Application.EnableEvents = True
End If
End Sub

[lebigboss]

Merci beaucoup c'est exactement ce que je cherchais.

[Didier Gonard]

Bonjour,

Attention toutefois que le code réagit à toute manipulation de ligne entière donc aussi à l'insertion, le copier-coller etc..

cordialement,

Didier