trie

Question

Bonjour,
je veux trier un grands tableau contenant un grands nombre de colonnes ;
mais le prbleme je ne veux pas selectionner chaque colonna a part et la trier
et si je selectionne la totalité du tableau et je trie la premiere colonne et trie correctement mais les autre suivent la premiere. et moi je veux trier de plus grands au plus petit indépendamment.
merci.

CapitainCo · Answer

tu cliques sur la colonne que tu veux trié tu fais ZA-> et tu fais "continuer acvec la sélection en cours"
si cela ne te va pas tu sélectionne ton tableau et tu fais données trier et tu fais par ordre de colonne decroissant

CapitainCo · Answer

Fais une macro

voici ce que cela donne en code

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 27/06/2008 par xxx
'

'
    Range("E4:E22").Select
    Selection.Sort Key1:=Range("E4"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("F5:F22").Select
    Range("F22").Activate
    Selection.Sort Key1:=Range("F22"), Order1:=xlDescending, Header:=xlGuess _
        , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

CapitainCo · Answer

tu sais faire une macro?

555555 · Answer

non

CapitainCo · Answer

va voir
http://www.conseil-creation.com/informatique/bureautique/excel/macro.php

A la place d'ecrire bonjour ou je ne sais quoi dans l'exemple tu fais ton trie ZA sur chaque colonne, tu stop ta macro. et quand tu relanceras la macro tu veras c magique

555555 · Answer

est ce qu on peux ajouter un boucle au début et dire faire le trie du colonne numéro 1 jus qu a 1000, par exemple au lieu de d ecrire E pui F...
je pose triop de question excuse moi.
merci

CapitainCo · Answer

Pas de probleme;
Quand tu crées ta macro seléctionne de la ligne 1 a 1000 sur ta colonne, pas besoin de boucle

h555555 · Answer

ca marche que pour le  colonne F peut etre il faut ajouter une boucle voir ou j ai fait des     " ===="

car ce programme marche que pour FFF
Sub Macro1() 
' 
' Macro1 Macro 
' Macro enregistrée le 27/06/2008 par C401264 
' 
==================================================   iciiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii
' 
Range("E4:E22").Select 
Selection.Sort Key1:=Range("E4"), Order1:=xlDescending, Header:=xlGuess, _ 
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ 
DataOption1:=xlSortNormal 
Range("F5:F22").Select 
Range("F22").Activate 
Selection.Sort Key1:=Range("F22"), Order1:=xlDescending, Header:=xlGuess _ 
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ 
DataOption1:=xlSortNormal 
End Sub

CapitainCo · Answer

donne moi tout les colonne que tu veux trier, car la tu me montres mon code.
je vais te la faire ta macro

CapitainCo · Answer

Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 27/06/2008 par
'

'
    Columns("A:A").Select
    Selection.Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Columns("B:B").Select
    Range("A1:D2").Sort Key1:=Range("B1"), Order1:=xlDescending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Columns("C:C").Select
    Selection.Sort Key1:=Range("C1"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Columns("D:D").Select
    Selection.Sort Key1:=Range("D1"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

voila par exemple pour la colonne A, B, C et D

h555555 · Answer

le fichiers est trés grands veux tu que je tenvoie par mail  ?

CapitainCo · Answer

non juste la liste des colonnes

Trie

12 réponses

Votre réponse

Discussions similaires

Newsletters