Userform et code

Bonsoir,
Malgré la lecture de divers articles sur les userforms (sur ce site) je suis toujours dans le doute, ce qui amène une question sans doute enfantine:
Dans le cas d'une userform, quelle partie du code associe-t-on à la userform; quelle partie met-on dans un module ?
Merci de m'indiquer comment faire cette distinction.
Cordialement
Pierre

Bonjour,

Toutes les procédures évènementielles sont intrinsèques au module de l'UserForm après, les fonctions et subs que tu crée peuvent rester dans le module de l'UserForm si il est le seul à les utiliser on peut dire dans ce cas que le code est encapsulé, il n'y a pas d'appel extérieur et c'est plutôt recommandé si tu fais des exports/imports de l'UserForm et dans ce cas, tu n'as pas à te soucier d'exporter/importer un ou plusieurs autres modules mais elles peuvent aussi se trouver dans un module standard surtout si elles sont susceptibles d'être appelées depuis un autre endroit du projet. Il est malgré tout possible d'appeler depuis l'extérieur (extérieur à l'UserForm) une sub ou fonction située dans le module de l'UserForm mais dans ce cas, il ne faut pas qu'elles soient déclarées Private et il faut nommer l'objet comme par exemple dans le module de l'UserForm :

Code:

---

1 2 3 4 5 6

Public Function Multiplier(Var1 As Double, Var2 As Double) As Double   Multiplier = Var1 * Var2   End Function

---

Appel depuis l'extérieur de l'UserForm (un module standard par exemple) :

Code:

---

1 2 3 4 5 6

Sub Test()   MsgBox UserForm1.Multiplier(125.36, 253.2)   End Sub

---

Bonjour,
Pour prolonger l'intervention de Theze.
Si l'on a plusieurs formulaires qui devraient utiliser une même procédure qui modifierait par exemple un de leurs contrôles, on pourrait envisager une procédure appelable depuis ce UserForm

Exemple d'une procédure se trouvant dans un module nommé mFunctionUserForm et qui calcule automatiquement la propriété ColumnWith d'un contrôle ListBox ou ComboBox.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Function AutoColumnWidth(ctrlList As MSForms.Control, oRng As Range) as Boolean Dim tcol() As String, c As Long, tw As Double With ctrlList ReDim tcol(.ColumnCount - 1) For c = 1 To .ColumnCount ' Calcul largeur des colonnes et le place dans un string par concaténation tcol(c - 1) = CStr(oRng.Cells(1, c).Width): tw = tw + tcol(c - 1) Next DoEvents .Width = tw + UBound(tcol) + 2 ' Rectifie la largeur du ListBox ou ComboBox .ColumnWidths = Join(tcol, ";") End With End Function

---

Ligne de code du UserForm qui invoque cette fonction (le nom du module qui précède le nom de la procédure n'est pas obligatoire)

Code:

---

mFunctionUserForm.AutoColumnWidth Me.lstBox, rngData

---

Bonjour et merci à Thèze et à Philippe,
Il faut que je phosphore un peu autour de cette syntaxe qui ne m'est pas familière avant de pouvoir clore la discussion, donc à plus.
Cordialement
Pierre