Discussion :

[florent149]

Bonjour!

J'aurais besoin dans mon projet Vba d'une variable (un entier) accessible a toutes les procedures et modifiable a tout moment.
Je l'ai declaré de cette facon dans la partie "General" d'un module standard:

Code :

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

Global i As Integer

Et je l'initialise a l'ouverture du workbook:

Code :

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

1
2
3
 Private Sub Workbook_open()
i=16
End sub

Ensuite dans des boutons d'userforms, j'ai des incrementations du type i = i + 1

Je lance ce userform, je clique sur le bouton, c'est bon la valeur de i a bien ete incrementee de 1. Jusque la je suis heureux. C'est ensuite que ca se corse. Je relance le userform, je reclique sur le bouton, et pouf! le i s'est mis a zero, comme ca tout seul, sans qu'on lui aie rien dit. En regardant la valeur de i a chaque etape, j'ai vu que c'est sur la ligne " Private Sub Userform_initialize() " que i se met a 0, alors qu'il n'y a aucune action de realisee!
Etant loin d'etre une superstar du Vba, je fais appel a votre experience et vos competences pour m'aider.
Merci d'avance et bon week end!

PS: n'ayant pas Internet le we je ne pourrais vous repondre avant Lundi...

--
Flo

[Edit] bbil : Penser à rajouter les balises de codes, utiliser le bouton

[SfJ5Rpw8]

rajout une ligne

Code :

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

Option explicit

en haut de tes modules... cela t'obligeras à déclarer les variables.. et évitera des erreurs à des endroits ou tu crois avoir déclaré une variable et celle ci est hors de portée...

[florent149]

Oui mais je veux que cette variable soit utilisable dans tout le projet donc il faut que la declare qu'une seule fois non? Parce que le Option explicit il sert a quoi exactement? Moi je croyais qu'il rendait une variable utilisable dans toute une procedure.

[SfJ5Rpw8]

Option explicit, "t'oblige" à déclarer toutes tes variables.. donc si tu en utilise une dans un endroit ou elle n'est pas accessible ... tu as un message d'erreur ... et VB.. ne te "génére" pas tout seul cette variable (sans aucun lien avec une autre variable de même nom)

[florent149]

Alors j'ai essayé de mettre "Option Explicit" dans les modules ou j'utilisais mon i mais cela ne change rien. Penses tu que je m'y prend correctement pour declarer cette variable globale?

[gootsu]

j'ai vu que c'est sur la ligne " Private Sub Userform_initialize() " que i se met a 0

Tu n'utilise pas la variable i dans la phase d'initialisation? t'es sûr?
Peux etre que tu fais appel a une fonction qui met i à 0?
Tu utilise peux etre le i dans une boucle for d'une fonction appelé dans " Private Sub Userform_initialize() "?

Vérifie tous ça!!