Bloquer l’ajout des feuilles

Salut tout le monde

Alors j’ai un classeur qui contient 3 feuille j’aimerai bloquer l’ajout des feuilles au-delà de 10 feuille avec apparition de message « l’application ne nécessite pas des feuille au-delà de 10 »

merci a vous

Bonjour

Complément du Post précédent

Pas trouvé mieux, mais je ne suis pas très doué non plus en VBA.

Cordialement

Bonjour,

Dans un module de classe nommé Classe1 :

Public WithEvents App As Application

Private Sub App_WorkbookNewSheet(ByVal Wb As Workbook, ByVal Sh As Object)
MsgBox Sh.Name & " " & Wb.Worksheets.Count
End Sub

Dans ThisWorkbook :

Dim cls As New Classe1

Private Sub Workbook_Open()
Set cls = New Classe1
Set cls.App = Application
End Sub

Cordialement

ctac

Bonjour,

A mettre dans le module du classeur :

Private Sub Workbook_NewSheet(ByVal Sh As Object)

    If Worksheets.Count > 10 Then

        Application.DisplayAlerts = False

        'supprime la nouvelle feuille
        Sh.Delete

        MsgBox "L'application ne nécessite pas plus de 10 feuilles !", _
                vbExclamation, _
                "Ajout de feuille impossible."

        Application.DisplayAlerts = True

    End If

End Sub

Hervé.

Oui, c'est plus simple.

Je n'avais jamais vu que ça existé au niveau Workbook.

Cordialement

ctac

bon