Bouton inactif au clic [Résolu]

Signaler
Messages postés
7
Date d'inscription
jeudi 22 mars 2007
Statut
Membre
Dernière intervention
4 octobre 2010
-
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
-
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!

3 réponses

Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
68
bouton_1 est déclaré où ? (penser au WithEvents)

Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp
Messages postés
7
Date d'inscription
jeudi 22 mars 2007
Statut
Membre
Dernière intervention
4 octobre 2010

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.
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
68
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