modification de mon code

[bpol]

bonjour le forum,

voilà pour l'instant j'ai un code qui me permet de trier une colonne

Range("P3😛100").Sort Key1:=Range("P3"), Order1:=xlAscending, Header:=xlGuess

mais maintenant je ce que je désire c'est de trier par ligne entière d'un tableau en fonction d'une colonne

je sais il y a la fonction trier dans excel mais j'ai au moins 5000 lignes à sélectionner

ci joint un exemple


Merci
BPOL

 

[jeanpierre]

Re : modification de mon code

Bonjour bpol,

Dans ton premier Range, tu définis ta plage, ex. Range("A3😛6000") et dans le second, ta colonne ex : Range("C3") si tu veux trier sur la colonne C.

Bonne journée.

Jean-Pierre

 

[2passage]

Re : modification de mon code

Bonjour,

Excel (en tout cas en version 2003) peut "deviner" la taille du tableau à trier. Il suffit de ne pas préciser un range à trier mais de lui indiquer juste une cellule de ce tableau a trier. Le code suivant devrait convenir :

Range("B4").Sort Range("B4")

(à tester dans votre fichier test.xls)
@+

 

[grodep]

Re : modification de mon code

je ne comprends pas ton problème : tu sais sélectionner l'ensemble de tes données pour les trier ensuite par la fonction trier, donc pourquoi ne le fais tu pas ? tu dis que tu as 5000 lignes, si ce qui te gene, c'est d'avoir à sélectionner toutes ces lignes avant de les trier, alors, ce que tu souhaites, c'est sans doute une macro qui l'effectue à ta place.
Mais il faut le préciser, pour l'instant je ne fais que des suppositions.

 

[grodep]

Re : modification de mon code

hmm bon j'arrive un peu tard: a tout hasard, ceci devrait fonctionner aussi :


Range("A4").CurrentRegion.Select
L = Range("B65386").End(xlUp).Row
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("B1:B" & L), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil1").Sort
.SetRange Range("A4😀" & L)
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

 

[bpol]

Re : modification de mon code

bonjour à tout,

merci pour vos réponses mais j'ai choisi la solution de jean pierre qui fonctionne comme je le désire

merci encore et A+
BPOL