Sequence labels

[BRUNO62]

Bonjour,

J'ai besoin d'aide.
Je souhaite voir apparaître le label 2 puis le label 3 et fermer le User automatiquement au bout d'un certain temps
Avez vous une idée ?
Merci
A+

 

[Pierrot93]

Re : Sequence labels

Bonjour,

essaye peut être avec ceci :

Option Explicit
Private Sub UserForm_Activate()
Dim i As Byte
Application.Wait Now + TimeValue("00:00:02")
Label2.Caption = "OK"
Me.Repaint
Application.Wait Now + TimeValue("00:00:04")
Label3.Caption = "COUCOU"
Me.Repaint
Application.Wait Now + TimeValue("00:00:06")
Unload Me
End Sub

bonne journée
@+

 

[BRUNO62]

Re : Sequence labels

Bonjour Pierrot93,

Cela me convient, grand merci
Bonne journée
A+