bouton tri

Paritec

XLDnaute Barbatruc

• 14 Septembre 2009

• #2

Re : bouton tri

bonsoir Chris le forum
ton fichier en retour
a+
Papou

 

Pièces jointes

• Copie de bouton tri1.zip

  16.1 KB · Affichages: 58

Dernière édition: 14 Septembre 2009

Vote positif 0 Vote négatif

C

chrisdu73

XLDnaute Occasionnel

• 14 Septembre 2009

• #3

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

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 14 Septembre 2009

• #4

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

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 14 Septembre 2009

• #5

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

 

Vote positif 0 Vote négatif

C

chrisdu73

XLDnaute Occasionnel

• 14 Septembre 2009

• #6

Re : bouton tri

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

encore merci

 

Vote positif 0 Vote négatif

C

chrisdu73

XLDnaute Occasionnel

• 14 Septembre 2009

• #7

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Septembre 2009

• #8

Re : bouton tri

Bonsoir à tous


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

Code:

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

xlDescending pour Décroissant

 

Vote positif 0 Vote négatif