Excel, trier des colonnes automatiquement
Résolu
Utilisateur anonyme
-
Utilisateur anonyme -
Utilisateur anonyme -
Bonjour,
J'ai cherché sur le forum des sujets similaires, mais je n'ai pas trouvé mon bonheur.
Voici mon problème.
Voilà ma feuille : http://img27.imageshack.us/img27/9523/exceltricolumn.jpg
Je voudrais trier les colonnes dans l'ordre décroissant, selon les valeurs de "Total membre". Le total membre est égale à la somme des valeurs des lignes du dessus.
Dans le cas présent, avec le tri automatique, toute la colonne "Appareil 2" passerait tout à gauche, et "Appareil 1" à droite, car le tri est décroissant.
Je voudrais un tri automatique car je serai amené à ajouter/supprimer des colonnes et lignes régulièrement.
Merci d'avance pour tout contribution.
J'ai cherché sur le forum des sujets similaires, mais je n'ai pas trouvé mon bonheur.
Voici mon problème.
Voilà ma feuille : http://img27.imageshack.us/img27/9523/exceltricolumn.jpg
Je voudrais trier les colonnes dans l'ordre décroissant, selon les valeurs de "Total membre". Le total membre est égale à la somme des valeurs des lignes du dessus.
Dans le cas présent, avec le tri automatique, toute la colonne "Appareil 2" passerait tout à gauche, et "Appareil 1" à droite, car le tri est décroissant.
Je voudrais un tri automatique car je serai amené à ajouter/supprimer des colonnes et lignes régulièrement.
Merci d'avance pour tout contribution.
2 réponses
-
Bonjour,
Je pense que ton exemple était un peu simpliste, et ne reflétait pas du tout la structure de ton tableau réel...
Pour t'en convaincre, regarde le fichier joint, qui reprend ton tableau "image"...
Si tu as du mal à adapter, joins un fichier "EXCEL", et non une image (tu n'envoies pas l'image de ta voiture au garage pour la faire réparer....)
http://www.cijoint.fr/cjlink.php?file=cj201009/cijVJ80xPf.zip
Bonne nuit -
Bonjour,
Manuellement, cela ne prend pas beaucoup de temps....
Tu sélectionnes toutes les lignes, de la ligne 1 à la dernière ligne remplie
Tu fais "Données/Trier"
En bas, dans "Options", tu sélectionnes "De la gauche vers la droite"
Et dans le premier "Trier par", tu sélectionnes ta dernière ligne.
Sélectionne "décroissant"
Et le tour est joué
Maintenant, si tu veux un code pour le faire, tu peux essayer ainsi :
Sub Tri_Gauche_Droite() Dim DerLig As Long Dim DerCol As Byte DerLig = [A65000].End(xlUp).Row DerCol = [IV1].End(xlToLeft).Column Range(Cells(1, 1), Cells(DerLig, DerCol)).Name = "base" Range("base").Sort Key1:=Cells(DerLig, 1), Order1:=xlDescending, Header:=xlGuess, _ Orientation:=xlLeftToRight End Sub
Bonne nuit
