Trier et Unique en VBA
Bonjour à tous,
Je suis une petite nouvelle sur ce forum ! Et je me débrouille mal en VBA !
J'ai donc besoin de vous !
Voilà mon problème : Je suis sous Microsoft 365 Famille. J'ai trouvé cette formule =TRIER(UNIQUE(AD3:AD157)) qui me va très bien sauf que
je souhaiterai la mettre dans une macro en VBA pour l'affecter à un bouton.
Donc, pour être plus claire :
1/ je souhaite rechercher dans la plage AD3:AD200 les valeurs uniques et les placer à partir de la Cellule U3; U4, etc..
2/ je souhaite trier par ordre croissant la plage U3:U150
Pouvez-vous m'aider ?
En vous remerciant
Bien Cordialement
Patri
Bonjour et
Quel genre de valeur ? (Nombre, Texte)
A=
Bonjour Galopin,
ce sont des dates au format jj/mm/aaaa
A+
Bonsoir,
Tes données en A1:A20
Résultat à partir de C1
Sub test()
Dim a
a = WorksheetFunction.Sort(WorksheetFunction.Unique(Sheets("Feuil1").Range("a1:a20")), 1)
Sheets("Feuil1").Range("c1").Resize(UBound(a, 1)) = a
End Subklin89
Bonsoir Klin89,
Super super super, merci beaucoup ça fonctionne impeccable !
A bientôt
Bien cordialement
Patri
Re patri,
Plus simplement :
Sub test()
Sheets("Feuil1").Range("C1").Formula2 = "=SORT(UNIQUE(A1:A20))"
End Subon voit la formule matricielle dynamique s'afficher en C1
klin89
Merci Klin89,
ça fonctionne aussi !
Merci beaucoup
Bonne continuation
Patricia