Discussion :

[maxkun]

Bonjour,

Je voulais savoir comment intégrer un timer dans ma UserForm, ce timer aurait juste pour but de passer l'attribut "locked" d'un bouton à True.

J'ai bien trouvé ce genre de code sur divers site, mais ces derniers ne semble pas fonctionné :

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
Private Sub Workbook_Open()  
    'On met un timer pour verrouiller le bouton "ajouter"
    Timer
 
End Sub
 
Public Sub Timer()
    Application.OnTime Now + TimeSerial("00:00:10"), "Blocage_bouton_ajouter"
End Sub
 
Public Sub Blocage_bouton_ajouter()
    Ajouter_Pause.Locked = True
    Timer
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnTime Now, "Blocage_bouton_ajouter", , False  'On arrete le timer
End Sub

Le code ne fonctionnant visiblement pas, j'ai tenté de mettre les procédures Timer() et Blocage_bouton_ajouter() directement dans le "ThisWorkbook", dans un module et directement dans le code de l'UserForm, mais le résultat rester inchangé. J'avais même mis des msgBox pour voir si mes procédures étaient bien appelées, et je me suis aperçu que non.

Avez vous une piste à mon problème?

Cordialement.

[patricktoulon]

bonjour
dans le userform c'est normal que ca ne fonctionne pas parce que tu peux pas appeler une private sub d'un userform avec app.ontime
dans les autre module tel que tu presente le code c'est normal aussi que ca ne fonctionne pas parce que "Ajouter_Pause" n'est pas reconnu comme un control du userform
mais comme une variable, ce qui fait qu'il n'y a pas d'erreur declanchée mais ca n'agit pas sur le bouton

Code :

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

1
2
3
4
Public Sub Blocage_bouton_ajouter()
   nomduUserform. Ajouter_Pause.Locked = True
    Timer
End Sub

et les codes dans un module standard

[maxkun]

Bonjour Patrick,

Merci pour ton retour, cela fonctionne parfaitement

Cordialement.

[patricktoulon]

de rien a+