Variable super globale au projet [Résolu]

[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 :

Global i As Integer

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

Code :

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

[bbil]

rajout une ligne

Code :

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.

[bbil]

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

[florent149]

Sorry mais je n'ai nulle part dans mon projet l'instruction "i=0". Voici ce qu'il y a dans mon Userform_Initialize() :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub UserForm_Initialize()
 
'initialize the values of the 3 togglebuttons
tb0.Value = True
tb45.Value = False
tb90.Value = False
 
Dim L As Integer
 
        'memorize the array of dimensions on the data sheet (UB,UC,UBP...) with an additional column, which
        'will be used to store the supply levels to a combobox
        With Sheets("ASB")
            L = .Range("A65000").End(xlUp).Row
            TabTemp = .Range(.Cells(6, 1), .Cells(L, 3)).Value
 
        End With
        UPDCombo cmbDepth, 0
 
 
End Sub

Il s'agit d'une procedure pour remplir une combobox en cascade, enfin bref rien a voir avec mon i...
Donc je ne sais vraiment pas quoi penser.

[ouskel'n'or]

Pour déclarer une variable globale, ce n'est pas "Globale" mais "Public"
Ne change rien à ton premier code et mets donc Public à la place de globale

[florent149]

Merci c'est ce que j'avais fait au debut, et voyant que ca ne marchait pas j'ai essayé "Global"...La je viens de reessayer avec Public, et c'est pareil, il y a toujours ce satané i qui retombe a 0 comme une bouse!

[gootsu]

dans tes "togglebuttons" tu n'as pas de fonction :

Code :

Private Sub ToggleButtonX_Change()

là ou il y aurait évantuellement ton "i" remis à 0?

[ouskel'n'or]

Oui, alors j'ignore dans quelle version de VBA tu es mais pour ce qui me concerne, je mets toujours (VBA97)

Code :

1
2
3
4
5
6
7
8
9
10
Public i as integer
 
Private Sub Workbook_Open()
   ActiveWorkbook.RunAutoMacros Which:=xlAutoOpen
End Sub
 
Sub Auto_open()
i = 16
'c'est là que j'affecte les valeurs aux variables et je n'ai pas de pb (!?)
end sub

Tu dis

[florent149]

Envoyé par gootsu

dans tes "togglebuttons" tu n'as pas de fonction :

Code :

Private Sub ToggleButtonX_Change()

là ou il y aurait évantuellement ton "i" remis à 0?

J'ai lance une recherche dans tout mon projet de la variable i et elle n'est que la ou je pensais qu'elle etait!

[ouskel'n'or]

Tu as essayé mon code ?

[florent149]

Merci Ouskel'n'or pour ton code j'ai essaye mais le i que j'utilise dans le bouton de mon userform est "non declare". Il semblerait que le "Public i As Integer" a cet endroit la ne soit pas valable pour tout le projet... Et je voulais te demander ca sert a quoi la ligne:

Code :

ActiveWorkbook.RunAutoMacros Which:=xlAutoOpen

Mais le code que tu m'a propose il faut le mettre dans ThisWorkbook ou ailleurs?

Merci de votre aide

[ouskel'n'or]

Je le mets dans un module du classeur (Insertion -> Module) non dans thisworkbook

Quant à ActiveWorkbook.RunAutoMacros Which:=xlAutoOpen, ça sert à la compatibilité des versions mais ne nuit pas si ce n'est pas nécessaire

A+

[florent149]

Mais c'est juste le "Public i As Integer" que tu mets dans un module ou tout ton code? Parce que j'imagine que le "Private Sub Workbook_open()" il va dans "ThisWorkbook" non?

[ouskel'n'or]

Non ! Je le mets dans le même module, après la déclaration.
L'ouverture du classeur entraîne l'exécution de la macro Workbook_Open
Si tu as un userform à ouvrir, tu mets le code dans "Sub Auto_open()"
Tu dis

[florent149]

Rhaaaaaaa..... Toujours une remise a 0 incomprehensible apres le premier lancement du userform en question...

[gootsu]

fait des point d'arret dans chaque ligne et chaque fonction utilisé dans le fonction "Private Sub UserForm_Initialize()" et tu mets des espions un peu partout surtout sur "i" et tu tape 'F5' ligne après ligne!

si il n'y a que ça à faire! fais ça!
c'est long mais au moin tu poura voir à quel moment et où il passe à 0!

bon courrage! lol!

en [Vba-E] c'est "F5"!!

au passsage je m'excuse !
je me suis trompé "F8" pas à pas!
mais je voulais dire de mettre des point d'arret et de relancé entre chaque point d'arret avec "F5"!
Je suis désolé

AlainTech a écrit:

F5 pour relancer (tout) le code, F8 pour du pas à pas.
Autrement dit, un seul point d'arrêt et F8 pour avancer dans le code.

Oui je me suis corrigé la page précedente!
si vous voulez je met des points d'arret au point statégique et je relance avec "F5" autrement dit avec "run" et effectivement "F8" c'est bien du pas à pas!
Je m'en excuse encore une fois!

[illight]

C'est pas F8 plutot que F5 ?