Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Aide pour procedure de tri

Aide pour procedure de tri

5 réponses
Avatar
Thierry K
Bonjour à toutes et à tous
La procédure ci dessous fait le tri croissant sur la colonne A à partir de
la cellule A5,
comment l'adapter pour quelle effectue un tri croissant sur les colonnes "A"
et "B" sur la plage "A5:AZ"&LL
Merci d'avance pour votre aide
Thierry K
Excel 97 & 2000, Access 97 & 2000

Private Sub TrieNomPrenom()
Dim LL As Integer
Dim Plage As Range
LL = ThisWorkbook.Sheets("BD").Range("A65536").End(xlUp).Row
Set Plage = ThisWorkbook.Sheets("BD").Range("A5:AZ" & LL)
Plage.Sort ThisWorkbook.Sheets("BD").Columns("A"), Order1:=xlAscending,
Header:=xlGuess
End Sub
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Pounet95
Bonjour,
As-tu essayé avec l'enregistreur de macro puis regardé le résultat ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Thierry K" a écrit dans le message de news:
41961c13$0$25370$
Bonjour à toutes et à tous
La procédure ci dessous fait le tri croissant sur la colonne A à partir de
la cellule A5,
comment l'adapter pour quelle effectue un tri croissant sur les colonnes
"A"
et "B" sur la plage "A5:AZ"&LL
Merci d'avance pour votre aide
Thierry K
Excel 97 & 2000, Access 97 & 2000

Private Sub TrieNomPrenom()
Dim LL As Integer
Dim Plage As Range
LL = ThisWorkbook.Sheets("BD").Range("A65536").End(xlUp).Row
Set Plage = ThisWorkbook.Sheets("BD").Range("A5:AZ" & LL)
Plage.Sort ThisWorkbook.Sheets("BD").Columns("A"), Order1:=xlAscending,
Header:=xlGuess
End Sub




Avatar
GVentre
Bonjour Thierry K,

Tu peux rajouter la ligne mise en valeur par "#":

Private Sub TrieNomPrenom()
Dim LL As Integer
Dim Plage As Range
LL = ThisWorkbook.Sheets("BD").Range("A65536").End(xlUp).Row
Set Plage = ThisWorkbook.Sheets("BD").Range("A5:AZ" & LL)
Plage.Sort Key1:=ThisWorkbook.Sheets("BD").Columns("A"),
Order1:=xlAscending, _
# Key2:=ThisWorkbook.Sheets("BD").Columns("B"),
Order1:=xlAscending,
Header:=xlGuess
End Sub
--

Codrialement,

Guillaume VENTRE

"Thierry K" a écrit dans le message de news:
41961c13$0$25370$
Bonjour à toutes et à tous
La procédure ci dessous fait le tri croissant sur la colonne A à partir de
la cellule A5,
comment l'adapter pour quelle effectue un tri croissant sur les colonnes
"A"

et "B" sur la plage "A5:AZ"&LL
Merci d'avance pour votre aide
Thierry K
Excel 97 & 2000, Access 97 & 2000

Private Sub TrieNomPrenom()
Dim LL As Integer
Dim Plage As Range
LL = ThisWorkbook.Sheets("BD").Range("A65536").End(xlUp).Row
Set Plage = ThisWorkbook.Sheets("BD").Range("A5:AZ" & LL)
Plage.Sort ThisWorkbook.Sheets("BD").Columns("A"), Order1:=xlAscending,
Header:=xlGuess
End Sub




Avatar
Thierry K
Bonjour Pounet95
Avec L'enregistreur, j'ai
Range("A5:az" & LL).Select
Selection.Sort Key1:=Range("A5"), Order1:=xlAscending,
Key2:=Range("B5"), Order2:=xlAscending, Header:=xlNo, OrderCustom:=1,
MatchCase:úlse, Orientation:=xlTopToBottom

ça marche, mais il me semble qu'il devrait exister un procedure avec plage
et colonnes

Merci pour aide
A+
Thierry K

"Pounet95" a écrit dans le message de
news:eROWG$
Bonjour,
As-tu essayé avec l'enregistreur de macro puis regardé le résultat ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Thierry K" a écrit dans le message de news:
41961c13$0$25370$
Bonjour à toutes et à tous
La procédure ci dessous fait le tri croissant sur la colonne A à partir
de


la cellule A5,
comment l'adapter pour quelle effectue un tri croissant sur les colonnes
"A"
et "B" sur la plage "A5:AZ"&LL
Merci d'avance pour votre aide
Thierry K
Excel 97 & 2000, Access 97 & 2000

Private Sub TrieNomPrenom()
Dim LL As Integer
Dim Plage As Range
LL = ThisWorkbook.Sheets("BD").Range("A65536").End(xlUp).Row
Set Plage = ThisWorkbook.Sheets("BD").Range("A5:AZ" & LL)
Plage.Sort ThisWorkbook.Sheets("BD").Columns("A"), Order1:=xlAscending,
Header:=xlGuess
End Sub








Avatar
Thierry K
Merci pour ton aide

Thierry K
Avatar
Pounet95
Re, en reprenant ton exemple :...et comme indiqué par GVentre
pour la 2ème condition

Private Sub TrieNomPrenom()
Dim LL As Integer
Dim Plage As Range
LL = ThisWorkbook.Sheets("BD").Range("A65536").End(xlUp).Row
Set Plage = ThisWorkbook.Sheets("BD").Range("A5:AZ" & LL)
Plage.Sort Columns("A"), Order1:=xlAscending, Key2:=Columns("B"), _
Order2:=xlAscending, Header:=xlGuess
End Sub

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Thierry K" a écrit dans le message de news:
419620a7$0$5868$
Bonjour Pounet95
Avec L'enregistreur, j'ai
Range("A5:az" & LL).Select
Selection.Sort Key1:=Range("A5"), Order1:=xlAscending,
Key2:=Range("B5"), Order2:=xlAscending, Header:=xlNo, OrderCustom:=1,
MatchCase:úlse, Orientation:=xlTopToBottom

ça marche, mais il me semble qu'il devrait exister un procedure avec plage
et colonnes

Merci pour aide
A+
Thierry K

"Pounet95" a écrit dans le message de
news:eROWG$
Bonjour,
As-tu essayé avec l'enregistreur de macro puis regardé le résultat ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Thierry K" a écrit dans le message de news:
41961c13$0$25370$
Bonjour à toutes et à tous
La procédure ci dessous fait le tri croissant sur la colonne A à partir
de


la cellule A5,
comment l'adapter pour quelle effectue un tri croissant sur les
colonnes
"A"
et "B" sur la plage "A5:AZ"&LL
Merci d'avance pour votre aide
Thierry K
Excel 97 & 2000, Access 97 & 2000

Private Sub TrieNomPrenom()
Dim LL As Integer
Dim Plage As Range
LL = ThisWorkbook.Sheets("BD").Range("A65536").End(xlUp).Row
Set Plage = ThisWorkbook.Sheets("BD").Range("A5:AZ" & LL)
Plage.Sort ThisWorkbook.Sheets("BD").Columns("A"), Order1:=xlAscending,
Header:=xlGuess
End Sub