Obtenir une variable d'une autre feuille

Question

Bonjour,

J'ai deux feuilles. A partir de l'une, je souhaite obtenir le texte d'un textbox qui se trouve sur l'autre. Ca marche, mais le texte obtenu n'est pas ajour, je recois celui qui s'affiche quand on ouvre la feuille, pas celui que je viens de rentrer.

J'ai deux feuilles. J'ouvre la premiere feuille, et "rien" s'affiche dans un textbox. J'&#233;cris "coucou" dans ce textbox. Dans la deuxieme feuille, je souhaite obtenir ce que contient ce textbox. Mon code est alors:

dim form as new premierefeuille
mavar = form.textbox.text

Mais je ne recois pas "coucou", mais "rien", le texte qui s'affiche &#224; l'ouverture le premiere feuille. Quelqu'un sait il comment faire ? 

Merci d'avance,

M@x

NHenry · Answer

n'utilise pas Form, c'est un type VB

Selon ton code, ton textbox, ne peut etre modifi&#233;, fait :

dim Maform as new premierefeuille

Maform.show 1
mavar =Ma form.textbox.text


Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)



NH

cs_MasterHack · Answer

veux tu nous dire l'evenement pou tu as mis ce code stp

Life is short...Learn more Copy Rights <> Rights to Copy

NHenry · Answer

Si tu veux que l'utilisateur entre une donn&#233;es, puis r&#233;cup&#233;r&#233;e
dcelleci, tu doit afficher la form en modal. Si tu veux acc&#233;der &#224; un
attribut (variable/propri&#233;t&#233;) de ta conceptio, utilise la port&#233;e public.


Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)



NH

mfritsch · Answer

Un bouton dans la feuille Accueil:

Dim sauve 
As 
New Sauvegarde

'--------------------------
'Afficher la feuille ouvrir
'--------------------------
sauve.ShowDialog(
Me)

'-----------------

Dans la feuille sauve:


Dim acc 
As 
New Accueil              

If numSimulation = 1 
Then
      rsSimulation.MoveFirst()
      rsSimulation.AddNew()
      rsSimulation.Fields("numSimulation").Value = rsSimulation.RecordCount + 1
      rsSimulation.Fields("commentaire").Value = txtCommentaires.Text
      rsSimulation.Fields("date").Value = 
Date.Today

      If acc.rbNbreConducteur1.Checked = 
True 
Then
         rsSimulation.Fields("nbreConducteur").Value = 1

      Else
         rsSimulation.Fields("nbreConducteur").Value = 2

      End 
If

      rsSimulation.Fields("pourcFraisStructure").Value = acc.nupPourcFraisStructure.Text / 100
      rsSimulation.Fields("pourcMargeRecherche").Value = acc.nupPourcMargeRecherche.Value / 100
      rsSimulation.Fields("kilometrageJournalier").Value = Val(acc.txtKilometrageJournalier.Text)
      rsSimulation.Fields("pourcGasoilDepot").Value = acc.nupPourcGasoilDepot.Value / 100
      rsSimulation.Fields("pourcGasoilExt").Value = acc.nupPourcGasoilExt.Value / 100
      rsSimulation.Fields("typeSemi").Value = acc.cmbSemi.Text
   rsSimulation.Fields("typeTracteur").Value = acc.cmbTracteur.Text
End if

rsSimulation.update()

'---------------

Voila mon code, c'est quand j'&#233;cris "acc.' que je cherche &#224; r&#233;cup&#233;rer les donn&#233;es. Sauve a bien &#233;t&#233; ouverte en modale pourtant. Vous avez une id&#233;e ?

Merci d'avance,

M@x

mfritsch · Answer

Par ailleurs, j'ai essay&#233; de changer la propri&#233;t&#233; "modifiers" de chacun des controles, je les ais mis en "Public", mais ca ne marche pas non plus.

M@x

NHenry · Answer

Sauve.show 1 c'est modal, sauve.ShowDialog(Me
) g connai pas cette m&#233;thode.


Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)



NH

mfritsch · Answer

J'ai essay&#233; avec sauve.show, et avec sauv.showdialog(me), le premier est donc modale, le deuxieme non. Mais aucun des deux ne marchent. Je suis d&#233;s&#233;sp&#233;r&#233; ...

NHenry · Answer

Sauve.show 1

rend la fenetre modale.


Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)



NH

Obtenir une variable d'une autre feuille

8 réponses

Discussions similaires