Discussion :

[le_niak]

Bonjour,

Voici mon probleme, j'ai crée un userform contenant des boutons, je voudrais rajouter un timer sur un des boutons.
Malheuresement le timer ne s'affiche pas, je suppose que c'est une erreur de rafraichissement de l'userform, j'ai essayé avec repaint, refresh... mais rien

Voici mon code

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
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Sub Impression()
    Load UserForm1
    UserForm1.Show
    UserForm1.Repaint
    Call TimerAffichage
End Sub
 
'Timer dans bouton Annuler
Function TimerAffichage()
For i = 1 To 15
    DoEvents
    UserForm1.CommandButton5.Caption = "Annuler (" & 16 - i & ")"
    DoEvents
    Call Attendre(1)
Next i
End Function
 
'fonction permettant d'attendre X secondes
Sub Attendre(Secondes As Integer)
Dim Début As Long, Fin As Long, Chrono As Long
 
Début = Timer
Fin = Début + Secondes
Do Until Timer >= Fin
    DoEvents
Loop
End Sub

[david_atx]

perso j'avais eu un problème similaire avec un compte a rebours de ma création mis dans un label

j'ai rajouté un doevents et un usf.repaint après ma commande de mise a jour et ca a marché ...

Si besoin je te posterais mon code

[le_niak]

Merci pour ton aide en rajoutant le .repaint et en déplacant l'appel de la fonction TimerAffichage dans UserForm-Activate, ca fontionne.