Réponse acceptée !
Merci de ta réponse mais en réalité ce que je veux faire c'est déclencher un evenement quand l'utilisateur supprime manuellement une feuille dans le classeur.
Mais c'est bon j'ai trouvé ici :
[ Lien ] Juste une erreur dans ce code il faut inverser les blocs comme ceci sinon le code renvoi toujours que la feuille est ajouté meme si en réalité elle vient d'être détruite :
'Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'Dim N As Integer
'For N = 1 To UBound(CurrSheets)
' If SheetExists(CurrSheets(N)) = False Then
' MsgBox "Sheet deleted: " & CurrSheets(N)
' #If VBA6 Then
' RaiseEvent SheetDeleted(CurrSheets(N))
' #End If
' LoadArray
' Exit Sub
' End If
'Next N
'If Me.Worksheets.Count <> UBound(CurrSheets) Then
' LoadArray
' MsgBox "Sheet Added: " & Sh.Name
' #If VBA6 Then
' RaiseEvent SheetInserted(Sh)
' #End If
' Exit Sub
'End If
'End Sub
Bonne prog,
JMP77.
N'oubliez pas de cliquer sur réponse acceptée.