Discussion :

[khame1]

Bonjour,

Je désire faire passer un argument dans la procédure d'initialisation d un formulaire. (userform1.show)
la définition d'une variable publique dans le programme ne donne aucun résultat. le contenu de la variable est toujours vide dans la procédure .
quelqu'un aurait-il une idée pour ce faire ?
Merci.

[BlueMonkey]

Bonjour,

Je désire faire passer un argument dans la procédure d'initialisation d un formulaire. (userform1.show)

S'il s'agit d'un UserForm, ajouter une méthode Initialisation(<paramètres>) à la userform.
Puis appeler cette méthode avant le userform1.Show()

[Philippe Tulliez]

Bonjour,
Je n'ai sans doute pas compris ta question parce-que pour moi, une variable définie comme Public garde sa valeur également dans un UserForm.

[khame1]

bonjour,

j'ai déclaré une variable publique dans le coding de mon programme (public dim titre as integer)
titre = 1
userform1.show pointe vers la procédure userform1_Initialize
le trace (debug.print titre), dans cette procédure, donne zéro alors que cette variable était initialisée à 1 (voir ci-dessus)

[Philippe Tulliez]

Bonjour,
Alors, bien que j'étais certain de ce que j'avançais. J'ai fais un test et je confirme Test contient bien 1
Dans Module1

Code :

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

1
2
3
4
5
6
Option Explicit
Public titre As Integer
Sub Main()
 titre = 1
 UserForm1.Show
End Sub

Dans UserForm1

Code :

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

1
2
3
4
Option Explicit
Private Sub UserForm_Initialize()
 Me.TextBox1 = titre
End Sub

Ajout (Edit) : Petite précision
Si évidemment, tu as placé UserForm1.Show depuis le module ThisWorkbook alors tu auras la variable test à 0
Pour ma part, je démarre toujours mes applications dans une procédure Main que je place dans un module principal que je nomme MainXXXX
Donc, code dans ThisWorkBook

Code :

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

1
2
3
4
Option Explicit
Private Sub Workbook_Open()
 Main
End Sub

[khame1]

Merci pour cette réponse qui situe mon problème !