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

[zephir94]

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 :

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

 

[camarchepas]

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

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

 

[zephir94]

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

Un grand merci à toi camarchepas
Je vais essayer cela tout de suite !

 

[zephir94]

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 !

 

[camarchepas]

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

Parce que la feuille ou tu met ce code est justement agent ?

Dans ce cas

Private Sub Worksheet_Deactivate()

  Range("I23")=""
  Range("L23")=""
  Range("N23")=""
  Rows("200")=""
 
 End Sub

 

[zephir94]

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

Je vais essayer et te tiens informé merci

 

[zephir94]

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

un grand merci ça marche au poils