Discussion :

[allergique]

Bonsoir,

J'aimerais à l'ouverture de mon fichier excel afficher un userform laissant à l'utilisateur X secondes pour cliquer sur un des boutons de contrôle.

Passé ce délai, sans clic de l'utilisateur la macro ferme l'userform et déroule une macro.

Est-ce possible d'afficher un userform avec un compte à rebours dynamique, mais ne bloquant pas le clic sur les boutons de contrôle durant le décompte?

Merci d'avance pour votre aide!

[Attrox]

Salut teste sa, sa devrai marcher:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub Chrono()
    Dim sngDepart As Single
    Dim sngArrivee As Single
    Dim lng As Long
 
    sngDepart = Timer
 
    For lng = 1 To 1000000000
 
    Next
 
    sngArrivee = Timer
    MsgBox "Temps écoulé = " & sngArrivee - sngDepart & " secondes", vbInformation, "Chronomètre"
End Sub

[ucfoutu]

Bonsoir,

a attrox :

1) attention : l'utilisation de la fonction Timer sans passer la main au système empêchera le click sur le bouton de command. Y insérer un DoEvents est nécessaire ...
2) je n'aime pas vraiment ce genre d'utilisation, mais ce n'est pas grave pour le processeur s'il ne s'agit que de 10 secondes...
Je donnerais malgré tout la préférence à l'utilisation bien faite d'une variable booléenne et de Application.Ontime.