Excel VBA variables

Bonjour à tous,
Je suis un petit nouveau qui commence à utiliser Vba avec excel,
j'ai quelques soucis avec les variables.
J'ai déclaré dans un module standard mes variables en Public pour pouvoir les utiliser dans toutes les macros du projet. Mais quand je suis dans une feuille userform (UserForm_Initialize()), je passe par une macro qui se trouve dans module1 pour prendre les valeurs qui sont attribuées aux variables (dans une feuille excel). les variables sont vides sur la feuille userform, alors que si je vais dans le module1, elles sont bien remplies avec les valeurs prises dans les cellules d'une feuille de calcul. Comment faire pour que ces variables soient accessible par toutes les macros de tous les modules et feuilles userform?

Bonjour,

Commence par rajouter la ligne :

Code:

---

Option explicit

---

en haut de toutes tes feuilles de codes, pense aussi qu'en VBA les variables ne doivent être déclaré qu'une seule fois .

puis montre nous comment tu déclare tes variables.

Bonjour et merci de me répondre, voici comment je déclare mes variables ( 2exemples)
codes:

Code:

---

1 2	Public Nom As Variant Public Prenom As Variant

---

pour que tes variables soit réelement public lors ce qu'elles sont utilisés dans un usf, il faut qu'elles soit déclarée dans un module

Bonsoir,
c'est ce que j'ai fait dans un module standart : module1

Citation:

---

Envoyé par Corsaire72

Bonsoir,
c'est ce que j'ai fait dans un module standart : module1

---

si tu as rajouté des Option explicit partout et que tu est déclaré tes variables dans un module standard.Sans voir ton code je ne vois pas comment t'aider.

bonsoir,
voila, j'ai fait un exemple aussi complet que possible, mes variables ne sont pas visible dans tout le projet! pourquoi?
je joint mon exemple, à qui veut bien se creuser la tête, peut-être ai-ce simple? Merci d'avance

j'ai pas vraiment trouvé pourquoi tes variables ne réagissent pas bien, il y a beaucoup d'erreur dans ton code, peut etre parce que tu a voulu faire un exemple rapide, mais tu te simplifierai vraiment la vie, si tu concentrais tes sub dans le code de la boite de dialogue.
essaie juste de placer celle là

Code:

---

1 2	Sub DonneesClientFeuilleExemple()

---

sous l'initialize, et tu verra que ça marche.
petit conseil en plus, oublie les select. 99% ne servent a rien et ralentissent le code
ce genre d'instruction n'a aucune utilité

Code:

---

1 2 3

Range(ActiveCell).Select ligne = ActiveCell.Row

---

l'activecell étant par definition déja selectionnée
un autre exemple

Code:

---

1 2 3 4 5

Sub TestDonneesclient(NrClient) Range("b4:b5,c7,d3,d8,e11,b12,c14,b16,b18").Select EnBleu ...

---

Code:

---

1 2 3 4 5 6 7

Sub EnBleu() With Selection.Interior .ColorIndex = 20 ' .Pattern = xlSolid .PatternColorIndex = xlAutomatic End With End Sub

---

est avantageusement remplacé par

Code:

---

1 2	Range("b4:b5,c7,d3,d8,e11,b12,c14,b16,b18").Interior.ColorIndex = 20

---

si tu applique ça, tu devrais déja y voir plus clair pour regler ton probleme de variable

Bonjour et merci pour les conseils,
Effectivement j'ai remarqué que si je mettais ma sub dans la feuille userform cela fonctionne.
En fait j'ai plusieurs userforms qui utilisent ce genre de sub et j'aurais aimé n'avoir qu'une sub commune et non une dans chaque feuille userform.
Mais là problème, mes variables ne suivent pas. Je ne comprends pas pourquoi?
Idem pour mes fonctions EnBleu ou EnJaune qui sont utilisées par plusieurs sub, comme ça c'est plus facile pour la mémoire...

Bonsoir, je pense avoir trouvé, mes variables portent le même nom que les combobox ou textebox de mon userform, j'ai changé les noms dans le userform et depuis ça marche.
Est ce que c'est bien la cause ou alors un pur hasard?
Joyeux Noël @+