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 Sort, méthode.

Sort, méthode.

3 réponses
Avatar
Jipé
Bonjour le Forum,

Le code ci-dessous me permet de trier la colonne "A". Les Noms.

Private Sub SortNom()
Dim L As Integer
Dim Plage As Range

L = Sheets("Paiements").Range("A65536").End(xlUp).Row
Set Plage = Sheets("Paiements").Range("A6:K" & L)
Plage.Sort Worksheets("Paiements").Columns("A"), _
Order1:=xlAscending, header:=xlGuess
End Sub

Comment trier également la colonne "B". Les Prénoms ?

Merci d'avance.

Jipé
Signaler un problème avec ce contenu

3 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
Claude Trouet
Bonsoir,
Voici ce que donne l'aide VBA d'Excel quand on sélectionne le mot Sort
Sort, méthode - Exemples

Cet exemple montre comment trier la plage A1:C20 de la feuille de calcul
Sheet1, en utilisant la cellule A1 en tant que première clé de tri et la
cellule B1 en tant que deuxième clé de tri. Le tri est effectué par ordre
croissant par ligne et il n'y a pas d'en-tête.

Worksheets("Sheet1").Range("A1:C20").Sort _
Key1:=Worksheets("Sheet1").Range("A1"), _
Key2:=Worksheets("Sheet1").Range("B1")Cet exemple montre comment trier
la région qui contient la cellule A1 (la région active) de la feuille de
calcul Sheet1, en triant les données de la première colonne et en utilisant
automatiquement une ligne d'en-tête si nécessaire. La méthode Sort détermine
automatiquement la région active.

Worksheets("Sheet1").Range("A1").Sort _
Key1:=Worksheets("Sheet1").Columns("A"), _
Header:=xlGuessCela devrait permettre de répondre à la question, non ?
CT

"Jipé" a écrit dans le message de news:
%
Bonjour le Forum,

Le code ci-dessous me permet de trier la colonne "A". Les Noms.

Private Sub SortNom()
Dim L As Integer
Dim Plage As Range

L = Sheets("Paiements").Range("A65536").End(xlUp).Row
Set Plage = Sheets("Paiements").Range("A6:K" & L)
Plage.Sort Worksheets("Paiements").Columns("A"), _
Order1:=xlAscending, header:=xlGuess
End Sub

Comment trier également la colonne "B". Les Prénoms ?

Merci d'avance.

Jipé



Avatar
Clément Marcotte
L'enregistreur de macros aurait été plus vite, non ?


"Jipé" a écrit dans le message de
news:%
Bonjour le Forum,

Le code ci-dessous me permet de trier la colonne "A". Les Noms.

Private Sub SortNom()
Dim L As Integer
Dim Plage As Range

L = Sheets("Paiements").Range("A65536").End(xlUp).Row
Set Plage = Sheets("Paiements").Range("A6:K" & L)
Plage.Sort Worksheets("Paiements").Columns("A"), _
Order1:=xlAscending, header:=xlGuess
End Sub

Comment trier également la colonne "B". Les Prénoms ?

Merci d'avance.

Jipé




Avatar
Jipé
Re le Forum,

Merci pour votre aide.
Effectivement l'enregistreur de macro a été efficace.
Désolé pour mon manque de réflexe.

Bonne nuit.
Jipé


"Jipé" a écrit dans le message de news:
%
Bonjour le Forum,

Le code ci-dessous me permet de trier la colonne "A". Les Noms.

Private Sub SortNom()
Dim L As Integer
Dim Plage As Range

L = Sheets("Paiements").Range("A65536").End(xlUp).Row
Set Plage = Sheets("Paiements").Range("A6:K" & L)
Plage.Sort Worksheets("Paiements").Columns("A"), _
Order1:=xlAscending, header:=xlGuess
End Sub

Comment trier également la colonne "B". Les Prénoms ?

Merci d'avance.

Jipé