Discussion :

[havopti]

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 :

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

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 :

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

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

[SfJ5Rpw8]

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.

[havopti]

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

[SfJ5Rpw8]

...
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

je pense pas non..

[havopti]

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

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 :

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

Application.StatusBar="Message à afficher"

ne semble pas fonctionner

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

[havopti]

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

a placer dans le userform

Code :

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

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 :

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

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