Bonjour,
je suis confronter à un problème, je souhaite trier une zone de cellules, grâce à un bouton de contrôle lorsque je le sélectionne, je trie la colonne en ordre croissant. Pour cela j'utilise la macro suivante :
Sub Try(cellule As String)
Application.ScreenUpdating = False
Range("lazone").Select ' avec lazone=L4C1:L69C3
Selection.Sort Key1:=Range(cellule), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Application.ScreenUpdating = True
Range("A1").Select
End Sub
Problème tout fonctionne bien sur la 2éme et 3éme colonne mais pas sur la première qui trie que les 60 premières valeurs, y a t'il une fonction qui manque ?, bref je bloque et je ne sais pas quoi faire.
Si vous avez une solution, je suis preneur.
En vous remerciant par avance.
je suis confronter à un problème, je souhaite trier une zone de cellules, grâce à un bouton de contrôle lorsque je le sélectionne, je trie la colonne en ordre croissant. Pour cela j'utilise la macro suivante :
Sub Try(cellule As String)
Application.ScreenUpdating = False
Range("lazone").Select ' avec lazone=L4C1:L69C3
Selection.Sort Key1:=Range(cellule), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Application.ScreenUpdating = True
Range("A1").Select
End Sub
Problème tout fonctionne bien sur la 2éme et 3éme colonne mais pas sur la première qui trie que les 60 premières valeurs, y a t'il une fonction qui manque ?, bref je bloque et je ne sais pas quoi faire.
Si vous avez une solution, je suis preneur.
En vous remerciant par avance.
Pièces jointes
Dernière édition: