Classer des données automatiquement

Excel
19

Re,

Ok, c’est une procèdure qui ne fonctionne pas sur 2010

alors, voilà ce qu’il faut faire

quand ton classeur est ouvert
ALT et touche F11 cela ouvre le Visual Basic
en bas des feuilles, sur la partie gauche, tu as le nom ThisWorkbook
double clic dessus

tu sélectionne ce qu’il se trouve dans la partie droite

depuis après Option Explicit jusqu’en bas (End Sub) et tu supprime par la touche Suppr

tu copies et colle la macro ci-dessous à la place, et c’est bon

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  If ActiveSheet.Name = "CLAS_SUR_ANNEE" Or ActiveSheet.Name = "bareme_points" _
    Or ActiveSheet.Name = "SUPERSTRUCTURE_" Or ActiveSheet.Name = "SIT_N_GO" _
    Or ActiveSheet.Name = "CLASSEMENT_PAR_EQUIPE" Then Exit Sub
  Range("A4:O4").Select
  Selection.AutoFilter
  ActiveSheet.AutoFilter.Sort.SortFields.Clear
  ActiveSheet.AutoFilter.Sort.SortFields.Add Key:= _
      Range("M4"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
  With ActiveSheet.AutoFilter.Sort
      .Header = xlYes
      .MatchCase = False
      .Orientation = xlTopToBottom
      .SortMethod = xlPinYin
      .Apply
  End With
  Selection.AutoFilter
  Range("A4").Select
End Sub