XL 2016 Tri Tableau en fonction d'un bouton

Goose · 11 Juillet 2023

Boujour le forum,
en fonction du code suivant:

VB:

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

sylvanu · 11 Juillet 2023

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 :

VB:

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

fanch55 · 11 Juillet 2023

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

sylvanu · 11 Juillet 2023

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

Goose à dit:
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 :

VB:

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 · 11 Juillet 2023

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

sylvanu · 11 Juillet 2023

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 :

VB:

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 · 11 Juillet 2023

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

Goose · 12 Juillet 2023

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

XL 2016 Tri Tableau en fonction d'un bouton

Goose

XLDnaute Occasionnel

sylvanu

fanch55

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Goose

XLDnaute Occasionnel

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Goose

XLDnaute Occasionnel

Goose

XLDnaute Occasionnel

Discussions similaires