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

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

Bonjour,

Essaie comme ceci :

Dim ok As Boolean
Private Sub Worksheet_Deactivate()
If ok = True Then Exit Sub
Range("F1", Range("F1").End(xlDown)).Copy
ok = True
Range("E1").PasteSpecial
Columns("E:E").RemoveDuplicates Columns:=1, Header:=xlYes
ok = False
End Sub

Si ok, n'oublie pas de cliquer sur le V vert pour cloturer le fil.

explications ici --> https://forum.excel-pratique.com/excel/explications-et-regles-a-respecter-t13.html

Amicalement

merci mr ça marche trés bien j'ai seulement changé cette expression columns("E:E")par range("E1:E100") car avec la premiére il reste des doublons.

merci pour ton aide.