Bonjour,
je suis en stage et je dois faire un tableaux avec un tri de dates automatique sans manip faux que je ne maîtrise absolument pas excel mais avec quelque recherche j ai trouver les macro mais je ni comprend strictement rien donc j en ai fait une avec enregistrer macro mais il y a un racourci clavier hors je voudraos quelle soit automatique
bref voila la macro que j ai fait
Sub Macro1()
'
' Macro1 Macro
'
' Touche de raccourci du clavier: Ctrl+q
'
ActiveCell.Offset(-48, -4).Range("Tableau2[[#Headers],[bateau]]").Select
ActiveWorkbook.Worksheets("Feuil1").ListObjects("Tableau2").Sort.SortFields. _
Clear
ActiveWorkbook.Worksheets("Feuil1").ListObjects("Tableau2").Sort.SortFields. _
Add2 Key:=ActiveCell.Range("A1:A48"), SortOn:=xlSortOnValues, Order:= _
xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil1").ListObjects("Tableau2").Sort
.Header = xlYes
.MatchCase = True
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
