Discussion :

[Corsaire72]

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?

[JackOuYA]

Bonjour,

Commence par rajouter la ligne :

Code :

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

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.

[Corsaire72]

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

Code :

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

1
2
        Public Nom As Variant
        Public Prenom As Variant

[alsimbad]

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

[Corsaire72]

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

[JackOuYA]

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.

[Corsaire72]

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

[alsimbad]

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 :

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

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 :

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

1
2
3
 
Range(ActiveCell).Select
ligne = ActiveCell.Row

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

Code :

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

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

Code :

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

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 :

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

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

[Corsaire72]

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...

[Corsaire72]

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 @+