Autres Commande SORT dans VBA

FOUQUET Yves · 9 Octobre 2022

Bonjour à toutes et tous,
Je viens chercher une aide toujours précieuse.
J'ai une feuille avec une liste de nom:
- colonne A = nom
- colonne B = prénom
- colonne C = adresse
...
Cerfa_list est le nom de ma feuille.

Je sais faire en VBA un trie sur une colonne A de ligne 1, avec ces lignes de code:
With Sheets("Cerfa_list")
.[A:C].Sort .[a1], xlAscending, Header:=xlYes
End With
mais pas un double trie comme on peut le faire dans Excel en ajoutant un niveeau de trie.
Je voudrais également trier le premier rendu sur colonne A, avec le prénom en colonne B afin d'obtenir une liste
triée par nom et chaque nom trié par prénom.

Voilà, si quelqu'un a la solution, je lui exprimerai toute ma gratitude car cela fait quelques jours que je cherche en vain.
Merci d'avance.
Yves

FOUQUET Yves · 9 Octobre 2022

Voilà j'ai trouvé la solution sur le net:
Range("A:M").Sort Key1:=Range("A1"), Key2:=Range("B1"), Header:=xlYes, _
Order1:=xlAscending, Order2:=xlAscending

FOUQUET Yves · 9 Octobre 2022

Voilà j'ai trouvé la solution sur le net:
Range("A:M").Sort Key1:=Range("A1"), Key2:=Range("B1"), Header:=xlYes, _
Order1:=xlAscending, Order2:=xlAscending

Staple1600 · 9 Octobre 2022

Bonjour @FOUQUET Yves , le fil,

@FOUQUET Yves
Pour le fun et en guise d'échauffement pour mon VBE en ce dimanche matin frisquet

Un petite procédure de tri paramétrable
(ici avec deux exemples de tri)

VB:

Sub t_asc()
Dim p As Range
Set p = Range("A1:C7")
tri p, xlYes, xlAscending, xlAscending
End Sub
Sub t_desc_light()
Dim p As Range
Set p = Range("A1:C7"): tri p, 1, 2, 2
End Sub
Private Sub tri(p As Range, titre As XlYesNoGuess, sA As XlSortOrder, sB As XlSortOrder)
p.Sort Key1:=p(1)(1), Key2:=p(2)(1), Header:=titre, Order1:=sA, Order2:=sB
End Sub

Ci-dessous données pour tester

nom	prénom	adresse
marc	sophie	a4
marc	alain	a3
jean	marc	a1
jean	isabelle	a2
azor	regis	a5
azor	elisa	a6

FOUQUET Yves · 13 Octobre 2022

Staple1600 à dit:
Bonjour @FOUQUET Yves , le fil,

@FOUQUET Yves
Pour le fun et en guise d'échauffement pour mon VBE en ce dimanche matin frisquet

Un petite procédure de tri paramétrable
(ici avec deux exemples de tri)

VB:

Sub t_asc() Dim p As Range Set p = Range("A1:C7") tri p, xlYes, xlAscending, xlAscending End Sub Sub t_desc_light() Dim p As Range Set p = Range("A1:C7"): tri p, 1, 2, 2 End Sub Private Sub tri(p As Range, titre As XlYesNoGuess, sA As XlSortOrder, sB As XlSortOrder) p.Sort Key1:=p(1)(1), Key2:=p(2)(1), Header:=titre, Order1:=sA, Order2:=sB End Sub

Ci-dessous données pour tester

nom prénom adresse
marc sophie a4
marc alain a3
jean marc a1
jean isabelle a2
azor regis a5
azor elisa a6

Merci beaucoup de l'aide.
Bonne journée.

Autres Commande SORT dans VBA

FOUQUET Yves

XLDnaute Occasionnel

FOUQUET Yves

FOUQUET Yves

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

FOUQUET Yves

XLDnaute Occasionnel

Discussions similaires