Discussion :

[Beginner37]

Bonjour,
je crée plusieurs userforms de manière dynamique avec plusieurs contrôles dans les différents userforms.
Mon soucis , c'est que je ne sais pas retrouver d'une façon informatique le nom de l'usf.

Par exemple : dans chaque userform (usf1, usf2,usf3,usf4) j'ai un combobox (cmd1,cmd2,cmd3,cmcd4) et lorsque je clique sur l'un des combobox, l'userform en question s'active (barre de titre change de couleur) et je ne sais pas récupérer son nom par une instruction. Comment pourrai-je l'obtenir ?

Avez-vous une idée ?

Merci

[Singular]

Comme le code activé par le ComboBox devrait être situé dans le module du UserForm qui le contient, l'expression:

Code :

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

Me.Name

devrait renvoyer le nom du UserForm en question.

[Bigalo]

Bonsoir,

Je ne trouve pas ton énoncé très clair :

Lorsque je clique sur l'un des combobox, l'userform en question s'active

Si un clic active un UserForm précis, comment est-il possible que déterminer le nom de celui-ci pose un problème ? Pour l’activer, il faut bien être capable d’utiliser ce nom ou une propriété quelconque du UserForm concerné. A partir de là, on doit pouvoir en retrouver le nom !

Tout est créé de façon dynamique, y compris donc le code permettant qu’un clic sur le Combo active le UserForm. Quel est ce code, ou comment est-il généré.

Enfin tu parles de Combo nommé cmd1, cmd2. Le nom évoque plutôt des CommandButtons.

S’il s'agit de Combo, que contiennent-ils : en principe une liste, et quelle est la relation entre l’élement choisi dans la liste et le UserForm activé ?

[tomy7]

bonjour,
je dirai Userform(numero). caption
ou userform(numero).name

tom

[Pierre Fauconnier]

Bonjour

En plus des solutions proposées, il y a aussi la propriété Parent disponible pour les contrôles

Code :

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

ComboBox1.Parent.Name

envoie le nom du userform qui contient le contrôle ComboBox1

[paoloadv]

Bonjour

En plus des solutions proposées, il y a aussi la propriété Parent disponible pour les contrôles

Code :

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

ComboBox1.Parent.Name

envoie le nom du userform qui contient le contrôle ComboBox1

Bonjour,
Cela ne marche pas si le contrôle est déjà inclus dans une autre structure genre Page1 (de MultiPage).
C'est vrai que si l'on envoie l'objet Userform en paramètre d'entrée d'un Sub ou Function, l'appel de son nom ne marche pas:

Code :

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

1
2
3
4
 
Public Sub maRoutine(UF As UserForm)
   MsgBox "Nom du Userform transmis : " & UF.Name
end Sub

Ce code déclenche l'erreur 438 ("Propriété ou méthode non gérée par cet objet").
Il faudrait tester si le nom du parent de l'objet est l'une de ces sous structure, et remonter au parent suivant (tant que l'on est dans ce cas de sous structure).
@+
Paul

[Patrice740]

C'est vrai que si l'on envoie l'objet Userform en paramètre d'entrée d'un Sub ou Function, l'appel de son nom ne marche pas:

Comme ceci :

Code :

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

1
2
3
4
5
6
7
Sub test()
Dim usf As New UserForm1
  Call maRoutine(usf)
End Sub
Public Sub maRoutine(UF As Object)
   MsgBox "Nom du Userform transmis : " & UF.Name
End Sub

[patricktoulon]

re
bonjour
Attention !!!! avec le ".parent"!!!!
si la combobox est dans une frame,un multipage ou autre container

le parent retourné sera le contenair

il faut remonter jusqu'au userform

edit

j'en ai retrouvé une
exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub hhh_Click()
    Set u = forme(hhh)
    MsgBox u.Name
End Sub
'
Private Sub UserForm_Activate()
    hhh.List = Array(1, 2, 3, 4)
End Sub
'
Private Function forme(ctrl As Object) As Object
    Dim u As Object
    Set u = ctrl.Parent
    Do
        Select Case True
        Case TypeName(u) = "Frame": Set u = u.Parent
        Case TypeName(u) = "Page": Set u = u.Parent.Parent
            'case ' autre container a incrémenter ici!
        Case Else: Exit Do
        End Select
    Loop
    Set forme = u
End Function

quelque soit le parent container de la combobox c'est le userform 1er parent qui sera retourné