Evénement Click pour un Objet Créé (Me.Controls.Add)

[xhudi69]

Bonjour à tous,

Je me lance dans la création d'objet

Dans le fichier joint, j'aimerais qu'en cliquant sur le bouton créé (CommandButton2, "Valider" ), que: Label1.Caption = "Hello!"

J'ai bien consulté F1 mais je m'y perds un peu, l'âge peut-être

@+

 

[tototiti2008]

Re : Evénement Click pour un Objet Créé (Me.Controls.Add)

Bonjour xhudi,

a priori, il faut que tu écrives le code évènementiel du CommandButton2 dans le code de ton userform
pas si simple mais des pistes par là : Visual Basic Editor

 

[xhudi69]

Re : Evénement Click pour un Objet Créé (Me.Controls.Add)

Bonjour tototiti2008 , le Forum,

Merci pour le lien, je le recherchais sur cet excellent site, je vais explorer cette piste et reviens ASAP

@+

 

[Si...]

Re : Evénement Click pour un Objet Créé (Me.Controls.Add)

Salut

Bonjour xhudi,
a priori, il faut que tu écrives le code évènementiel du CommandButton2 dans le code de ton userform
pas si simple ...

peut-être ainsi ?

Public WithEvents Cb As MSForms.CommandButton
Private Sub CommandButton1_Click()
  Set Cb = Me.Controls.Add("Forms.CommandButton.1", "Toi...", True)
  Cb.Left = 12: Cb.Top = 40: Cb.Width = 72: Cb.Height = 20
  Cb.Caption = "Valider"
  Cb.SetFocus
End Sub
Private Sub Cb_Click()
  Lb.Visible = 1: Lb = "Hello " & Cb.Name & Chr(10) & "Sais-tu ce que tu dois faire ?"
End Sub

 

[tototiti2008]

Re : Evénement Click pour un Objet Créé (Me.Controls.Add)

Bonjour Si,

Bien vu, je ne connaissais pas cette méthode

Edit : d'autant que faire une macro qui écrit du code évenementiel, ça peut marcher mais pas sûr^^
je conseille la solution de Si

 

[xhudi69]

Re : Evénement Click pour un Objet Créé (Me.Controls.Add)

Bonjour Si..., le Forum,

Cela fonctionne très bien, merci c'est (Public WithEvents Cb As MSForms.CommandButton) qui manquait.

merci pour votre aide.

Merci aussi tototiti2008

@+