Ouvrir un userform au bout de 10 secondes

[mj95]

Bonjour,

J'ai deux UserForm 1 et 2.
Quand je suis sur l'UserForm 1 je voudrais que l'UserForm 2 s'ouvre au bout de 10 secondes mais je n'ai pas trouver le code correspondant.

 

[Compte Supprimé 979]

Re : Ouvrir un userform au bout de 10 secondes

Salut Mj95

Effectue une recherche sur le forum du terme "Timer"
ou regarde dans les discussions similaires en bas de cette page

A+

 

[Dull]

Re : Ouvrir un userform au bout de 10 secondes

Salut mj95 le Forum

Un essai en pièce jointe

activer les marcros
appuyer sur le Bouton de la feuille et attendre 10 secondes

EDITION: Salut l'ami Bruno

Bonne Journée

 

[laetitia90]

Re : Ouvrir un userform au bout de 10 secondes

bonjour tous
une autre facon de l'ecrire
code dans userform1

Private Sub UserForm_Activate()
p = 10: s = Timer: Do While Timer < s + p: DoEvents: Loop
UserForm2.Show
End Sub