Exécuter un code en quittant feuil1

Bonjour
J'ai essayé d'exécuter ce code lorsque je quitte la feuil1 et je click sur la feuil2

Code:

---

1 2 3 4 5

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

Bonsoir,
je ne sais pas ce que tu veux copier, mas le code ci-dessous pour copier la colonne F de Feuil1 sur col E de feuil2

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_Deactivate() Dim x As Integer With Sheets("feuil1") x = .Range("F" & .Rows.Count).End(xlUp).Row .Range("F1", "F" & x).Copy Sheets("feuil2").Range("E1").PasteSpecial End With End Sub

---

a +

Citation:

---

Envoyé par iliesss

Bonjour
J'ai essayé d'exécuter ce code lorsque je quitte la feuil1 et je click sur la feuil2

---

Bonjour,
Attention, avec cette approche et sans autres filtres, si tu cliques sur l'onglet de la feuille 3, le code s'exécutera... c'est bien ce que tu veux ?

cordialement,

Didier

merci mr pour ta réponse
moi je souhaite dans mon code de copier la colonne F vers la colonne E en suite supprimer les doublons dans la colonne E dans la feui1 lorsque je quitte cette feuil1