XL 2021 Temps réel d'éxécution macro

[treza88]

Bonjour à tous,

Je voudrais avoir votre avis sur le temps réel d'exécution d'une macro, je m'explique.

J'ai une macro avec avant End Sub le code suivant :

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
If nbNewProject < 2 Then
    MsgBox "durée du traitement: " & Timer - start & " secondes" & vbLf & vbLf & nbNewProject & " nouveau projet importé"
Else
    MsgBox "durée du traitement: " & Timer - start & " secondes" & vbLf & vbLf & nbNewProject & " nouveaux projets importés"
End If

End Sub

en fin de macro, j'ai mon MsgBox qui apparait :

Cependant la macro chronométré à mit 32 secondes d'exécution.

Pourquoi cela ?

La macro est arrivé a End Sub en 10 secondes mais elle n'a pas affiché le MsgBox avant 32 secondes, je suppose que c'est le traitement en arrière plan, mais pourquoi Excel ne redonne pas la main pour travailler ?

Merc d'éclairer ma lanterne et si vous avez un moyen de pouvoir récupérer la main avant la fin des 32 secondes, je suis preneur.

Si aucun moyen de reprendre la main, existe t il un moyen d'avoir le vrai temps d'exécution, c'est à dire 32 secondes.

Pour info, dans mon code il y a deux fois deux boucles imbriquées ce qui explique en grande partie le temps de traitement.

Je sais que certains vont me demander un fichier, mais je suis désolé, je ne peux pas les fournir, est créer des fichiers d'exemple serait trop compliqué.
Par contre je peux mettre le code si vous voulez, mais je doute, que par rapport à ma question cela vous aide beaucoup.
Mais si vous le voulez demandez moi

Merci d'avance

 

[gbinforme]

Bonsoir,

Si tu mets

Application.Calculation = xlCalculationAutomatic

après ton msgbox tu devrais avoir le temps de la macro
car tes 32 secondes sont sans doute dues au re-calcul.

 

[sylvanu]

Bonsoir Treza, Gbiforme,
Avec ce bout de code on ne peut rien faire, donnez au moins toute la macro, ne serait ce que pour savoir quand est lancé le timer.

 

[treza88]

Merci à vous deux,

Mais supprimer :

Application.Calculation = xlCalculationAutomatic

à résolut mon problème, la macro s'exécute en 6 secondes et je peux reprendre la main, merci gbinforme.

Le code ci dessus devait forcer le recalcul du classeur et prendre du temps pour rien.