affichage d'une variable dans plusieurs forms

Bonjour
Je voudrais afficher une variable dans plusieurs forms j'ai déclaré ma variable public dans ma form et dans un module mais rein n'y fait pas de résultat

Voici mon code.

Code:

---

1 2 3 4 5 6 7 8

Sub Affichage() Etat$ = Time$ + " CTS= " + Str$(CTSnouv) + "DSR= " + Str$(DSRnouv) + "RI= " + Str$(RInouv) + "DCD= " + Str$(DCDnouv) Text3.Text = Etat$ Open "Données.TX" For Append As #1 Print #1, Etat$ Close 1   End Sub

---

La variable que je doit récuperer s'appelle ( Etat$)


Merci pour tous ceux qui peuvent m'apporter une soluce.

A+

Citation:

---

Envoyé par boettez

Bonjour
Je voudrais afficher une variable dans plusieurs forms j'ai déclaré ma variable public dans ma form et dans un module mais rein n'y fait pas de résultat
.........
Merci pour tous ceux qui peuvent m'apporter une soluce.
A+

---

Ne la déclare que dans le module (en Public) sinon, pour une variable declarée dans un Form, pour l'utiliser dans un autre Form(ou module....) il faut faire

Code:

---

1 2	Dim Recuperation As String Recuperation = FormX.Variable

---

ou FormX est le nom du Form ou est déclarée la variable

Bonsoir,

Mais un autre solution consiste à créer un module .bas et le définir comme sub main, et de déclarer les variables comme public dans ce module.
A partir de là toutes les variables déclarées sont reconnues dans toutes les form avec uniquement leur nom sans y associer le nom de la form.

Citation:

---

Envoyé par iclic

Bonsoir,

Mais un autre solution consiste à créer un module .bas et le définir comme sub main, et de déclarer les variables comme public dans ce module.
A partir de là toutes les variables déclarées sont reconnues dans toutes les form avec uniquement leur nom sans y associer le nom de la form.

---

Je ne vois pas ce que le fait d'ajouter une procédure de démarrage dans le module public
apporte de plus à ce que ProgElecT a déjà détaillé plus haut ?

Bonjour Dark,

C'est vrai ,je n'avais pas bien lu la réponse de progelect.

Mais la procédure sub main sert à charger des paramètres et les insérer dans des variables publiques que l'on peut avoir besoin de récupérer dans plusieurs forms.

Pas besoin d'un Sub main pour ça, n'importe quel module.bas fait l'affaire.

Bonjour,

Citation:

---

Envoyé par iclic

Bonjour Dark,

C'est vrai ,je n'avais pas bien lu la réponse de progelect.

Mais la procédure sub main sert à charger des paramètres et les insérer dans des variables publiques que l'on peut avoir besoin de récupérer dans plusieurs forms.

---

Non, pas forcément ; l'évènement Load du form initial peut le faire aussi bien (entr'autres solutions).

Bonjour ProgElecT

Toujours pas d'affichage de cette variable dans une autre form.
J'explique: la variable que je veut relire dans une autre form s'appelle Etat$.
Voici le code de la variable que je récupère dans la form qui a le nom de LISTbox:

Code:

---

1 2 3 4 5 6 7 8

Sub Affichage() Etat$ = Time$ + " CTS= " + Str$(CTSnouv) + "DSR= " + Str$(DSRnouv) + "RI= " + Str$(RInouv) + "DCD= " + Str$(DCDnouv) Text3.Text = Etat$ Open "Données.TX" For Append As #1 Print #1, Etat$ Close 1   End Sub

---

Dans le module j'ai déclaré:

Code:

---

1 2	Public Etat$

---

Maintenant j'essai de récupérer cette variable Etat$ dans la form du nom de FOedit dont voici le code:

Code:

---

1 2 3

Private Sub text4_change Text4.text= Etat$ End Sub

---

Rien n'apparaît nada.
As tu une soluce svp
A+

Je ne comprend pas vraiment à quel moment le de Foedit.text4.text doit prendre la valeur de ta variable.
Si c’est à l’ouverture de la form du nom de Foedit, dans le Form_load,

Code:

---

Text4.Text = Etat$

---

