Bonjour à tous,
Voilà, j'ai une macro (ci-joint) que j'aimerai modifier pour quelle puisse me permettre de trier n'importe quel tableau sur une feuille active.
Pour cela, j'ai pris la position du bouton de commande pour selectionner les plages concernées
mais sachant que les lignes des ces tableaux sont variables en fonction des pays médaillés, comment insérer, dans le code, une variable qui me selectionne la plage respective (entre le nombre 1 et la position du bouton) ??
voir fichier exemple:
Bye
Voilà, j'ai une macro (ci-joint) que j'aimerai modifier pour quelle puisse me permettre de trier n'importe quel tableau sur une feuille active.
Pour cela, j'ai pris la position du bouton de commande pour selectionner les plages concernées
mais sachant que les lignes des ces tableaux sont variables en fonction des pays médaillés, comment insérer, dans le code, une variable qui me selectionne la plage respective (entre le nombre 1 et la position du bouton) ??
voir fichier exemple:
Bye
Code:
Sub Insertion()
Dim derlig As Long
derligne = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row
Application.ScreenUpdating = False
Range("K" & derligne - 1 & ":O" & derligne - 5).Select
Selection.Sort Key1:=Range("L1"), Order1:=xlDescending, Key2:=Range("M1") _
, Order2:=xlDescending, Key3:=Range("N1"), Order3:=xlDescending, Header _
:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Application.ScreenUpdating = True
End Sub