Passage de la valeur d'une variable d'un formulaire à un autre en VBA [Résolu]

Signaler
Messages postés
4
Date d'inscription
vendredi 9 décembre 2005
Statut
Membre
Dernière intervention
12 mai 2006
-
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
-
Bonjour j'ai une variable X définie dans le formulaire 1 j'aimerais passer sa valeur au formulaire 2, pourriez vous me dire comment faire? merci

L'esprit n'a comme limite que celle que nous lui fixons.

Le bonheur est tel le papillon, on croit l'attraper... il s'envole...

5 réponses

Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
55
Salut,
en suivant le modele de jpleroisse.

Private MaVar as string

Public Sub PasseValeur(LaVar as string)
MaVar = LaVar
end sub

Public Function RecupereVar() As String
RecupereVar = MaVar
End Fucntion

Tu Passes la valeur en appelent PasseValeur depuis l'un des forms, et tu la recupere depuis le Form2 avec:
RecupereValeur.

Exemple,
Dans Form1:

Dim Var as string
Var = "TOTO"
Call PasseValeur(Var)
__________

Dans Form2

Dim Var as string
Var = RecupereVar
MsgBox Var

_________

Voila j espere que ca peut t'aider
@+
Julien
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 195 internautes nous ont dit merci ce mois-ci

Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
25
Bonjour,

'Tu places ta variable dans un module et tu la déclare Public.

'Exemple(dans le module)

Public MaVar As String



'Dans un CommandButton sur un formulaire où l'autre

Private Sub CommandButton1_Click()

MaVar = "Bonjour"

MsgBox MaVar

End Sub



jpleroisse



Si une réponse vous convient, cliquez Réponse Acceptée.
Messages postés
4
Date d'inscription
vendredi 9 décembre 2005
Statut
Membre
Dernière intervention
12 mai 2006

J'ai déjà essayé cette solution mais la valeur de la variable définie dans le formulaire 1 ne l'est pas dans le formulaire 2. :(

L'esprit n'a comme limite que celle que nous lui fixons.

Le bonheur est tel le papillon, on croit l'attraper... il s'envole...
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
25
Re,

'Essaye ceci,

'Toujours dans un module



Sub Test()

Dim MaVar As String

MaVar = "Boujour"

MsgBox MaVar

End Sub



'Ensuite dans n'importe quel formulaire.



Private Sub CommandButton1_Click()

Call Test

End Sub



jpleroisse



Si une réponse vous convient, cliquez Réponse Acceptée.
Messages postés
4
Date d'inscription
vendredi 9 décembre 2005
Statut
Membre
Dernière intervention
12 mai 2006

Merci ton petite astuce marche bien mais comment je fais pour passer une valeur venant du formulaire vers le module?

L'esprit n'a comme limite que celle que nous lui fixons.

Le bonheur est tel le papillon, on croit l'attraper... il s'envole...