Discussion :

[Aurianelm]

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 :

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

Const MoisEtudie As String = "07"

et ça

Code :

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

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 !

[patricktoulon]

Bonjour

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

exemple
pour une variable

Code :

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

public mois_étudie as long

dans la macro

Code :

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

mois_etudie=7

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

Code :

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

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 :

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

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

[Aurianelm]

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 !

[EngueEngue]

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 :

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

Public moisetudie As String

Ta fonction

Code :

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

1
2
3
Public Function mois()
mois = InputBox("quelmois")
End Function

Creation de la valeur

Code :

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

1
2
3
Sub tfsdfhoto()
moisetudie = mois()
End Sub

Renvoi de la valeur

Code :

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

1
2
3
Sub tofdsfto()
MsgBox (moisetudie)
End Sub

[Aurianelm]

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