bouton inactif au clic Résolu

Question

Bonjour,

Voilà en fait je crée dans mon userform un bouton puis ensuite la macro qui s'execute lors du clic, cependant rien ne se passe lorsque je clique sur le bouton.
Voilà la syntaxe:

Sub userform_initialize()

'macro

Set bouton_1 = Me.Controls.Add("Forms.CommandButton.1", "bouton")

With bouton_1
.Width = 60
.Height = 40
.Top = hauteur + 20
.Left = 200
.Caption = "OK"
End With

End Sub
Sub bouton_1_Click()

MsgBox "N'oubliez pas votre rendez-vous"

End Sub


Merci d'avance pour votre aide!

Renfield · Accepted Answer

bouton_1 est déclaré où ? (penser au WithEvents)

Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

radikal64 · Answer

Bonjour,

Je me rends compte que j'avais oublié un underscore 1 dans ma déclaration du début:
Public WithEvents bouton_1 As msforms.CommandButton

Maintenant ça fonctionne!!!
Merci @ toi sinon je n'aurais pas pensé à regarder.

Renfield · Answer

ajouter Option Explicit tout en haut du module t'aurai éviter ce désagrément en vérifiant que bouton_1 etait bien déclaré...

Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

Bouton inactif au clic

3 réponses

Votre réponse

Discussions similaires