Discussion :

[touche_a_tout]

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

[Theze]

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 :

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

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 :

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

1
2
3
4
5
6
 
Sub Test()
 
    MsgBox UserForm1.Multiplier(125.36, 253.2)
 
End Sub

[Philippe Tulliez]

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 :

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

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 :

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

mFunctionUserForm.AutoColumnWidth Me.lstBox, rngData

[touche_a_tout]

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