Si c’est au focus de la form du nom de Foedit, dans le

Code:

---

1 2 3

Private Form_GotFocus Text4.Text = Etat$ End Sub

---

Si c’est a chaque appel de la

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub Affichage() Etat$ = Time$ & " CTS= " & Str$(CTSnouv) _ & "DSR= " & Str$(DSRnouv) _ & "RI= " & Str$(RInouv) _ & "DCD= " & Str$(DCDnouv) Text3.Text = Etat$ 'Open "Données.TX" For Append As #1 'Print #1, Etat$ 'Close 1   'même si elle n'est pas chargé, 'le fait d'invoquer un de ces composants va enclencher son Load, 'mais sans la rendre visible FOedit.Text4 = Etat$ 'si tu veux la rendre visible If FOedit.Visible = False Then FOedit.Visible = True End Sub

---

Tu pourrais mettre le déclenchement depuis cette même Form au lieux et place de dans la sub Affichage

Code:

---

1 2 3 4 5

Private Sub Text3_Change() FOedit.Text4 = Etat$ 'si tu veux la rendre visible If FOedit.Visible = False Then FOedit.Visible = True End Sub

---

Mais il y a peut être d’autres événements dans ton programme qui sont susceptible de mettre à jour ce Text4.

Bonjour ProgElecT

En fait la variable Etat$ je voudrais la récupérer dans plusieurs form

Dans la form Foedit je voudrais envoyer la variable Etat$ dans le text4.text et dans la form FOcompt je voudrais envoyer toujours la même variable dans le text2.tex, mais la valeur doit être chargé même si la form n'est pas affichée
tu me comprends.

Merci d'avance pour ton écoute
A+

A quel endroit (Nom de la Sub) ta variable change de valeur ?

Citation:

---

Envoyé par ProgElecT

A quel endroit (Nom de la Sub) ta variable change de valeur ?

---

Nom de la sub

C'est un timer en l'occurence le timer 2 et dans la form qui s'intitule FOcompt

Merci de me suivre.
a+

Donc if faut, dans ta sub Timer2_Timer mettre à jour ta variable Etat$ et tu y mets ce

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub Timer2_Timer Etat$ = Valeur 'si un Form utilisant cette variable est chargé For Each FormsProgCharger In Forms If FormsProgCharger.Name = "Form2" Then 'actualiser l'utilisation de ta variable dans ce Form Form2.Text1.Text = Etat End If If FormsProgCharger.Name = "Form3" Then 'actualiser l'utilisation de ta variable dans ce Form End If If FormsProgCharger.Name = "FormX" Then 'actualiser.... End If Next End Sub

---

Ce code n'actulise que si le FormN est charger, mais ne provoque pas son chargement.

En plus, si le/les FormN utilisant cette variable n’est pas chargé, il faut lui passer ta variable au moment du Load (ou bien Form_Initialize).

Code:

---

1 2 3

Private Sub Form_Load() Text1.Text = Etat$ End Sub

---

Citation:

---

Envoyé par ProgElecT

Donc if faut, dans ta sub Timer2_Timer mettre à jour ta variable Etat$ et tu y mets ce

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub Timer2_Timer Etat$ = Valeur 'si un Form utilisant cette variable est chargé For Each FormsProgCharger In Forms If FormsProgCharger.Name = "Form2" Then 'actualiser l'utilisation de ta variable dans ce Form Form2.Text1.Text = Etat End If If FormsProgCharger.Name = "Form3" Then 'actualiser l'utilisation de ta variable dans ce Form End If If FormsProgCharger.Name = "FormX" Then 'actualiser.... End If Next End Sub

---

Ce code n'actulise que si le FormN est charger, mais ne provoque pas son chargement.

En plus, si le/les FormN utilisant cette variable n’est pas chargé, il faut lui passer ta variable au moment du Load (ou bien Form_Initialize).

Code:

---

1 2 3

Private Sub Form_Load() Text1.Text = Etat$ End Sub

---

---

Bonsoir ProgElecT

Donc dans tous les cas tant que ma form n'est pas visible elle ne se charge pas .
J'essaie ton code et je tient au courant.
Merci pour tes conseils.
A+