Fermeture user from

Salut je pensais avoir réglé mon problème mais selon les versions d'excel cela donne ce que je souhaite ou non

je souhaite que mon message userfrom se ferme a la fin de macro qui est assez longue, ca fonctionnait bizarrement sous excel 2007 mais sur 2010 et 2013 le message ne reste pas affiché tout au long de l’exécution de ma macro (ce qui est normal vu que le code ne dit que 3 sec )

voici mon code pour le userfrom

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Label1_Click()   End Sub   Private Sub UserForm_Activate() Dim s As Single s = Timer Do While Timer < s + 3 DoEvents Loop Unload Me End Sub

---

et le code de la macro

Code:

---

1 2 3 4 5 6 7

Sub test() UserForm1.Show With Sheets("feuil1").Range("H4:H136") .FormulaLocal = "=SI(D4<>"""";G4/D4/$G$137*$G$139+E4;"""")" .Value = .Value End With End Sub

---

je voudrais que le message puisse rester afficher tout au long et s'en aille une fois les calculs terminés

Bonjour,

de qu'elle macro parle-tu ?

s'il s'agit du code suivant l'UserForm.Show, celui-ci n'est exécuter qu'après la fermeture de la fenêtre , et donc rallonger la temporisation permet seulement de retarder le départ du traitement de ce code.

le 2eme code dépend d'un bouton. Quand je clique sur celui ci la formule local balaye mes lignes une à une mais comme c'est assez long je veux informer les utilisateurs que tous va bien et qu'il suffit d'attendre, d’où le userfrom qui se met en place au départ mais n’altère pas la démarrage de mes calculs le problème c'est que je n'arrive a pas laisser afficher le message tout au long du traitement pour qu'il se ferme tous seul a la fin

Sur 2007 la suite du code apres le userfrom se lance alors meme que le message est affiché si c'est ca t'a question

Citation:

---

Envoyé par havopti

...
Sur 2007 la suite du code apres le userfrom se lance alors meme que le message est affiché si c'est ca t'a question

---

:koi: je pense pas non..

après avoir créer un second fichier test tu a raison le message apparait 2 sec avant de disparaitre et la macro s’exécute ensuite.

J'ai pourtant fait un copier coller du code de mon premier fichier qui lui marche parfaitement sur excel 2007 8O

donc je cherche une solution alternative qui marche sur tous les excel tant qu'a faire pour que mon message apparaisse à titre informatif tout en laissant le calcul s’exécuter et qui se ferme une fois celui ci fini, je n'ai pas forcement besoin d'un userform mais avec les msgbox je sais que ca ne marchera pas apres je ne connais pas tous les type de message

c'est donc le exactement même problème qu'ici mais sur pc
le code

Code:

---

Application.StatusBar="Message à afficher"

---

ne semble pas fonctionner

http://www.developpez.net/forums/d87...-macro-resolu/

solution trouvé faut dire que la question est récurrente

a placer dans le userform

Code:

---

1 2 3 4 5 6 7

Private Sub Label1_Click()   End Sub   Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = vbFormControlMenu Then Cancel = True End Sub

---

dans la macro, adapter les userform2 selon le nom de votre userform

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim I As Integer Dim J As Long UserForm2.Show 0 UserForm2.Repaint   'mettre la macro à executer   UserForm2.Show 0 UserForm2.Repaint Unload UserForm2   End Sub

---