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.