Boite de message

S

Softmama

XLDnaute Accro

• 16 Mai 2011

• #2

Re : Boite de message

Bonjour,

Pour cela, il te suffit de créer un Userform (Insertion/Userform dans VBE) dans lequel figure un label qui comprend 'Traitement en cours'. pour l'afficher sans interrompre le cours de ta macro, il te faut le faire en mode non modal. Pour cela, écris le ainsi :

Code:

Userform1.show vbmodeless

ou

Code:

Userform1.show 0

quand la macro a fini son traitement, tu fermes ton Userform ainsi:

Code:

Unload Userform1

 

Pièces jointes

• siocnarf.xls

  40 KB · Affichages: 63
• siocnarf.xls

  40 KB · Affichages: 70
• siocnarf.xls

  40 KB · Affichages: 64

Dernière édition: 16 Mai 2011

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 16 Mai 2011

• #3

Re : Boite de message

Bonsoir,
peut-être utiliser dans ton code l'application.StatusBar, du genre (non testé) :

Code:

Application.StatusBar = "Traitement en cours. Veuillez patienter."
Application.Cursor = XlWait

A+

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 16 Mai 2011

• #4

Re : Boite de message

Bonjur à tous,

@ David:
sans oublier de mettre ceci en fin de procédure:

Application.Cursor = xlDefault
Application.StatusBar = ""

à+
Philippe

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 17 Mai 2011

• #5

Re : Boite de message

Bonjour à tous,

phlaurent55 à dit:

Bonjur à tous,

@ David:
sans oublier de mettre ceci en fin de procédure:

Application.Cursor = xlDefault
Application.StatusBar = ""

à+
Philippe

Cliquez pour agrandir...

pour "réinitialiser" la barre d'état :

Code:

Application.StatusBar = False

cf aide vba :

Note
Cette propriété renvoie False si Microsoft Excel garde le contrôle de la barre d'état. Pour restaurer le texte par défaut de la barre d'état, affectez la valeur False à cette propriété. Cela est valable même si la barre d'état est masquée.

Cliquez pour agrandir...

bonne journée
@+

 

Vote positif 0 Vote négatif

S

siocnarf

XLDnaute Occasionnel

• 20 Mai 2011

• #6

Re : Boite de message

Bonjour,

Génial, ça fonctionne. Maintenant je voudrais ajouter quelque chose d'un peu plus sophistiqué. Puisque certains traitement sont un peu long... est-il possible d'afficher un indicateur affichant depuis combien de temps le traitement s'exécute?

Merci,

François

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 20 Mai 2011

• #7

Re : Boite de message

Re,

en pièce jointe un exemple à adapter

à+
Philippe

 

Pièces jointes

• 111.xls

  42.5 KB · Affichages: 73
• 111.xls

  42.5 KB · Affichages: 73
• 111.xls

  42.5 KB · Affichages: 73

Vote positif 0 Vote négatif

YANN-56

XLDnaute Barbatruc

• 20 Mai 2011

• #8

Re : Boite de message

Bonsoir François, aux participants, et à ceux qui passeront par ici,

Maintenant je voudrais ajouter quelque chose d'un peu plus sophistiqué.

Cliquez pour agrandir...

Voici, ci-joint, une entrée en matière.
Pas trop sophistiquée, mais spectaculaire.

Bien utile pour les presbytes comme moi. 🙂
Je n'ai pas une bonne perception du p'tit truc à gauche en bas! 😡

Ici le remplissage et le vidage de la feuille n'est là que pour ralentir la procédure.

Puisque de toute évidence, ton "Programme" doit bien enregistrer ou écrire quelque part,
tu devrais facilement adapter la progression du point "0" au point "Final".

Amicalement

Yann

 

Pièces jointes

• PROGRESS_6.xls

  26 KB · Affichages: 67
• PROGRESS_6.xls

  26 KB · Affichages: 64
• PROGRESS_6.xls

  26 KB · Affichages: 65

Vote positif 0 Vote négatif

S

siocnarf

XLDnaute Occasionnel

• 20 Mai 2011

• #9

Re : Boite de message

Bonjour,

Intéressant mais cela implique que l'on boucle dans le message. Dans cette situation, on ne peut pas lancer une routine qui prend du temps à boucler et afficher le temps qui s'écoule en même temps.

Merci,

François

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 20 Mai 2011

• #10

Re : Boite de message

Bonsoir,
pas testé mais peut-être en utilisant la fonction DoEvents dans le code.
Ci-joint l'exemple fourni dans l'aide d'Excel concernant l'utilisation de Timer :

Code:

Timer, fonction, exemple
Cet exemple utilise la fonction Timer pour mettre l'application sur pause. Cet exemple utilise également la fonction DoEvents pour donner le contrôle à d'autres processus pendant la pause. 

Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("Cliquez sur Oui pour effectuer une pause de 5 secondes", 4)) = vbYes Then
    PauseTime = 5    ' Définit la durée.
    Start = Timer    ' Définit l'heure de début.
    Do While Timer < Start + PauseTime
        DoEvents    ' Donne le contrôle à d'autres processus.
    Loop
    Finish = Timer    ' Définit l'heure de fin.
    TotalTime = Finish - Start    ' Calcule la durée totale.
    MsgBox "Pause de " & TotalTime & " seconde(s)"
Else
    End
End If

Donc peut-être à adapter.
A+

 

Vote positif 0 Vote négatif

YANN-56

XLDnaute Barbatruc

• 20 Mai 2011

• #11

Re : Boite de message

Bonsoir siocnarf, aux participants, et à ceux qui passeront par ici,

Qu'est-il le plus important?

De visualiser le temps qui passe où le celui qui reste à attendre??? 😕

Le problème est de créer une "Routine", comme tu dis,qui demande le temps nécessaire pour visualiser un test... Donc:

Ayant une de mes petite bidouille récentes sous le coude où il est utile de faire
patienter l'utilisateur; je la dépose ici pour exemple:
Cijoint.fr - Service gratuit de dépôt de fichiers
(J'ai eu la flemme d'en créer une spécifique)

Dans cette situation, on ne peut pas lancer une routine qui prend du temps
à boucler et afficher le temps qui s'écoule en même temps.

Cliquez pour agrandir...

Tu auras avec la barre de progression la preuve du contraire?
et avec en prime l'utilisation de "Timer" dont parle David.

Il te restera à fouiller, triturer pour en faire un beau mariage...

Tu pourras même créer un petit bonhomme frisé avec une grosse montre qui égraine les secondes.

Amicalement,

Yann

 

Vote positif 0 Vote négatif