Discussion :

[ouskel'n'or]

J'aurais besoin d'adresser plusieurs paramètres à un userform qui ne sert qu'à l'affichage de résultats.
Ce que j'ai envisagé et écarté :
- La déclaration publique des paramètres
- Le collage de ces paramètres dans des cellules et récupération depuis l'usf
Une autre solution ?
Par avance, merci.

[tirex28]

Bonjour,

Un exemple de passage de paramètre avant l'affichage et de récuperation après.

Dans le formulaire:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Explicit
Private frmValue As Long
 
Property Let Value(MyValue As Long)
   frmValue = MyValue
End Property
 
Property Get Value() As Long
   Value = frmValue
End Property
 
Private Sub CommandButton1_Click()
   frmValue = frmValue * 10
   Me.Hide
End Sub

Dans un autre module:

Code :

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

1
2
3
4
5
6
7
8
Sub Essai()
   Dim MyForm As UserForm1 'Adapter le nom
   Set MyForm = New UserForm1
   MyForm.Value = 1        'Passe un parametre
   MyForm.Show
   MsgBox MyForm.Value     'Recupere la valeur modifié
   Unload MyForm
End Sub

Tu peux aussi ajouter des Sub ou Function publiques à ton formulaire et les utiliser selon le même schéma.

Cordialement,

Tirex28/

[ouskel'n'or]

Impeccable ! Juste ce qu'il me faut. Je vais tâcher de trouver tout seul pour passer un tableau, mais là j'ai une idée.
Danke sehr many, thank you very beaucoup et toutes ces sortes de choses