jmp77
Messages postés1119Date d'inscriptionlundi 4 février 2002StatutMembreDernière intervention 4 octobre 2006
-
4 nov. 2005 à 13:33
jmp77
Messages postés1119Date d'inscriptionlundi 4 février 2002StatutMembreDernière intervention 4 octobre 2006
-
4 nov. 2005 à 15:09
Bonjour,
Voilà je souhaiterait pouvoir lancer une action
quand une feuille est détruite dans mon classeur excel mais je n'y
arrive pas. Est ce que quelqu'un saurait quoi faire svp?
jmp77
Messages postés1119Date d'inscriptionlundi 4 février 2002StatutMembreDernière intervention 4 octobre 20067 4 nov. 2005 à 15:09
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.
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