Discussion :

[Thoma HauC]

Bonjour,

J'ai du code VBA qui crée des 'Control' dans un UserForm de manière dynamique.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set Widget = MyForm.Controls.Add("Forms.CommandButton.1", "bouton" & index, True)

Parmi ces 'Control', j'ai des boutons pour lesquels je traite l'évènement 'Click'.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set push_button_array(Index).CmdEvents = Widget

Et le module de classes pour traiter ces évènements :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Public WithEvents CmdEvents As MSForms.CommandButton
 
Private Sub CmdEvents_Click()
    MsgBox "Hello from " & Me.CmdEvents.Name
End Sub

Ce que je cherche à faire : à partir du retour de 'Me.CmdEvents.Name', retrouver l'objet pour agir dessus.
Il me semble avoir déjà croisé ce type d'opération mais je n'ai rien trouvé, pour le moment, dans mes recherches.

Par exemple, je voudrais pouvoir changer la propriété 'Caption' d'un bouton :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim Widget as Object
 
Widget = ...
Widget.Caption = "New caption"

Je suis même preneur du nom d'une fonction ou d'un mot-clef.

D'avance merci

Bonne journée

Thoma

[pijaku]

Bonjour,

Je ne comprends pas ta question.
Ton objet tu l'as.
Tu l'as déclaré Withevents as MsForms.CommandButton.

Regarde ceci (dans ta classe) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
 
Public WithEvents CmdEvents As MSForms.CommandButton
 
Private Sub CmdEvents_Click()
    MsgBox "Hello from " & Me.CmdEvents.Name
    If Me.CmdEvents.Caption = "" Then
        Me.CmdEvents.Caption = Me.CmdEvents.Name
    Else
        Me.CmdEvents.Caption = ""
    End If
End Sub

[Thoma HauC]

Bonjour pijaku,

En lisant votre réponse et en relisant ma demande, j'ai vu qu'il manquait un point important.
En effet, l'objet lui même peut-être manipulé depuis 'Me'.
Toutefois, j'ai oublié de préciser que je souhaitais aussi accéder à un autre objet qui est instancié au même moment que le bouton.

Il me semble qu'il existe une fonction dans VBA qui permet de récupérer l'instance d'un objet par son nom.

Thoma

[unparia]

Bonjour
on peut se référer à l'objet "toto" placé sur userform1, ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Userform1.controls("toto")

Depuis ta classe, maintenant, il sera probablement nécessaire que tu puisse pointer vers UserForm1. Cela peut par exemple se faire via une variable publique (appelons-la USF), initialisée depuis où tu veux (hors de ta classe) ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set USF = Userform1

Ceci depuis ta classe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

USF.controls("toto")

devrait ne pas avoir de difficultés à pointer vers le contrôle toto de ton userform userform1

[Marc-L]

Il me semble qu'il existe une fonction dans VBA qui permet de récupérer l'instance d'un objet par son nom.

Bonjour,     serait-ce la fonction   CallByName   ?   …

___________________________________________________________________________________________________________
Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …