Deactivate non détecté

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:

---

1 2 3

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

---

Pour une raison que j'ignore,

Code:

---

1 2 3

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

---

.. ne détecte rien, alors que :

Code:

---

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

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

J'ai essayé ceci.

Code:

---

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.

Bonjour,

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

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

Code:

---

1 2 3

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

---

Code:

---

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).

Bonjour,

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

Citation:

---

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)

---

ne réagit pas, alors que :

Citation:

---

Private Sub Worksheet_Deactivate()

---

réagit

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

Bonjour à tous,

Citation:

---

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

Bonjour mromain,

Merci pour toutes ces précisions !

Citation:

---

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

---

Après coup, je me dis bien sûr que je suis trop bête de ne pas y avoir pensé plus tôt :oops:. MERCI !!!

Cdt