Exécuter un code en quittant feuil1

[iliess]

Bonjour
J’ai essayé d’exécuter ce code lorsque je quitte la feuil1 et je click sur la feuil2
Private Sub Worksheet_Deactivate()
Range("F1", Range("F1").End(xlDown)).Copy
Range("E1").PasteSpecial
Columns("E:E").RemoveDuplicates Columns:=1, Header:=xlYes
End Sub
Le problème que l’exécution ne s’arrête pas.
Merci

 

[Modeste]

Re : Exécuter un code en quittant feuil1

Bonsoir iliess,

Il faut peut-être préciser dans la seconde ligne ci-dessous, que la copie ne doit pas se faire dans la feuille ... que tu essaies justement de quitter 😛

Range("F1", Range("F1").End(xlDown)).Copy
[B][COLOR="Red"]Sheets("une_autre_feuille").[/COLOR][/B]Range("E1").PasteSpecial

Pas de 2007 sous la main pour tester la suppression des doublons

 

[iliess]

Re : Exécuter un code en quittant feuil1

merci mr pour ta reponse
mais je souhaite d'éxcuté mon macro dans la feuil1

 

[Softmama]

Re : Exécuter un code en quittant feuil1

Bonjour,

As-tu essayé ceci ? :

Private Sub Worksheet_Deactivate()
[COLOR="Red"]Application.enableevents=false[/COLOR]
Range("F1", Range("F1").End(xlDown)).Copy
Range("E1").PasteSpecial
Columns("E:E").RemoveDuplicates Columns:=1, Header:=xlYes
[COLOR="Red"]Application.enableevents=true[/COLOR]
End Sub