Nom de l'userform actif en VBA

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

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

Code:

---

Me.Name

---

devrait renvoyer le nom du UserForm en question.

Bonsoir,

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

Citation:

---

Envoyé par Beginner37

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é ?

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

tom

Bonjour

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

Code:

---

ComboBox1.Parent.Name

---

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

Citation:

---

Envoyé par Pierre Fauconnier

Bonjour

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

Code:

---

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:

---

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

Citation:

---

Envoyé par paoloadv

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:

---

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

---

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:

---

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é