Discussion :

[Pirloui]

Bonjour à tous,

je cherche désespérement comment récupérer une valeur d'un formulaire à sa fermeture (à la manière d'une fonction).

J'essaye d'expliquer !

Imaginons par exemple un formulaire "frmCalculatrice" dans lequel on placerais une textbox txResultat contenant le résultat.

Je souhaiterais faire par exemple :

Code :

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

nResultat = Calculatrice()

que cette fonction Ouvre le formulaire frmCalculatrice (en modal de préférence) et que lorsqu'on sort de ce formulaire, la valeur de la textbox txResultat soit affectée à ma variable.

En fait je voudrais faire l'équivalent calculatrice ou d'un clavier virtuel ou toute autre sorte de formulaire à la manière d'une inputbox.

Merci d'avance à tous ceux qui peuvent me renseigner sur le sujet.

[Asdorve]

Salut, une suggestion:

tu as ta form principale dans laquelle tu mets une variable publique.
Lorsque tu récupères une valeur dans Form2, tu l'affectes à la variable publique de la form1

Ex:

Code :

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

1
2
3
4
 
'Dans Form1
Public VarPublique
...

puis

Code :

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

1
2
3
4
5
6
 
'Dans Form2
...
MonRésultat = txtBox.text
Form1.VarPublique = MonRésultat
...

[Najdar]

Cela doit ressembler à ce que tu souhaite ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private mMaValeur As Double
 
Public Function RenvoiMaValeur() As Double
  Me.Show vbModal
 
  'Attention à ne pas mettre ici du code qui référence la feuille (propriétés ou méthodes),
  ' sinon l'événement Form_Load se re-déclenche.
  RenvoiMaValeur = mMaValeur 
End Function
 
Private Sub Command1_Click()
  mMaValeur = 126
  Unload Me
End Sub

[Delbeke]

Une idée générale, d'un point de vue objet, il vaudrait mieux que la form2 soit passive.

je verrais plutot quelque chose comme

dans l'appli principale

Code :

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

1
2
3
4
5
6
Private Sub Command1_Click()
  frmCalculatrice.Show 1
  MaValeur=frmCalculatrice.Resultat
  UnLoad frmCalculatrice
  Set frmCalculatrice = Nothing
End Sub

dans l'application Fille

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim m_Resultat as Variant
 
Public Property Get Resultat() As Variant
 Resultat=m_Resultat
End Property
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  Cancel = True
  Me.Hide
End Sub

Ca me parait plus sain que de deamander a la form secondaire d'envoyer une donnée a la form principale.

[Pirloui]

merci à tous.... je teste et je vous tiens au courant.....