Discussion :

[grimgrim]

Bonjour,

Je cherche à faire un affichage de type "Veuillez patienter ..." sans que le programme ne s'arrête.

J'ai essayé d'utiliser le code

Code :

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

Userform1.show

mais le programme reste figé

Avez-vous une idée ?

Merci d'avance

[casefayere]

Bonjour,

A grimgrim,

Je cherche à faire un affichage de type "Veuillez patienter ..." sans que le programme ne s'arrête.

Il vaudrait mieux que tu ouvres ta propre discussion (Edit : je viens de voir que c'est fait !), sinon il faut regarder du coté de la propriété "ShowModal", la mettre à "False"

Bonne journée

[PMO2017]

Bonjour,

Visitez le message #6 du lien http://www.developpez.net/forums/d13...ution-d-macro/

[olaxius]

Bonjour,
C'est la méthode DoEvents qui permet de faire ce genre de chose.
Il faut afficher le userform en non modal

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub test()
UserForm1.Show 0
DoEvents
For i = 0 To 2 ^ 15
    UserForm1.Label1.Caption = CStr(i)
    UserForm1.Repaint
Next i
End Sub

Pour utiliser le code d'exemple il faut créer un userform biensur avec un label1