Variable utilisable dans toutes les macros

Bonjour tout le monde !!

Je suis bloquée...
J'ai plusieurs modules dans lesquels j'utilise la variable moisEtudie qui est définie par une InputBox. J'aimerai qu'une box demande à l'utilisateur le mois étudié en début de programme et ensuite réutiliser cette variable sans avoir à chaque fois à redemander à l'utilisateur de renseigner le mois.

J'ai même essayé avec une constante pour que l'utilisateur aille dans le programme juste modifier cette donnée mais ça ne fonctionne pas non plus (et je préfèrerai vraiment une inputbox).

J'ai donc essayé ça

Code:

---

Const MoisEtudie As String = "07"

---

et ça

Code:

---

1 2 3

Public Function GetMois() GetMois = InputBox ("Quel est le mois étudié ?") End Function

---

Mais la 1ère ne fonctionne pas et la 2ème ne me convient pas.

Merci de votre aide ! ;)

Bonjour

les variables et constantes utilisées dans tout le classeur doivent être déclarées en public

exemple
pour une variable

Code:

---

public mois_étudie as long

---

dans la macro

Code:

---

mois_etudie=7

---

-------------------------------------------------------------------
pour une constante

Code:

---

public const mois etudié as string="07"

---

mais attention le chiffre 07 est une suite de caracteres dans ce cas present donc si tu le traite comme un nombre ca risque de planter a coup sur

Code:

---

public const mois_etudie as long =7 'ici on traite la constante comme un nombre

---

Merci pour ta réponse et j'ai bien essayé... Le problème est que même avec le Public, il ne prend prend pas en compte ma variable dans mon 1er Sub. Alors qu'ensuite dans les Private Sub aucun problème !

As Patrick's said: une variable publique est publique et sera prise en compte par tes subs, vérifie que tu l'appelles bien et qu'elles sont bien dimensionnées.

Declaration en début de module

Code:

---

Public moisetudie As String

---

Ta fonction

Code:

---

1 2 3

Public Function mois() mois = InputBox("quelmois") End Function

---

Creation de la valeur

Code:

---

1 2 3

Sub tfsdfhoto() moisetudie = mois() End Sub

---

Renvoi de la valeur

Code:

---

1 2 3

Sub tofdsfto() MsgBox (moisetudie) End Sub

---

J'ai trouvé mon erreur ! A la base j'avais déclaré moisEtudie dans mon 1er sub() et j'avais oublié de l'enlever... Merci :ccool: