Timer dans une UserForm

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:

---

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.

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:

---

1 2 3 4

Public Sub Blocage_bouton_ajouter() nomduUserform. Ajouter_Pause.Locked = True Timer End Sub

---

et les codes dans un module standard

Bonjour Patrick,

Merci pour ton retour, cela fonctionne parfaitement :lol:

Cordialement.

de rien a+