Excel, trier des colonnes automatiquement

Résolu
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.


A voir également:

2 réponses

Réponse 1 / 2
cousinhub29 Messages postés 1074 Date d'inscription   Statut Membre Dernière intervention   361
 
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
1
Utilisateur anonyme
 
C'est exactement ça que je voulais. Merci beaucoup !
0
Utilisateur anonyme
 
Euh... excuse-moi de t'importuner encore, en fait je me rends compte que je devrais mettre les membres dans les colonnes et les appareils à chaque ligne.
Voici le début : http://www.cijoint.fr/cjlink.php?file=cj201009/cijmnRgCVP.xls
0
Réponse 2 / 2
cousinhub29 Messages postés 1074 Date d'inscription   Statut Membre Dernière intervention   361
 
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
0
Utilisateur anonyme
 
Bonjour,

J'ai essayé la méthode manuelle et le code, mais rien ne fonctionne. :(
0