Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Tri de colonnes

  • Initiateur de la discussion Initiateur de la discussion Sassy
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S

Sassy

Guest
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
 
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
XL 2021 listbox
Réponses
18
Affichages
731
Réponses
6
Affichages
358
Réponses
9
Affichages
700
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…