XL 2013 Mettre en pause une macro sans intervenir

[MACx]

Bonjour à la communauté !

est-il possible de mettre en pause une macro pendant qu'une commande s'execute puis qu'elle reparte une fois cette dernière terminée ?
Exemple:

1- J'ai un tableau filtré, donc j'annule tous les filtres:

ActiveSheet.ShowAllData

2- Puis j'actualise toutes mes données:

ActiveWorkbook.RefreshAll

3- Je finis ensuite par refaire mon filtre:

ActiveSheet.ListObjects("T_CA").Range.AutoFilter Field:=44, Criteria1:= _
        "oui"

Mon soucis se situe entre l'étape 2 et 3. L'étape 2 n'étant pas terminée la macro exécute quand même l'étape 3 mais du coup celle-ci ne se fait pas correctement.
Que puis-je mettre entre l'étape 2 et 3 pour indiquer d'attendre que l'étape 2 se termine pour passer enfin à l'étape 3 ?

Merci d'avance pour vos tips

ActiveSheet.ShowAllData
    
    ActiveWorkbook.RefreshAll
       
    ActiveSheet.ListObjects("T_CA").Range.AutoFilter Field:=44, Criteria1:= _
        "oui"

 

[CPk]

Re : Mettre en pause une macro sans intervenir

Bonjour Macx.
https://www.google.fr/#q=vba+mettre+une+macro+en+pause&gws_rd=cr
Premier lien ?

 

[MACx]

Re : Mettre en pause une macro sans intervenir

Merci, mais cela ne fonctionne pas
C'est mon refresh all qui se mets en pause (étape 2)
Même en testant étape par étape (avec F8)

 

[MACx]

Re : Mettre en pause une macro sans intervenir

Cela me ramène à un ERRATUM dans mon problème.
En fait il ne s'agit pas de faire une pause pendant l'exécution mais d'attendre que la mise à jour se termine (dure environ 20sec) puis de rependre l'étape 3.
Merci

 

[CPk]

Re : Mettre en pause une macro sans intervenir

La mise à jour consiste à quoi ? J'ai bien peur qu'excel ne sache pas interpréter un temps de traitement comme point de repère car en réalité, sa capacité d’exécution dépend en partie du processeur (les pros confirmeront ou non mes dires) donc du coup, sans repère pour programmer une macro évènementiel, difficile de pouvoir écrire quoi que ce soit (enfin à mon niveau bien sur)

 

[thebenoit59]

Re : Mettre en pause une macro sans intervenir

Bonjour Macx, Cpk, le forum.
As-tu essayer de décomposer ta procédure en plusieurs procédures :

Sub Macro()
ActiveSheet.ShowAllData
ActiveWorkbook.RefreshAll
Filtre
End Sub

Sub Filtre()
ActiveSheet.ListObjects("T_CA").Range.AutoFilter Field:=44, Criteria1:="oui"
End Sub

 

[MACx]

Re : Mettre en pause une macro sans intervenir

Bonjour thebenoit59,

Superbe idée, j'y avais pas pensé. Par contre le résultat est hélas le même.
Du coup je crée quand même deux macros séparées avec deux boutons pour les executer une par une... Jusqu'à trouver mieux...
Merci

 

[JCGL]

Re : Mettre en pause une macro sans intervenir

Bonjour à tous,

Peux-tu placer ceci entre l'étape 2 et 3 (ici 30 secondes)

WaitTime = TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 30)
Application.Wait WaitTime

A+ à tous

 

[Si...]

Re : Mettre en pause une macro sans intervenir

Salut

à tester pour20 s

'...
ActiveWorkbook.RefreshAll
If Application.Wait(Now + TimeValue("0:00:20")) Then  [T_CA].AutoFilter 44, "oui"
'...