Déclaration d'un userform dans une procédure paramétrée

Bonjour, j'essaie de contrôler les propriétées d'un userform depuis un autre module mais cela ne fonctionne pas entierement comme je le voudrais. J'arrive à contrôler l'userform en entrant directement son nom avec la propriété que je veux modifier, mais je n'arrive pas à le faire avec une variable qui prendrait le nom de l'userform qui est déjà ouvert (pour pouvoir d'avoir une procédure paramétrée avec entre autres paramètres le nom de l'userform).

Voici le code sur lequel j'essai. Un userform nommé "Usf_Test", un bouton nommé "Btn_Test". Dans un autre module, une procédure paramétrée Move_USF.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub Btn_Test_Click() Dim Usf As String Usf = Me.Name Call Move_USF(Usf) End Sub     Sub Move_USF(Usf As String) Dim MonUsf As Object Set MonUsf = UserForms(Usf) '?????????? Je sais que ce n'est pas comme ça mais je ne trouve pas With MonUsf .Width = .Width - 12 .Height = .Height - 10 .Zoom = 80 End With End Sub

---

Merci de votre aide

Bonjour Remy,


Essaies plutôt comme ceci :

Code dans ton Userform

Code:

---

1 2 3 4

Private Sub Btn_Test_Click() Call ResizeMyForm(Me) End Sub

---

Code dans un module Standard

Code:

---

1 2 3 4 5 6 7 8

Sub ResizeMyForm(Usf As Object) With Usf .Width = .Width - 12 .Height = .Height - 10 .Zoom = 80 End With End Sub

---

Ça fonctionne parfaitement, merci.

Même si c'est tout ce qu'il me fallait, je vais être un peu gourmand et en demander un peu plus, pour ma culture personnelle. "Me" est l'objet userform actif, comment aurais-je pu faire si j'avais voulu appliquer cela sur un autre userform (en arrière plan par exemple, je ne sais pas si c'est possible)? En fait, plus simplement peut-être, comment est-ce que je pourrais utiliser le nom d'un userform à la place de "me" (ce n'est peut-être pas possible... ou ma demande pas très claire...)?

Bonjour,

Citation:

---

Envoyé par RemyA56

... "Me" est l'objet userform actif
... comment aurais-je pu faire si j'avais voulu appliquer cela sur un autre userform [...] est-ce que je pourrais utiliser le nom d'un userform à la place de "me"

---

- "Me" n'est pas l'objet actif, c'est l'instance de l'objet dans laquelle se situe le code exécuté (workbook, worksheet, chart, userform, class).
- Tu peux désigner un objet par son CodeName, sans l'encadrer de " (mais pas par le Name qui est une propriété de type String).

Par exemple :

Code:

---

1 2 3 4 5 6 7

Option Explicit Sub test() Call affNom(UserForm2) End Sub Sub affNom(x As Object) MsgBox x.Name & vbCr & x.Font.Name End Sub

---