variable globale module

Bonjour , dans l'une de mes macros j'ai une variable qui vaut m = fonction ( où fonction est une fonction que j'ai écrite ) .
Je souhaiterais que la valeur de cette variable soit utilisable dans toutes les macros ou fonctions de mon module , c'est possible ?

merci

Avant de déclarer tes subroutines
(de mémoire je n'ai ps d'exemples sous la main)

Citation:

---

Private variable as double 'enfin tu met ce que tu veux comme type

---

Tu peux mettre Public a la place de private dans ce cas cela concernera l'ensemble de tes modules. Regarde l'aide F1 il me semble quelle été bien faite

ok merci :)

finalement ya un petit problème , je déclare ma variable publique de cette manière ( publique veut dire accessible pour toutes les fonctions , macros ou procédures du module ) :

Code:

---

Public variable As Integer

---

Problème , à cette variable je veux affecter une valeur , valeur qui est le résultat d'une fonction qui renvoie un nombre aléatoire.

j'ai essayé variable = alea(50,100) , ça n'a pas marché , j'ai regardé un peu sur le net et je n'ai pas trouvé de solution .

Comment affecter une valeur ?

bonsoir,

Dans un module :

Code:

---

public m as ..... ' integer pour toi

---

devrait suffire pour que la valeur de m soit accessible partout.

oui mais il faut que j'affecte une valeur à cette variable ... c'est ça que je ne sais pas faire .
Par exemple pour une constante je sais le faire , je fais :

Code:

---

Public Const toto = 10

---

mais pour la variable mes essais sont restés infructueux .

En fait je me trompe peut etre dès le départ , Je dois avoir m qui vaut alea(10,50) pour tout le module , je devrais peut etre déclarer m comme constante , j'ai essayé ceci :

Code:

---

Public Const toto = alea(10,50)

---

mais sans succès , j'ai le message d'erreur : constante requise , je ne comprends pas...

Je ne te comprends pas !

Une fois m déclarée comme je te l'ai indiqué, m est accessible et modifiable depuis partout (ce qui veut clairement dire que si, depuis n'importe où, tu écrivais m = 100, m vaudrait partout 100 tant que tu ne lui attribuerais pas une autre valeur) ...
Je ne vois vraiment pas où est le problème !
m aura ainsi partout la dernière valeur que tu auras pu lui attribuer (depuis quelque endroit de ton application que ce soit) !

ok merci ucfoutu j'ai compris , ça marche .

et bien non ça ne marche pas , j'ai écris une macro dans laquelle ma variable m vaut 20 , elle me remplit un tableau de 20 lignes , donc m est censée valoir 20 partout dans le module , mais quand je veux effacer mes lignes avec ce code :

Code:

---

1 2 3 4 5

Sub effacer() Dim plage As Range Set plage = Range(Cells(1, 2), Cells(m , 15)) plage.ClearContents End Sub

---

en faisant le f8 il est dit que m vaut 0 , or m est censée valoir 20 , c'est normal ?

Oh.....

exemple :
un projet composé de :
- un userform UserForm1
- un userform userform2
- un module

Sur userform1 :
- un bouton de commande command1
- un bouton de commande command2
ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Command1_Click() Randomize m = Int((200 * Rnd) + 1)   End Sub   Private Sub Command2_Click() MsgBox m Me.Hide UserForm2.Show End Sub

---

Sur UserForm2 :
- un bouton de commande Command1 et ce code

Code:

---

1 2 3

Private Sub Command1_Click() MsgBox m End Sub

---

dans ton moduler :
ce code :

Code:

---

Public m As Integer

---

- tu lances userform1
tu cliques sur command1
tu cliques sur command2

tu arrives à userform2
-tu cliques sur command1

et tu observes .....

Je n'ai absolument pas l'intention de continuer si tu ne vois toujours pas !!!

non ben c'est pas grave je laisse tomber et je reviens à mon ancienne méthode , merci pour ton aide .