Intercepter suppression ligne ou colonne

[ludo27]

Bonjour,
sur le modèle du sujet suivant, je souhaiterais afficher un message avant suppression d'une ligne ou d'une colonne.

Je cherche l'équivalent pour une ligne ou une colonne de l'ID 847 qui désign la suppression d'une feuille qui figure dans les procédures

ModifierSupprimerFeuille

et

RetablirSupprimerFeuille

.

Merci

 

[Staple1600]

Re : Intercepter suppression ligne ou colonne

Bonjour

Question
(déjà poser dans le fil que tu cites)

Pourquoi ne pas protéger le contenu de la feuille?
(Outils/Protection - cocher Contenu)

_____________________________

A UTILISER AVEC PRECAUTION

sub inhibe_supprimer()
With Application.CommandBars("Worksheet Menu Bar")
    With .Controls("&Edition")
        .Controls("&Supprimer").Enabled = False
    End With
End With
End Sub
Pour revenir à la normale
sub desinhibe_supprimer()
With Application.CommandBars("Worksheet Menu Bar")
    With .Controls("&Edition")
        .Controls("&Supprimer").Enabled = True
    End With
End With
End Sub

Effet: grise Supprimer dans le menu Edition

(Mais la commande reste disponible dans le menu contextuel)