Workbook_DeleteSheet???

Bonjour,

L'idée est en cas de suppression qu'une autre feuille se retrouve active.
C'est donc cet événement qui est utilisé Workbook_SheetActivate.
Attention prendre un classeur vide , coller l'intégralité de ce code puis
fermer et enregistrer d'abord le classeur:

'''''*********dans thisworkbook*******
Dim mycount As Byte

Private Sub Workbook_NewSheet(ByVal Sh As Object)
comptefeuilles
End Sub

Private Sub Workbook_Open()
comptefeuilles
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ThisWorkbook.Sheets.Count < mycount Then AlertD
End Sub

Private Sub AlertD()
MsgBox mycount - ThisWorkbook.Sheets.Count & _
" des " & mycount & " feuille(s) vien(nen)t d'être supprimée(s)"
comptefeuilles
End Sub
Private Sub comptefeuilles()
mycount = ThisWorkbook.Sheets.Count
End Sub
'''''*******************
'lSteph

"Line" <Line@discussions.microsoft.com> a écrit dans le message de news:
5547ECE8-BFD0-4FA5-B3D5-8952055BC7CA@microsoft.com...

Bonjour!

Existe t'il une fonction opposée à Workbook_NewSheet???

J'ai un menu qui liste toutes les feuilles d'un classeur et qui
se met à jour à chaque ajout d'une nouvelle feuille. Je voudrais
aussi que le dit menu se mette à jous lorqu'une feuille est
supprimée. C'est possible ça???

Merci mille fois d'avance

Line

"lSteph" a écrit:

Bonjour,

L'idée est en cas de suppression qu'une autre feuille se retrouve active.
C'est donc cet événement qui est utilisé Workbook_SheetActivate.

Il s'agissait d'y penser!!! Mille fois merci de l'avoir fait pour moi

Line