Discussion :

[jpma75]

Bonjour,

Je voulais tout simplement récupérer le nom de la Feuille que je quitte par ce code, pour lui appliquer une nouvelle procédure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) 
     MsgBox Sh.Name 
End Sub

Pour une raison que j'ignore,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)  
    MsgBox "toto" 
End Sub

.. ne détecte rien, alors que :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Deactivate()
    MsgBox "ça marche !" 
End Sub

.. détecte l'événement !

En vous remerciant d'avance pour votre aide,
Cdt

[a_diard]

Quand tu Désactive la feuille je pense que Sh.name n'est plus accessible.

J'ai essayé ceci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Public NomDeLaFeuille
 
Private Sub Worksheet_Deactivate()
MsgBox NomDeLaFeuille
End Sub
 
 
Private Sub Worksheet_Activate()
NomDeLaFeuille = ActiveSheet.Name
End Sub

Par contre ca ne marche que si on commence par sélectionner la feuille.

[jpma75]

Bonjour,

Dans mon cas Deactivate n'affiche (toujours) rien.

[deedolith]

Je viens de faire un test,
les evennements sont détectés dans tous les cas:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Deactivate()
    MsgBox "Sheet deacivated: " & Me.Name
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    MsgBox Sh.Name & " deactivated"
End Sub

N'as tu pas quelque chose qui interfère, comme application.EnableEvents = False ?
Ou d'autres cochonneries de ce genre, que ce soit dans le classeur courant, ou dans un autre.

Un comportement dont peut de personnes qui font joujoux avec ce rendent compte, les modifications des propriétés de l'objet Application sont persistantes (raison pour laquelle il faut les rétablir dans leur état initial).

[jpma75]

Bonjour,

Néanmoins, même s'il s'agissait d'un application.EnableEvents = False, je ne comprends pas pourquoi :

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)

ne réagit pas, alors que :

Private Sub Worksheet_Deactivate()

réagit

D'ailleurs, quelle est la différence entre ces deux procédures ?

[mromain]

Bonjour à tous,

D'ailleurs, quelle est la différence entre ces deux procédures ?

La différence est que Private Sub Worksheet_Deactivate() est implémenté sur un objet feuille. Il détectera donc la désactivation de la feuille où il est implémenté.

Alors que Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) est implémenté au niveau du classeur (dans ThisWorkbook). Il détectera la désactivation de toutes les feuilles du classeur en passant par paramètre (Sh) la feuille qui vient d'être désactivée.

Dans les faits, l'évènement Worksheet_Deactivate est déclanché avant Workbook_SheetDeactivate.
Tout comme deedolith, j'ai fait un test et n'ai rencontré aucun souci.

Es-tu sûr d'avoir implémenté Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) dans ThisWorkbook ?

A+

[edit] - orthographe