bouton tri

[chrisdu73]

bonjour,
je n'arrive pas a ecrire un petit code:
j'ai un tableau ou je voudrais ajouter un bouton pour faire un tri sur la colonne correspondante (le nombre de ligne pouvant varié).
merci pour votre aide precieuse.

Chris

 

[Paritec]

Re : bouton tri

bonsoir Chris le forum
ton fichier en retour
a+
Papou

 

[chrisdu73]

Re : bouton tri

merci Jean Marcel
j'ai colé ton code et adapter a chaque colonne, ca fonctionne mais j'ai oublié de preciser que mon fichier final avait une derniere ligne avec un total de chaque colonne et quand je realise le tri cette ligne passe en premier, lol

toujours pareil cette deniere ligne est pas toujours a la meme place en fonction du nombre de lignes

encore merci

 

[Paritec]

Re : bouton tri

Bonsoir Jean Marcel Chris le forum
essayes cela et ce sera bon
bonne soirée
a+
Papou 🙂

Sub Macro1()
Range("A6:V" & Range("a65000").End(xlUp).Row - 1).Sort Key1:=Range("G6"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

 

[Paritec]

Re : bouton tri

Bonsoir Jean Marcel le forum
tout le plaisir est pour moi, je t'ai marché dessus plus bas j'avais pas rafraichi et pas vu ta réponse.
Ta tempo d'hier trés bien je l'ai bien mémorisée !! (pour degap05)
bonne soirée
a+
amicalement
papou

 

[chrisdu73]

Re : bouton tri

lol, encore un petit souci j'avais pas vu, le tri se fait croissant et non pas decroissant.

encore merci

 

[chrisdu73]

Re : bouton tri

ok j'ai trouver grace a votre aide,
mille merci a vous

Bonne soirée et peut etre a un autre petit probleme

Chris

 

[Staple1600]

Re : bouton tri

Bonsoir à tous


Sauf erreur de ma part, redigé ainsi ca doit fonctionner aussi

Private Sub B1_Click()
Range("A6:V" & Range("a65000").End(xlUp).Row - 1).Sort Range("G6"), xlAscending
End Sub

xlDescending pour Décroissant