tri d'une liste de données numériques

[Charles]

La j'ai un nouveau problème, j'ai une colonne avec des données numériques et j'aimerais bien faire une macro qui me les tri dans l'orde décroissant et j'ai essayé de taper du code sous vb et cela plante à chaque fois!
est ce que quelqu'un serait si il existe une fonction sous vb ou aurai le code!
je galère depuis ce matin la dessus!
merci d'avance!

 

[Gérard DEZAMIS]

Bonsoir Charles

Avec l'enregistreur de Macro cela donne
Sub Trier()
Range("A:A").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlDescending
Range("A1").Select
End Sub

Les données étant en colonne A Pourquoi une macro ? l'icone Z-A avec flèche vers le bas de la barre d'outils staandard le fait trsè bien !

@+
GD

 

[Charles]

Sub Trier()
Range("A:A").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlDescending
Range("A1").Select
End Sub

je n'arrive pas vraiment à l'appliquer!et oui je suis vraiment un gros nul!dosi je le passser en fonction dasn ma macro car ma macro execute d'autres instructions et donc ca déconne avec les trucs end sub!
je sais pas si je suis très clair!
mais moi c'est pas méga clair dqans mon esprit!

 

[Gérard DEZAMIS]

Bonsoir Charles

Dans la Charte :

En ce qui concerne la possibilité de pièces jointes, elles devront être explicites et comporter juste un exemple de votre problème, pas une application entière. Il est inutile de joindre un tableau formaté de 100 lignes et 30 colonnes et plusieurs feuilles pour un exemple. De plus les données contenues devront être "purgées" de toute information confidentielle. Le Webmaster ne pourra en aucun cas être tenu pour responsable.

Alors j'attends (Nous attendons ![:b]) ton fichier

@+
GD

 

[Charles]

En fait ca marge mais je veux trier 4 colonnes en fonctions d'une seule colonne
A B c D
libelle marge taux code ss
SILLAGE 3000 CARB L 260 260 100
GEEMARC PALMA SI L 400,2 59,7 100
AVENA 66 SWISSVOICE CH L 119,8 59,9 100

Par exemple, si je veux trier ces elements ne fonction de la marge

SUB TRI()
range("B:B").Select

Selection.Sort Key1:=range("B1"), Order1:=xlDescending
range("B1").Select
end sub

comment dois je faire???

 

[Charles]

personne à une tyte idée car là je bloque depuis deux jours la dessus, je me toture l'esprit à taper des algos qui ne marchent pas!