Discussion :

[iliesss]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[casefayere]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 +

[Didier Gonard]

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

[iliesss]

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