Discussion :

[Denis_67]

Bonjour,

J'ai ajouté la fonction de desactivation d'une feuille pour envoyer un message
mais celle ci ne fait rien ?
alors que lévénement de modif sur la feuille m'envoie bien le message
par contre que je quitte la feuille ou que j'y aille il ne se passe rien
Faut-il activer certaines autres choses?
Merci pour votre aide
Denis

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
 MsgBox " Je quitte la feuille" & Sh.Name                                      '=====> là il ne se passe rien
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
   Input_Change = True
   MsgBox "changement"                                                                '=====> là ça marche si je modifie une cellule
End Sub

[parmi]

Bonjour,

Ça devrait fonctionner en autant que tu sois dans le bon classeur
Sinon, est-ce que tu utilises Application.EnableEvents dans tes programmes ?

[clementmarcotte]

Bonjour,

As-tu essayé avec Worksheet_deactivate ?

Tu ouvres le module de la feuille comme tu le fais pour Worksheet_Change

Dans la liste déroulante de gauche, tu choisis "Événements"

Puis, dans la liste déroulante de droite, tu choisis deactivate.

[Thautheme]

Bonsoir Denis, bonsoir le forum,

la procédure Workbook_SheetDeactivate est un procédure qui doit se trouver dans le composant ThisWorkbook et pas dans le composant d'un onglet (Feui1(Feuil1), par exemple. Placée au bon endroit, elle agit par défaut à la sortie de tous les onglets ou de ceux définis par la valeur Sh. Tandis que la procédure Worksheet_Deactivte placée dans le composant de l'onglet n'a pas besoin de référence puisqu'elle s'applique à l'onglet lui-même.
Remplace Workbook_SheetDeactivate par :

Code :

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

1
2
3
Private Sub Worksheet_Deactivate()
MsgBox "Je quitte la feuille Feuil1"
End Sub

Et ça devrait marcher...

[Denis_67]

Merci Thautheme,

C'était bien ça l'explication !

Merci, je vais pouvoir finir ma fonction pépère.