tri dans une colonne

[crapille]

Bjr tout le monde,

je souhaiterai savoir si il existe une possibilité de trier une colonne à partir d'une autre.
Je m'explique : plage A1:A5 avec des valeurs correspondantes de 100 à 500.
Dans une autre colonne, B, il faudrait qu'un tri décroissant se fasse automatiquement sans manipulation de l'utilisateur (bouton à cliquer par exemple) donc via une formule je pense, de façon à avoir un résultat qui serait B1:B5 de 500 à 100.
Cette formule resterait fixe, en cas de changement de valeurs dans la plage A1:A5, le tri se ferait directement dans la plage B1:B5.
Merci d'avance pour votre aide.
Crapille

 

[pat1545.]

Salut,

est ce que rang(a1;$a$1:1a$5) peut aller ?

Bye

 

[ODVJ]

Bonsoir,

Si ta colonne A est triée et que tu veux inverser le tri de A:A dans B:B tu peux utiliser une simple formule :
en B1, =INDIRECT('a'&NBVAL(A:A)-LIGNE()+1)
puis une recopie vers le bas.
L'hypothèse du tri pour A:A me semble restrictive mais au cas où, ça peut servir!

Si A:A n'est pas triée, une macro évènementielle à mettre derrière la feuille concernée fera l'affaire :
Private Sub Worksheet_Change(ByVal Target As Range)
Set vzone = ActiveSheet.Range(ActiveSheet.Range('A1'), ActiveSheet.Range('a1').End(xlDown))
If Target.Column = 1 And Target.Row <= vzone.Rows.Count Then
vzone.Copy
Range('C1').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Sort Key1:=Range('C1'), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End If
End Sub

A+