Fermeture userform après laps d

[DAVID P]

Bonjour à tous ,


j'ai une nouvelle fois besoin de vous ,j'espère ne pas trop abuser.


Mon problème est le suivant:

je me suis servi d'un code trouvé sur le forum pour que mon userform se ferme au bout de 5 secondes .
Dans mon projet lorsque la feuille 3 est activée,l'userform apparait jusque là pas de problème mais ne veux pas disparaitre....




Merci d'avance pour votre aide


A bientôt et bonne nuit [file name=laps.zip size=9244]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/laps.zip[/file]

 

[myDearFriend!]

Bonsoir David,

Ci-joint ton classeur modifié avec une autre proposition utilisant la méthode OnTime...

Dim Temps As Date

Sub Tempo()
      Temps = Now + TimeValue('00:00:05')
      Application.OnTime Temps, 'FinTempo'
End Sub

Sub FinTempo()
      On Error Resume Next
      Unload UserForm1
      On Error GoTo 0
End Sub

Cordialement, [file name=mDF_laps.zip size=9345]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/mDF_laps.zip[/file]

 

[DAVID P]

Je ne m'attendais pas à une réponse aussi rapide et je te remercie BEAUCOUP
( je vais pouvoir dormir tranquille).


je consulte souvent le forum pour apprendre , et bravo encore pour toutes vos interventions.



A BIENTOT

BONNE NUIT

 

[DAVID P]

Rebonjour le forum ,c'est encore moi


J'ai essayé d'adapter la démo de MDF sur un projet mais je n'ai pas réussi ( j'ai passé toute la journée ...) il doit y avoir un truc ....

Voilà mon soucis,

Objectif:

L'userform1 apparait pendant 5 secondes lorsque la feuille 3 est activé avec un texte qui défile (voir démo MDF).

Particularité,

J'aimerai que l'userform2 apparait pendant 5 secondes lorsque la feuille 4 est activé avec un texte qui défile (Ex: je suis la feuille4).

( + éventuellement d'autres userform ....)
Merci d'avance pour votre aide
Bonne soirée



[file name=mDFlapsquestion.zip size=10738]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/mDFlapsquestion.zip[/file]

 

[myDearFriend!]

Bonsoir David,

Ci-joint ton exemple modifié à nouveau pour tenter de répondre à ta dernière question. Afin de ne pas trop alourdir ton appli, je ne puis que te conseiller de réutiliser l'Userform1 pour chaque feuille au lieu d'en créer un pour chacune d'elles... C'est ce que je me suis efforcé à faire dans l'exemple joint. La procédure se déclenche donc par l'évènement 'Workbook_SheetActivate()' de l'objet ThisWorkbook en lieu et place de l'évènement 'Worksheet_Activate()' de chaque feuille...

Pour l'exemple, l'évènement se déclenche sur chaque feuille sauf la première.

Cordialement, [file name=mDF_laps2.zip size=14372]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/mDF_laps2.zip[/file]

 

[DAVIDP]

Bonjour,


GENIAL , je ne risquai pas de trouver la solution tout seul en raison de mon niveau.


Je te remercie encore et te promets ne plus te déranger à ce sujet.


Bonne nuit à toi et à tous le forum