Discussion :

[jérémyp8]

Bonjour,

Je pense que mon Pb a été déjà évoqué et même résolu plusieurs fois ici mais j'ai pas trouvé un exemple qui répond vraiment à mon besoin

Ce que je souhaite faire c'est évidement d'afficher un message d'attente avec une image (un sablier pour représenter le temps qui coule) et cela avec une vue agréable un peu grande sur l’écran pour l'utilisateur qui attend en utilisant bien sur un UserForm



Merci

[PMO2017]

Bonjour,

Je crois que c'est impossible, Excel ne peut traiter 2 procédures simultanément.
Puissent les contributeurs me démentir.
****
Cependant, il existe une piste envisageable en passant par un HTA (fichier HTML Application).
Faites moi signe si cela vous intéresse, j'ai un exemple tout fait d'une barre de progression qui utilise cette technique et je peux le mettre en pièce jointe. C'est compliqué et cela ne fonctionnera que sur un PC mais vous aurez le pied à l'étrier pour le parfaire selon votre idée.

[EngueEngue]

Tu peux faire avancer un compteur pendant ta Routine...

Code :

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

1
2
3
4
5
For i = 1 to 1000000
'tescalculs
Compteur=compteur+1
Textbox = compteur/1000000 & "%"
Next i

Mais ce que tu gagnes en joli, tu le perds en rapidité puisqu'il fera 1000000 opérations inutiles et 1000000 actualisations de la carte graphique :S Donc affiche un userform avec une image calcul en cours en GIF si tu veux que ce soit stylé et basta

[Marc-L]

Bonjour,

c'est possible via un UserForm en mode non modal …

[jérémyp8]

Bonjour PMO2017

Merci pour ta réponse

Oui oui donne moi STP cet exemple et si c'est possible explique moi un peu comment le mettre en place

Mercii

[PMO2017]

Voilà le bébé.

[jérémyp8]

Re PMO2017

Ton exemple est super intéressant, c'est ce que je voulais faire mais je ne sais pas comment l'adapter à ma macro qui se trouve dans mon fichier Excel A

Je m'explique :
Dans mon fichier Excel A j'ai une macro qui serre a ouvrir un autre fichier Excel B
A l'ouverture de ce fichier Excel B par la macro du fichier Excel A il fait un traitement de données avec une macro puis il se ferme

Ce que je veux faire c'est d'afficher le message d'attente que tu m'as passé durant tout le temps que le fichier B reste ouvert puis disparait a sa fermeture

Voilà ma macro

Code :

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

1
2
3
4
5
6
7
8
Sub MonTraitement()
Dim wb As Workbook
Dim ws As Worksheet
'Set wb = Workbooks.Open("C:\Users\SDVS1733\Desktop\Mondossier\FichierExcelB.xlsm")
Set ws = wb.Worksheets(1)
wb.Saved = True
wb.Close
End Sub

Merci