Discussion :

[Zytop]

Bonjour,

Sur une feuille Excel, ma macro s'exécute en cliquant sur un bouton et, lors de son exécution, on voit tout ce qui se passe...

Est-il possible de masquer ce carnaval ? En faisant afficher/apparaître une image... ce serait bien !

J'espère que c'est clair, merci pour vos aides.

[Oh!Tofocus]

SALUT !
tu peux essayer ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Sub Et_hop()
'bloque le rafraichissement de l'affichage
Application.ScreenUpdating = False
 
'ici ta macro
 
Application.ScreenUpdating = True
End Sub

par contre pour la belle image je cherche......

[Bigalo]

Bonsoir,

Tu peux afficher au premier plan une feuille avec une image, puis utiliser le ScreenUpdating que t’a signalé Oh!Tofocus :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Ton Traitement
    ' Appel le cas échéant du classeur contenant la feuille avec l’image
    Sheets("BelleImage").Activate
    Application.ScreenUpdating = False
    ' Ton Traitement proprement dit
    ' Ici tu actives la feuille qui doit être visible à la fin du traitement
    Application.ScreenUpdating = True
End Sub

Cordialement,

[Pierre845]

Juste au passage est-ce que le fait de mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.ScreenUpdating = False

fait gagner du temps ??

car par exemple sur un soft nommé Matlab, le fait d'afficher ou pas fait gagner un temps monstre lors de l'exécution du code

[patbou]

Juste au passage est-ce que le fait de mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.ScreenUpdating = False

fait gagner du temps ??

je repondrais tout depend du code.

Application.ScreenUpdating sert a empecher le rafraichissement de l ecran,
donc s il y a de nombreux select ou activate dans la procedure le gain de temps est important.

Par contre si les feuilles,ranges etc ... sont utilisés en tant qu objet => gain de tps "nul"

[Pierre845]

ouais c'est logique quelque part ..

chouette je vais pouvoir booster quelques fichiers !!

[Bigalo]

Bonsoir,

Si tu veux accélérer certains traitements de manière significative, c’est le passage en calcul manuel qui est le plus efficace.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Application.Calculation = xlManual

et pour revenir en calcul auto,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Application.Calculation = xlAutomatic

Attention, des tests sont nécessaires : si par exemple on affecte à une variable la valeur d’une cellule, et que celle-ci n’est pas à jour, parce qu’on est en calcul manuel, on ne risque pas d’aboutir au résultat correct.

Par conséquent, il peut être nécessaire de redonner la valeur xlAutomatic à la propriété Calculation, avant la fin du traitement, quitte à repasser en calcul manuel à une phase ultérieure :

Selon les cas on aura

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    Application.Calculation = xlManual
   ' Ici le traitement
    Application.Calculation = xlAutomatic

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
    ' Phase 1 du traitement
    Application.Calculation = xlManual
   ' Phase 2 du traitement
    Application.Calculation = xlAutomatic
   ' ...
    Application.Calculation = xlManual
   ' Phase N du traitement
    Application.Calculation = xlAutomatic
   ' Phase N + 1 du traitement

NB - il faut penser à redonner la valeur xlAutomatic à Calculation en cas d’interruption avant la fin du traitement (point d’arrêt et interruption ou erreur macro par exempl).

Le principe est le même avec Application.EnableEvents à qui il faut, le cas échéant, redonner la valeur True.

Cordialement,