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

tototiti2008

XLDnaute Barbatruc

• 25 Juillet 2015

• #2

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

 

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 25 Juillet 2015

• #3

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

@+

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 25 Juillet 2015

• #4

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

Salut

tototiti2008 à dit:

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

Cliquez pour agrandir...

peut-être ainsi ?

VB:

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

 

Pièces jointes

• CréationObjet(UsF).xlsm

  20.3 KB · Affichages: 28

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 25 Juillet 2015

• #5

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

 

Dernière édition: 25 Juillet 2015

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 25 Juillet 2015

• #6

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

@+

 

Dernière édition: 25 Juillet 2015

Vote positif 0 Vote négatif