XL 2019 Pourquoi une telle différence de temps?

[Paulle]

Bonjour à tous.
En cliquant sur le bouton TRI, le temps d’exécution est d'environ 1 seconde.
Si je lance la macro à partir de l'onglet développeur, c'est 0,15 seconde.
Pourquoi une telle différence de temps?

Est-il possible de simplifier le code vba?

Merci.

 

[fanfan38]

Bonjour
Ci joint ma solution

A+ François
Toutes les lignes qui ont un ' en debut de ligne peuvent être supprimées

 

[herve62]

Bonjour
Tu es très pressée ?? 85 / 100 sec ?? c'est juste le temps de réaction entre le bouton TRI car tu es sur l'onglet en cours, donc Application screen updating va s'executer alors que dans le VBE pas besoin
Il n'y a rien à modifier

 

[fanch55]

Salut, la différence de temps est infime, dérisoire et aléatoire, elle est dépendante de ton système et de l'instant t ...
En poussant la simplification à l’extrême ( ce qui ne fait pas forcément gagner du temps ) :

Option Explicit
Sub Macro1()
Dim start, T
start = Timer

'
Application.ScreenUpdating = False
    With [T_Fetes].ListObject.Sort
        .SortFields.Clear
        .SortFields.Add2 SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal, _
            Key:=[T_Fetes[Date_Prochaine]]
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    With [T_Anniversaires].ListObject.Sort
        .SortFields.Clear
        .SortFields.Add2 SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal, _
            Key:=[T_Anniversaires[Prochain Anniversaire]]
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
Application.ScreenUpdating = True

'Mesure temps
T = Timer
MsgBox "durée du traitement: " & Format(T - start, "00.00000") & " secondes " & vbLf & "t=" & T & vbLf & "s=" & start
    
End Sub

 

[fanch55]

Mais la version de @fanfan38 est radicale et toute aussi valable !!! 😉

 

[Paulle]

Merci Fanfan, un sacré ménage et un gain de temps visible.
Merci herve62.
Merci franch55 mais la version de Fanfan est radicale.

 

[fanch55]

Attention aux tables disposées à l'horizontale,
il n'existe aucun filtrage efficace pour ce type de disposition ... ( quand vous en aurez besoin ) .