Autres (RESOLU) copier coller ordre croissant et sans doublant

[chaelie2015]

Bonsoir Forum
Cette fois je cherche un code VB (automatique) qui copie la colonne C ( jusqu'à la dernière valeur non vide) de la feuille 1 dans notre exemple (de C5 jusqu'au C16) dans la feuille 2 colonne C dans l'ordre croissant et sans doublant.
et si je rajoute une valeur dans la colonne C de la feuille1 cette dernier va être afficher automatiquement dans la colonne C de la feuille2 et ainsi de suite
Merci

 

[mapomme]

Bonsoir @chaelie2015 🙂,

Code à mettre dans le module associé à la feuille "Feuil2" :

Private Sub Worksheet_Activate()
Dim der&
   Application.ScreenUpdating = False
   If Feuil1.FilterMode Then Feuil1.ShowAllData
   der = Feuil1.Cells(Rows.Count, "c").End(xlUp).Row
   Feuil1.Range("c4:c" & der).Resize(der).Copy Range("c1")
   der = Cells(Rows.Count, "c").End(xlUp).Row
   Columns("c").Resize(der).Sort Range("c1"), xlAscending, Header:=xlYes
   Columns("c").Resize(der).RemoveDuplicates Columns:=1, Header:=xlYes
   Columns("c").Borders.LineStyle = xlLineStyleNone
   der = Cells(Rows.Count, "c").End(xlUp).Row
   Columns("c").Resize(der).Borders.LineStyle = xlContinuous
End Sub

 

[Phil69970]

Bonjour @chaelie2015
Edit : Bonjour @mapomme pb de rafraichissement comme d'hab 😳

Je te propose ce fichier

Merci de ton retour

@Phil69970

 

[chaelie2015]

Bonjour mapomme, @Phil69970
Désolé pour ce retard , merci pour les réponses, c'est parfait.
a+