Comment faire pour avoir un message ou un sablier pendant le déroulement d'une Macro?

[Paritec]

Bonjour à tous,
Je cherche comment faire pour avoir un message ou mieux le sablier pendant le déroulement d'une Macro ??
dans l'attente de vos réponses
a+
Papou 🙂

PS: dans les discussion similaire sur le forum je n'ai pas trouvé mon bonheur !

 

[Guest]

Re : Comment faire pour avoir un message ou un sablier pendant le déroulement d'une M

Bonjour,

Sub Macro()
    On error Goto FinMacro
   Application.Cursor = xlWait
 
'Déroulement de la macro
 
FinMacro:
   Application.Cursor = xlDefault
End Sub

A+

 

[Paritec]

Re : Comment faire pour avoir un message ou un sablier pendant le déroulement d'une M

Bonjour Hasco le forum
Eh Bien en voilà une réponse rapide est bonne je teste de suite, mais je connais déjà le résultat avec toi.
merci beaucoup
a+
Papou 🙂

 

[Gael]

Re : Comment faire pour avoir un message ou un sablier pendant le déroulement d'une M

Bonjour Paritec, salut Hasco, le forum,

Si la macro est particulièrement longue, il est intéressant d'informer l'utilisateur des différentes phases d'avancement.

2 solutions:

1 - Avec un Userform sur lequel on a simplement indiqué les différentes phases avec le nom de chaque phase et un OK, le tout en "Label" et visible=false

En début de macro, on affiche l'USF en mode non modal :

With Processus
    .Show 0
    .Phase1.Visible = True
    .Repaint
End With

lors du passage à la phase suivante, on affiche le OK de la première phase et le nom de la phase 2 en cours:

With Processus
        .OK1.Visible = True
        .Phase2.Visible = True
        .Repaint
    End With

et ainsi de suite.

2 - plus simplement en utilsant la barre d'état:

Première phase:

.DisplayStatusBar = True
            .StatusBar = "Phase 1   >> MAJ table des Fournisseurs...

Phases suivantes:

.StatusBar = "Phase 2   >> MAJ table des Clients...

Ceci étant, je ne connaissais pas l'utilisation du Xlwait mais on en apprend tous les jours, merci hasco 😉

@+

Gael

 

[Paritec]

Re : Comment faire pour avoir un message ou un sablier pendant le déroulement d'une M

Bonjour Hasco Gael,
oui c'est aussi une bonne idée je testerai aussi la solution
en tout cas merci à vous deux
a+
Papou 🙂

 

[Gael]

Re : Comment faire pour avoir un message ou un sablier pendant le déroulement d'une M

Re,

Petite précision, les 3 solutions sont utilisables simultanément.

@+

Gael

 

[aubelix]

Re : Comment faire pour avoir un message ou un sablier pendant le déroulement d'une M

Bonjour à tous. 🙂

C'est une question récurrente.
Si cela était possible... 😕
Pouvez-vous joindre un fichier exemple avec un minimum
d'explications, pour suivre le déroulé.
Je ne suis pa un pro de VBA

Par avance, Merci.
Cordialement.

 

[mromain]

Re : Comment faire pour avoir un message ou un sablier pendant le déroulement d'une M

Bonjour le fil,

Voici un fichier qui regroupe les exemple de Hasco (gestion du curseur) et de Gael (affichage des étapes de calcul sur un UserForm).

a+

edit: j'ai légèrement modifié le fichier afin de rajouter la barre d'état d'Excel

 

[aubelix]

Re : Comment faire pour avoir un message ou un sablier pendant le déroulement d'une M

Bonjour MRomain 🙂

Merci pour ta réponse.
Cordialement.

 

[tbft]

Re : Comment faire pour avoir un message ou un sablier pendant le déroulement d'une M

Merci beaucoup pour ce fichier exemple
Il me sera très utile.

 

[YANN-56]

Re : Comment faire pour avoir un message ou un sablier pendant le déroulement d'une M

Bonjour Pascal, aux participants, et à ceux qui passeront par ici.

J'ai beaucoup appris en lisant ce fil; surtout coté sablier!

De mon coté, j'évite le rafraîchissement de l'USF,
car quand il est un peu grand et chargé (Voire avec Image de fond): Bonjour les yeux.

Voici donc une autre façon de faire jointe.
Je l'ai construite en raison de ma presbytie 🙂 🙂 🙂

Amicalement à tous.

Yann

 

[Gael]

Re : Comment faire pour avoir un message ou un sablier pendant le déroulement d'une M

Bonjour Yann, rebonjour à tous,

C"est le cas de le dire, c'est Géant.

Merci pour cet exemple sympa, et si tu passes près de lorient, tu peux me contacter en MP.

@+

Gael

 

[Efgé]

Re : Comment faire pour avoir un message ou un sablier pendant le déroulement d'une M

Bonjour à tous, bonjour YANN-56,
Je dirait même que c'est énorme 🙂.
Je m'en vais essayer de comprendre le principe... ...c'est pas gagné 😀.
Merci de cet exemple Yann
Cordialement

 

[YANN-56]

Re : Comment faire pour avoir un message ou un sablier pendant le déroulement d'une M

Gaël, merci pour le compliment, et l'invitation 🙂

INZINZAC <--> NOSTANG; Ce n'est pas si loin!

A suivre un peu plus tard en MP

Amicalement.

Yann

 

[YANN-56]

Re : Comment faire pour avoir un message ou un sablier pendant le déroulement d'une M

Efé Bonjour,et Re à tous

C'est spectaculaire, mais pas énorme!

La seule chose qui soit un peu délicate, c'est le calcul du rapport entre
la longueur du Label et celle du Frame.

Il vaut mieux sortir sa calculette et une feuille de papier
pour tester ce qui n'est jamais que de l'arithmétique.

Juste pour rire: 😛

Un autre exemple de progression qu'il pourrait
être amusant d'utiliser:

Amicalement

Yann