Déclencher une macro quand on quitte une feuille d'un classeur

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

zephir94

XLDnaute Impliqué
Bonjour à tous,

Je cherche à activer une macro évènementielle ( effacer les données dans la feuille par exemple ) quand on sélectionne une autre feuille de mon classeur,

je pensais utiliser dans la feuille cet évènement :

Code:
Sub Worksheet_Deactivate(ByVal Target As Range, Cancel As Boolean)
ThisWorkbook.Sheets("agent").Select
Worksheets("agent").Range("I23").ClearContents
Worksheets("agent").Range("L23").ClearContents
Worksheets("agent").Range("N23").ClearContents
Worksheets("agent").Rows("200").ClearContents

Mais cela ne fonctionne pas !

Pourriez-vous m'indiquer quel évènement utiliser dans mon cas, merci par avance à vous tous
 
Dernière édition:
Re : Déclencher une macro quand on quitte une feuille d'un classeur

Bonjour,

Cela fonctionne , mais il faut l'intégrer dans le module de la feuille en question

Si c'est en quittant la feuille Menu par exemple

Clic touche droit souris sur le nom de la feuille, puis visualiser le code


Code:
Private Sub Worksheet_Deactivate()
ThisWorkbook.Activate
With ThisWorkbook.Sheets("agent")
 .Range("I23").ClearContents
 .Range("L23").ClearContents
 .Range("N23").ClearContents
 .Rows("200").ClearContents
 .Select
End With
End Sub
 
Re : Déclencher une macro quand on quitte une feuille d'un classeur

Effectivement cela fonctionne, mais j'ai deux soucis.

Le premier est de taille pinaise ! tu ne peux plus quitter la feuille hihihihi
et le deuxième est que ClearContents ne veux pas supprimer le texte dans une Cellule fusionnée, je sais
tu vas me dire qu'il faut éviter les Cellules fusionnées mais la avec la mise en page de la feuille z'ai pas le choix !
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
254
Réponses
3
Affichages
956
Retour