Tri de colonnes

[Sassy]

Bonjour le forum,

Je bute depuis un moment sur un problème et je n'ai rien trouvé dans les archives pour m'aider ..

J'ai un tableau qui se génère automatiquement .. ce tableau contient environ 200 colonnes .. ce que j'aimerais faire c'est trier chaque colonne par ordre alphabétique de la ligne 3 à la ligne 600 ..

Ce tableau étant réactulisé chaque semaine je n'ai pas trop envie de passer 3h à chaque fois pour le 're' trier ..

Il y a t'il une possibilité via macro ?

Merci d'avance et encore bravo à tous ceux qui alimentent ce forum de leurs brillantes idées

 

[Bebere]

bonjour
j'espère qe la suite vous aidera

Sub TrierColonne()

Dim L As Integer, Ligne As Integer, Colonne As Integer

'adapter ('Feuil1')
Sheets('Feuil1').Select
Colonne = Rows(3).Find('*', , , , , xlPrevious).Column
For L = 1 To Colonne
Ligne = Columns(1).Find('*', , , , , xlPrevious).Row
Range(Cells(3, Colonne), Cells(Ligne, Colonne)).Select
Selection.Sort Key1:=Cells(3, Colonne), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Next

Cells(1, 1).Select

End Sub

au revoir

 

[Bebere]

re bonjour
mea culpa,envoyer le mauvais

Sub TrierColonne()

Dim C As Integer, Ligne As Integer, Colonne As Integer

'adapter ('Feuil1')
Sheets('Feuil1').Select
Colonne = Rows(3).Find('*', , , , , xlPrevious).Column
For C = 1 To Colonne
Ligne = Columns(1).Find('*', , , , , xlPrevious).Row
Range(Cells(3, C), Cells(Ligne, C)).Select
Selection.Sort Key1:=Cells(3, C), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Next C

Cells(1, 1).Select

End Sub

à bientôt