Filtre / Trier une plage de cellule -1
Bonjour,
J'aimerais pouvoir trier par ordre croissant une plage de cellules dont la taille peut varier et sans prendre en compte dans le tri la dernière cellule de cette plage de cellules.
Je mets un exemple en pièce jointe.
Si vous avez des idées.
Salut gmb,
Ca marche super
Merci
J'essaye de modifier le code pour sélectionner l'ActiveCell directement, sans intervention de l'utilisateur.
Sub Trier(n As String)
Dim cell As Range, plage As Range
Set cell = Sheets("Listes").Range(n) au lieu d'ActiveCell
Set plage = cell.CurrentRegion
Set plage = plage.Resize(plage.Rows.Count - 1, plage.Columns.Count)
plage.Select >> J'ai un message d'erreur à ce niveau
plage.Sort key1:=cell, order1:=xlAscending, Header:=xlNo
End Sub
J'ai plusieurs listes à trier et je voudrais pouvoir passer en paramètre la référence de la colonne à trier ("A1"), ("C1), ("Z1"), via n As String et appeler la procédure Trier quand nécessaire.
Une idée ?
Bonjour
Joins ton nouveau fichier et explique ce que tu veux obtenir ; pas la macro, ça, j'en fais mon affaire.
Bye !
Ah et bien s'il suffit de joindre un fichier, je m'exécute
Le test est concluant merci gmb c'est exactement ce dont j'avais besoin
Bon week-end !