cs_kate1
Messages postés23Date d'inscriptionmardi 27 janvier 2004StatutMembreDernière intervention17 mars 2004
-
29 janv. 2004 à 11:56
cs_BFR
Messages postés88Date d'inscriptionmardi 30 juillet 2002StatutMembreDernière intervention 1 mars 2008
-
29 janv. 2004 à 12:20
Bonjour,
mon programme est composé de nombreuses feuilles et
j'aimerais savoir comment faire simplement que le résultat d'une saisie utilisateur composée de lettres et de chiffres (textbox.text) sur une feuille 1 soit affichée plusieurs fois
automatiquement dans d'autres feuilles du programme lorsque l'on arrive dans l'exécution dans ces feuilles.
Faut il utiliser une variable globale?
merci
cs_BFR
Messages postés88Date d'inscriptionmardi 30 juillet 2002StatutMembreDernière intervention 1 mars 2008 29 janv. 2004 à 12:17
Salut
On peut utiliser une variable globale mais on peut utiliser "Property"
Dans tes feuilles autres que 1 que tu nomme créer
Dim M_APPEL As String
Public Property Get TYP_APPEL() As String
'-Lecture
TYP_APPEL = M_APPEL
End Property
Public Property Let TYP_APPEL(ByVal NewAppel As String)
'-Ecriture
M_APPEL = NewAppel
End Property
et tu appel à partir de ta feuille 1 chaque propriéte
Dans chaque Form
Dim M_APPEL As String'-A mettre en haut de la form
Public Property Get TYP_APPEL() As String
'-Lecture
TYP_APPEL = M_APPEL
End Property
Public Property Let TYP_APPEL(ByVal NewAppel As String)
'-Ecriture
M_APPEL = NewAppel
End Property
'--------------------------------------------------------------------
'-Appel à partie de 1
Form1.TYP_APPEL= textbox.text
Form2.TYP_APPEL= textbox.text
Form3.TYP_APPEL= textbox.text etc...
et aprés tu peut récuperer l'argument passer
c'est un peut léger comme explication mais c'est une piste à suivre
A++ BFR
cs_BFR
Messages postés88Date d'inscriptionmardi 30 juillet 2002StatutMembreDernière intervention 1 mars 2008 29 janv. 2004 à 12:20
Corriger les fautes de copier coller
Salut
On peut utiliser une variable globale mais on peut utiliser "Property"
Dans tes feuilles autres que 1 que tu nomme créer:
Dans chaque Form
Dim M_APPEL As String'-A mettre en haut de la form
Public Property Get TYP_APPEL() As String
'-Lecture
TYP_APPEL = M_APPEL
End Property
Public Property Let TYP_APPEL(ByVal NewAppel As String)
'-Ecriture
M_APPEL = NewAppel
End Property
'--------------------------------------------------------------------
'-Appel à partir de 1
Form1.TYP_APPEL= textbox.text
Form2.TYP_APPEL= textbox.text
Form3.TYP_APPEL= textbox.text etc...
et aprés tu peut récuperer l'argument passer
c'est un peut léger comme explication mais c'est une piste à suivre
A++ BFR