XL 2016 Tri Tableau en fonction d'un bouton

[Goose]

Boujour le forum,
en fonction du code suivant:

Sub Tri_Tableau2()
Dim R As Object
Set R = ActiveSheet.Shapes(Application.Caller).TopLeftCell
ActiveSheet.Range(R.Offset(0, -2).Address, R.Offset(2, -12).Address).Select
End Sub

comment insérer une procédure de tri avec une Key1:=Range("B"), Order1:=xlDescending ?
Slts

 

[fanch55]

Bonjour, la table est-elle structurée ou pas ?
par Range("b"), vous voulez dire columns("B") ?

 

[sylvanu]

Bonjour Goose, Fanch,
A quoi vous sert le Select si ensuite vous triez sur la colonne B ?

comment insérer une procédure de tri avec une Key1:=Range("B"), Order1:=xlDescending ?

Pour ne répondre qu'à cette question, vous pouvez faire :

Columns("B").Sort key1:=[B1], order1:=xlDescending, Header:=xlNo ' ou xlYes si la colonne a un titre

Et si c'est pas ça, donnez un petit fichier test avec quelques explications supplémentaires.

 

[Goose]

Ok voici un petit fichier explicatif !!
en espérant que cela puisse aider ?

 

[sylvanu]

Re,
un essai en PJ.
J'ai supprimé les cellules fusionnées car je n'arrivais pas à obtenir des résultats probant.
Donc un essai avec :

Sub Tri_Tableau1()
Dim R As Object, Plage As Range
Set R = ActiveSheet.Shapes(Application.Caller).TopLeftCell
Set Plage = ActiveSheet.Range(R.Offset(0, -1).Address, R.Offset(2, -4).Address)
Plage.Sort _
        Key1:=Cells(Plage.Row, "B"), Order1:=xlDescending, _
        Key2:=Cells(Plage.Row, "C"), Order2:=xlDescending, _
        Key3:=Cells(Plage.Row, "D"), Order3:=xlDescending, Header:=xlNo
End Sub

 

[Goose]

ok merci j'essaye ça ce soir et te dis !!

 

[Goose]

ça m'a l'air super merci encore !!
@+