Bonjour,
J'ai 8 feuilles dans un classeur, je souhaiterai créer un bouton sur chaque feuilles permettant un tri, pour cela j'ai créer une macro de tri. Cela fonctionne sur la feuille où je crée la macro mais lorsque je crée le bouton sur la feuille suivante, la macro ne fonctionne pas! J'aimerai savoir comment créer une macro que je puisse affecter à un bouton sur les 8 feuilles? Je vous joins le code la macro créée pour la 1ère feuille qui se nomme "3":
Sub TRISCOREGDG()
'
' TRISCOREGDG Macro
'
'
Range("B5" ).Select
ActiveCell.FormulaR1C1 = "5"
Range("C5" ).Select
ActiveCell.FormulaR1C1 = "6"
Range("B6" ).Select
ActiveCell.FormulaR1C1 = ""
Range("B9" ).Select
ActiveCell.FormulaR1C1 = "4"
Range("C9" ).Select
ActiveCell.FormulaR1C1 = "5"
Range("A4:D79" ).Select
ActiveWindow.SmallScroll Down:=-81
ActiveWorkbook.Worksheets("03" ).Sort.SortFields.Clear
ActiveWorkbook.Worksheets("03" ).Sort.SortFields.Add Key:=Range("C5:C79" ), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("03" ).Sort
.SetRange Range("A4:D79" )
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("F4" ).Select
ActiveWindow.SmallScroll Down:=3
End Sub
Je vous remercie pour l'attention que vous vous voudrez bien apporter à mon problème.
Petite précision, je suis novice dans ce domaine!
