Autres (RESOLU) copier coller ordre croissant et sans doublant

chaelie2015

XLDnaute Accro
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
 

Pièces jointes

  • Charlie copier ordre croissant.xlsx
    14.7 KB · Affichages: 3

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonsoir @chaelie2015 :),

Code à mettre dans le module associé à la feuille "Feuil2" :
VB:
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
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
312 223
Messages
2 086 407
Membres
103 201
dernier inscrit
centrale vet