Message d'attente au cours d'execution de macros

Bonsoir,
j'ai un classeur avec une trentaine de feuilles
j'ai un ensemble de macro qui synchronisent ces feuilles (mise en page) selon le trimestre choisi.
cette tâche nécessite presque 2 minutes.
j'ai ajouté un message par l'instruction

Code:

---

Application.StatusBar ="message d'attente"

---

Pour une meilleure interface, je désire afficher un userform comportant mon message d'attente qui se fermera à la fin du temps nécessaire à la synchronisation
j'ai essayé cela mais ça reste bloqué tant que l'userform n'est pas fermé

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Public Sub SYNCHRO(k As Integer)   USF.show doEvents Sheets("Config").Cells(5, 2).Value = k Sheets("c70").Cells(1, 1).Value = k Sheets("MDF").Cells(1, 1).Value = k Sheets("LDSP").Cells(1, 1).Value = k Sheets("DVER").Cells(1, 1).Value = k Form26 k Form20 k Form70 FormMPZ Sheets("MDF"), Sheets("Config") FormMPZ Sheets("LDSP"), Sheets("Config") FormMPZ Sheets("DVER"), Sheets("Config") Form0102 k USF.hide End Sub

---

S'il y a une variante à ma question?
merci

Salut,

Essai ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Public Sub SYNCHRO(k As Integer) USF.show 0 ' on rend la form non modal ce qui veut dire qu'on garde la main pendant son affichage pour faire autre chose Sheets("Config").Cells(5, 2).Value = k Sheets("c70").Cells(1, 1).Value = k Sheets("MDF").Cells(1, 1).Value = k Sheets("LDSP").Cells(1, 1).Value = k Sheets("DVER").Cells(1, 1).Value = k Form26 k Form20 k Form70 FormMPZ Sheets("MDF"), Sheets("Config") FormMPZ Sheets("LDSP"), Sheets("Config") FormMPZ Sheets("DVER"), Sheets("Config") Form0102 k Unload USF End Sub

---

++
Minick

Bonjour,
A-tu essayé cet exemple
A+
Edit : Correction.. :oops: je dormais encore :P
Bonjour Leti

bonjour mercatog Minick l'ami Louis le forum
une autre possibilitee tu mets ton code dans l userform

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub UserForm_Initialize() Repaint Sheets("Config").Cells(5, 2).Value = k Sheets("c70").Cells(1, 1).Value = k Sheets("MDF").Cells(1, 1).Value = k Sheets("LDSP").Cells(1, 1).Value = k Sheets("DVER").Cells(1, 1).Value = k Form26 k Form20 k Form70 FormMPZ Sheets("MDF"), Sheets("Config") FormMPZ Sheets("LDSP"), Sheets("Config") FormMPZ Sheets("DVER"), Sheets("Config") Form0102 k Unload Me End Sub

---

Code:

---

1 2 3

Sub Macro1() userform1.Show End Sub

---

Merci Laetitia, Le Forestier et Minick,
Effectivement, en mode modal ça passe
sauf que l'USF apparait sans le message souhaité (USF blanc quoi!)
dans mon USF j'ai un label où j'ai écris mon message d'attente!
Merci encore

Beh.. le code que Laetitia te montre doit être mis dans le UF où tu a ton label avec le message d'attente !! et pas dans un autre.
Rectification, pas mettre le code dans Initialize mais dans Activate.
A+

j'ai essayé avec la proposition de Laeti,
ma macro est paramétrée avec le k
j'ai essayé de mettre k en variable publique!
dans USF.show de la macro: erreur 1004!

je tourne en rond!

j'ai utilisé votre code (en éliminant l'image sablier animé)

j'ai utilisé la proposition de Mnick en modale! l'USF s'affiche mais reste à blanc.
En le lançant seul; tout est ok! (pas de problème de label ou autre)

Edit: beh ce que j'ai fais le forestier!

Quand tu fais tourner ta macro sans UF donc sans message d'attente, ça fonctionne ?

absolument fonctionnels

séparément ils fonctionnent ( la macro et l'affichage de l'USF )
j'ai essayé le doEvents

j'ai essayé ta suggestion onActivate! il s'ouvre et se ferme et la macro ne marche pas
sur initialise: error 1004

Bon alors tu remet ta macros comme c'était avant.
Tu envoi le

Code:

---

USF.Show vbModeless 'soit 0 comme dit par Minick

---

Tu a probablement initialisé le label dans initialize ?
Si oui, tu met ça dans Activate
Mais je suis par certain que ça va aller.

essaye déjà ça, je fais un test et si ça marche pas je revient.

Edit : j'ai tester et ça fonctionne.
Tu peu aussi employer mon UF sans image où sans la faire tourner tu à le choix.
A+

voila ce que j'ai fais:

macro:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Public Sub SYNCHRO(k As Integer)   Sab.Show 0   Sheets("Config").Cells(5, 2).Value = k Sheets("c70").Cells(1, 1).Value = k Sheets("MDF").Cells(1, 1).Value = k Sheets("LDSP").Cells(1, 1).Value = k Sheets("DVER").Cells(1, 1).Value = k Form26 k Form20 k Form70 FormMPZ Sheets("MDF") FormMPZ Sheets("LDSP") FormMPZ Sheets("DVER") Form0102 k FormOC k   Unload Sab End Sub

---

voilà l'USF

Code:

---

1 2 3 4 5

Private Sub UserForm_Activate()   LabSablier.Caption = Sheets("Config").Cells(30, 1).Value   End Sub

---

le

Code:

---

Sheets("Config").Cells(30, 1).Value

---

c'est mon message! simplement parce que c'est en Russe et que dans vba j'ai déjà galéré pour ça! mais c'est déjà une autre question


voilà l'afficahge de l'USF sans la macro et avec la macro.

Merci

Voilà, j'ai ajouté le DoEvents dans la place qu'il fallait et ça marche!
Merci Le Forestier pour votre assistance

je mettrais alors un bout de code de ta création (au moins pour l'élimination de la barre de l'USF

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Public Sub SYNCHRO(k As Integer) Sab.Show 0 doEvents Sheets("Config").Cells(5, 2).Value = k Sheets("c70").Cells(1, 1).Value = k Sheets("MDF").Cells(1, 1).Value = k Sheets("LDSP").Cells(1, 1).Value = k Sheets("DVER").Cells(1, 1).Value = k Form26 k Form20 k Form70 FormMPZ Sheets("MDF") FormMPZ Sheets("LDSP") FormMPZ Sheets("DVER") Form0102 k FormOC k Unload Sab End Sub

---

par contre cette question

Citation:

---

c'est mon message! simplement parce que c'est en Russe et que dans vba j'ai déjà galéré pour écrire ça en dur dans le code! mais c'est déjà une autre question

---

est toujours pour moi d'actualité
:?

Le DoEvents ne sert à rien :calim2:
Et si ça fonctionne n'oublie pas le bouton :resolu:
A+

Sans lui bizarrement, l'affichage ne se fait pas; a vu les miniatures??
Merci beaucoup donc