OVH Cloud OVH Cloud

Définir une variable pour tous les modules

3 réponses
Avatar
Xavier POWAGA
bonjour à tous,
voilà mon pb, dans mon fichier excel j'ai plusieurs feuilles excel. chaque
feuille contient un petit prog VBA . Comme chaque prog utilise des fonctions
identiques, j'ai réalisé une fonction commune que j'ai stocké dans un module
(module 1).
Mon problème se situe au niveau d'une variable qui est utilisée par tous ces
programmes et que je n'arrive pas à définir pour qu'elle soit connue de tous
(du module, des feuilles, voire des forms).

Comment faut-il faire

merci

3 réponses

Avatar
Norvi
Bonjour,

Tous simplement en la déclarant comme étant publique :

Public NomDeTaVaraiable As TRonTypeDeVariable

Exemple :
Public Texte As String
Sub test()
Texte = "Hello World"
UserForm1.Show
End Sub

Et dans le code du UserForm1

Private Sub UserForm_Activate()
MsgBox Texte
End Sub

Bonne soirée,

N.
Avatar
gérard
salut
tu la declare dans le module
public mavariable as integer par exemple
a+
"Xavier POWAGA" a écrit dans le message de news:
4436af66$0$7087$
bonjour à tous,
voilà mon pb, dans mon fichier excel j'ai plusieurs feuilles excel. chaque
feuille contient un petit prog VBA . Comme chaque prog utilise des
fonctions identiques, j'ai réalisé une fonction commune que j'ai stocké
dans un module (module 1).
Mon problème se situe au niveau d'une variable qui est utilisée par tous
ces programmes et que je n'arrive pas à définir pour qu'elle soit connue
de tous (du module, des feuilles, voire des forms).

Comment faut-il faire

merci



Avatar
Xavier POWAGA
j'avais fait cela mais ça ne marchait pas. Par contre en lisant la réponse
de gérard j'ai compris qu'effectivement ta réponse marche si elle est mise
dans le module.

merci


"Norvi" a écrit dans le message de news:

Bonjour,

Tous simplement en la déclarant comme étant publique :

Public NomDeTaVaraiable As TRonTypeDeVariable

Exemple :
Public Texte As String
Sub test()
Texte = "Hello World"
UserForm1.Show
End Sub

Et dans le code du UserForm1

Private Sub UserForm_Activate()
MsgBox Texte
End Sub

Bonne soirée,

N.