Discussion :

[nat.olivier]

bonjour
j'ai créé les macros suivantes dans le même module :

Code :

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

1
2
3
4
5
6
7
8
9
Sub DemandeNom()
Dim vNom As String
    vNom = InputBox("Quel est votre nom?")
End Sub
Sub BonjourVousAppelProc()
Dim vNom As String
    DemandeNom
    MsgBox ("Bonjour ") & vNom & ("Bonne lecture")
End Sub

quand je éxecute la deuxième macro j'ai simplement Bonjour Bonne lecture. je n'ai pas mon nom. Pourquoi?
Merci

[lachappe]

bonjour

Déjà si tu veux appeler une macro dans une autre il faut écrire

Code :

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

call Demandenom

mais le plus simple est de faire qu'une macro

Code :

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

1
2
3
4
5
Sub DemandeNom()
Dim vNom As String
vNom = InputBox("Quel est votre nom?")
MsgBox ("Bonjour ") & vNom & "  " & ("Bonne lecture")
End Sub

[nat.olivier]

je sais mais je me fais des petits exos pour apprendre et j'aimerai bien pour comprendre

[lachappe]

ok

Mais je ne pense pas qu'il soit possible de récupérer une variable d'une autre macro. Des membres beaucoup plus expert que moi te répondrons

[gFZT82]

Bonjour,

Essaie comme cela

Code :

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

1
2
3
4
5
6
7
8
Dim vNom As String
Sub DemandeNom()
vNom = InputBox("Quel est votre nom?")
End Sub
Sub BonjourVousAppelProc()
DemandeNom
MsgBox ("Bonjour ") & vNom & (" Bonne lecture")
End Sub

et après, regarde le paragraphe consacré au niveau de variables.
http://silkyroad.developpez.com/VBA/LesVariables/

Cordialement.

[nat.olivier]

merci ca marche comme ça

[SfJ5Rpw8]

Bonjour,


il y as plein de solution ... la première qui n'est pas la meilleure est d'utiliser une variable globale déclarée hors de tes procédures :
voir : Erreur de portée


Tu peu aussi transformer ta procédure en fonction :

Code :

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

1
2
3
4
5
6
7
8
9
 
Function DemandeNom() as string 
    Dim vNom As String
   vNom = InputBox("Quel est votre nom?")
   DemandeNom = Vnom
End Sub
Sub BonjourVousAppelProc()
  MsgBox ("Bonjour ") & DemandeNom& (" Bonne lecture")
End Sub

ou passer une variable par référence :

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub DemandeNom(ByRef mNom as string )
  mNom = InputBox("Quel est votre nom?")
End Sub
Sub BonjourVousAppelProc()
  Dim vNom As String
  DemandeNom  vNom
  MsgBox ("Bonjour ") & vNom & (" Bonne lecture")
End Sub