probleme de tri

[brunonounours]

Bonjour,

Jai un tableau avec des résultats pouvant varié en fonctions de plusieurs facteurs, donc j'ai tout simplement une formule calulant la différence !! Je voudrais trier automatiquement ces cellules !!

1) Premier problème rencontré :
- Quand j'essaye d'appliquer un tri sur mes résultats il ne me tri pas ou partiellement mes sommes !!?? Si je resaisis les sommes il me les tri bien !!!! En gros le tri ne marche pas sur les formules !!!

2) Puis-je faire un tri automatique en fonction des sommes trouvées !!!??
Merci bcp pour votre aide !!

A++ [file name=TRI.zip size=8991]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TRI.zip[/file]

 

[JC de Lorient]

salut

essayes avec cette macro :

Sub tri()
Dim a
a = Range('A65536').End(xlUp).Row
Range('A5:H' & a).Select
Selection.Sort Key1:=Range('G5'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub


JC

 

[CB60]

Bonjour brunonounours et JC
Je ne vois pas ou est le probléme sur ton fichier. J'ai fais deux macro avec l'enregistreur et cela à l'air de fonctionné.
Bruno [file name=TRI1.zip size=11622]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TRI1.zip[/file]

 

[Nevil]

Cette macro est assez proche de celle de JC:

Sub tri()
Dim a
a = Range('G65536').End(xlUp).Row
Range('A5:H' & a).Select

Selection.Copy
Range('A5:H' & a).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

Selection.Sort Key1:=Range('G5'), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub

Par contre il n'y aura plus de Formule dans tes cellules, alors je te conseille de d'abord remplir tout ton tableau, et ensuite lancer la macro. [file name=tri_20060224150628.zip size=10807]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/tri_20060224150628.zip[/file]

 

[Nevil]

La reponse de notre Ami CB60 me parait avoir un fonctionnement parfait =)