Discussion :

[nat.olivier]

bonjour
j'ai écrite les deux macros suivantes dans un 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 j'éxécute la deuxième macro seule le message Bonjour bonne lecture apparaît Pourquoi je n'ai pas le nom
Merci de votre aide
Nathalie

[Aniki]

Bonjour Nathalie,

Le nom que tu tapes dans l'inputBox n'est pas visible dans ton MessageBox parce que la variable vNom diffère entre tes deux macros.
En gros, tu as créé 2 variables vNom: une dans DemandeNom qui contient le texte que tu as tapé et l'autre dans BonjourVousAppelProc qui est vide.

Dans ton cas, tu n'as besoin que d'une seule macro:

Code :

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

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

[Heureux-oli]

Salut,

Pour que ça fonctionne, il faut une procédure et une fonction.

Une "porcédure" ne renvoit rien, alors qu'une fonction peut renvoyer une valeur.

Code :

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

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

On peut encore réduire un peu les lignes de code en évitant une variable.

Code :

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

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

Si tu souhaites malgré tout utiliser une variable, il faut la déclare dans ton module et plus dans une procédure ou une fonction, sans quoi, sa vie se limite à la fonction ou la procédure.

Si tu veux aller un peu plus loin, voilà un peu de lecture : http://heureuxoli.developpez.com/office/word/vba-all/

[Maxence HUBICHE]

Bonjour,

j'ajoute que les parenthèses sur la ligne du msgbox sont inutiles.

[Heureux-oli]

Salut Max,

Bonjour,

j'ajoute que les parenthèses sur la ligne du msgbox sont inutiles.

Désolé, ce sont les aléas d'un copier coller.

[Maxence HUBICHE]

Salut Olivier

Je n'en doute pas !
Si tu voyais la bourde que je viens d'écrire !!!
Je dis : ne mets pas 2 \ dans ton URL ! Voici un exemple de code
et qu'est-ce que je mets dans l'exemple de code ? 2\ dans l'URL !
Je crois même que c'est pire