Evenement Sheet delete possible ?

Bonjour,

Après recherches, je n'arrive pas a trouvé de solutions a mon problème.

J'aimerai simplement avoir un evenement (workbook) qui se déclenche a la suppression d'une feuille.

J'ai pu voir qu'il existait l’événement à la désactivation d'une feuille ( Workbook_SheetDeactivate) mais rien sur la suppression, existe-il une alternative ?

(Je suis en excel 2010)

Merci pour votre aide

Bonjour

il n'existe pas d'event lié à la suppression d'une feuille. l'alternative est liée à ce que tu veux faire suite à la suppression.

si tu veux empêcher la suppression, il faut protéger la feuille

si tu veux détecter la suppression, il faut sauver le nom de toutes les feuilles et vérifier au moment qui va bien si les feuilles exsitent toujours.

Merci pour ta réponse.

Oui je souhaiterai détecter la suppression.

Je t'avoue que je ne m'y connais pas trop. Comment dois-je m'y prendre pour " sauver le nom de toutes les feuilles et vérifier au moment qui va bien si les feuilles exsitent toujours."

Est ce que je dois partir d'un evenement " Workbook_SheetDeactivate" et ensuite developper le code que tu m'indiques ?

Merci

rebonjour,

une proposition

code à mettre dans le module du classeur

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If i Then
        For Each n In a
            w = ""
            On Error Resume Next
            w = Sheets(n).Name
            If w = "" Then
                MsgBox "feuil " & n & " a été supprimée"
            End If
            Erase a
        Next n
    End If
    i = True
    For k = 1 To Sheets.Count
        ReDim Preserve a(1 To k)
        a(k) = Sheets(k).Name
    Next k

End Sub

code à mettre dans un nouveau module

Public a()
Public i As Boolean