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

G

Guest

Guest

• 9 Juillet 2010

• #2

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

Bonjour,

Code:

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

A+

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 9 Juillet 2010

• #3

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 🙂

 

Dernière édition: 9 Juillet 2010

Vote positif 0 Vote négatif

Gael

XLDnaute Barbatruc

• 9 Juillet 2010

• #4

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 :

Code:

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:

Code:

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:

Code:

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

Phases suivantes:

Code:

.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

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 9 Juillet 2010

• #5

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 🙂

 

Vote positif 0 Vote négatif

Gael

XLDnaute Barbatruc

• 9 Juillet 2010

• #6

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

 

Vote positif 0 Vote négatif

aubelix

XLDnaute Impliqué

• 9 Juillet 2010

• #7

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.

 

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 9 Juillet 2010

• #8

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

 

Pièces jointes

• Classeur1.zip

  14.2 KB · Affichages: 486
• Classeur1.zip

  14.2 KB · Affichages: 514
• Classeur1.zip

  14.2 KB · Affichages: 533

Dernière édition: 9 Juillet 2010

Vote positif 0 Vote négatif

aubelix

XLDnaute Impliqué

• 9 Juillet 2010

• #9

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.

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 9 Juillet 2010

• #10

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.

 

Vote positif 0 Vote négatif

YANN-56

XLDnaute Barbatruc

• 9 Juillet 2010

• #11

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

 

Pièces jointes

• DEFIL.xls

  34.5 KB · Affichages: 398
• DEFIL.xls

  34.5 KB · Affichages: 403
• DEFIL.xls

  34.5 KB · Affichages: 412

Vote positif 0 Vote négatif

Gael

XLDnaute Barbatruc

• 9 Juillet 2010

• #12

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

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 9 Juillet 2010

• #13

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

 

Vote positif 0 Vote négatif

YANN-56

XLDnaute Barbatruc

• 9 Juillet 2010

• #14

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

 

Vote positif 0 Vote négatif

YANN-56

XLDnaute Barbatruc

• 9 Juillet 2010

• #15

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

 

Pièces jointes

• POUR_LE_FUN.zip

  43.3 KB · Affichages: 291

Dernière édition: 9 Juillet 2010

Vote positif 0 Vote négatif