Discussion :

[RemyA56]

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 VBA :

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

[mfoxy]

Bonjour Remy,


Essaies plutôt comme ceci :

Code dans ton Userform

Code :

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

1
2
3
4
 
Private Sub Btn_Test_Click()
    Call ResizeMyForm(Me)
End Sub

Code dans un module Standard

Code :

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

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

[RemyA56]

Ç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...)?

[Patrice740]

Bonjour,

... "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 :

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

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