Discussion :

[ouskel'n'or]

Tu as vérifié une remise à zéro de i... mais as-tu vérifié que tu n'aies pas une déclaration de i dans un module quelconque ? (Dim i)

(Le pas à pas est effectivement une bonne solution Tu as la possibilité dans la fenêtre de débuggage de vérifier la valeur de tes variables )

[florent149]

Alors pour ce qui est d'un eventuel "Dim i" quelque part, je ne pense pas puisque j'ai lance une recherche dans tout le projet de la lettre i, exactement (pour ne pas me taper tous les mots contenant la lettre i!) donc la je pense que c'est bon. Car mon projet etant vraiment tres gros il est vrai que j'aurais pu oublier un ptit "Dim i" quelque part mais vraiment je ne pense pas...

Quand a la verification pas a pas j'ai utilise F8, qui execute le code pas a pas et qui surligne en jaune pour dire ou il en est, tout en ayant un oeil sur la valeur de i a tout moment (Add Watch dans mon excel 2003 en anglais). C'est par cette méthode que j'ai pu dire que c'est sur la ligne

Code :

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

Private Sub Userform_Initialize()

que mon i capricieux revient a 0.
pouvez vous me confirmer que cette ligne n'execute aucun code? De toute facon, le code dans ce userform_initialize n'est pas bien complique, je vous l'ai mis sur la premiere page de cette discussion. Et il n'y a clairement pas de i dans cette procedure...
Je continue de chercher...

[ouskel'n'or]

Comment ouvres-tu ton userform ? Je crois soupçonner que tu l'ouvres par un "Exécuter" sur l'userform lui-même...
Tu dois l'ouvrir depuis un module, après la déclaration de ta variable en public

Code :

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

1
2
3
4
Sub OuvrirLuserformMachin()
     Load userformMachin   'Je crois que cette ligne n'est pas indispensable en VBA 2003
userformMachin.show    'mais celle-ci l'est !
end sub

En VBA 97 je ferais un truc comme ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public i as integer
 
Private Sub Workbook_Open()
   ActiveWorkbook.RunAutoMacros Which:=xlAutoOpen
End Sub
 
Sub Auto_open()
    i = 16
    Load userformMachin 
    userformMachin.show    
end sub

Tu dis

[florent149]

Non mais mon Userorm il s'ouvre quand on clique sur un bouton qui est situé sur une feuille Excel. Donc le Userform.Show je l'ai mis dans le "_click()" de ce bouton.

[ouskel'n'or]

Alors ton workbook_open ne sert à rien !
Tu dois déclarer la variable globale (Public) dans la feuille de code de ta feuille de calcul contenant le code ouverture de ton userform.

NB - Je n'ai lu nulle part la précision que tu donnes dans ton dernier message. J'ai raté l'info ou tu ne l'as pas mise ? Parce que si tu ne l'as pas mise
sinon...

[florent149]

Mais je veux que ma variable globale elle soit disponible dans tout le projet donc toutes les feuilles! en realite il y a plusieurs Userforms qui l'utiliseront! Je n'ai pas tres bien compris ton dernier message j'avoue Ouskel'n'or.

[florent149]

Je reprécise un peu la situation:

Je veux que mon i a l'ouverture du classeur s'initialise a la valeur 16. Ensuite il ne sera plus jamais a 16... Ensuite il peut etre modifié par diverses procédures et utilisé principalement dans un module. Voila est ce clair ou ai je commis une enorme bourde dont je ne me serais pas rendu compte et qui justifierait les smileys assassins de Ouskel'n'or? C'est tout a fait possible puisque j'ai tres peu d'experience en Vba!

[florent149]

Bon autre petite precision: le i se met a 0 quand je clique sur le bouton sur ma feuille qui est cense faire apparaitre le userform... Je ne sais pas si vous etes toujours sur l'affaire mais si oui vous etes tres courageux parce que moi je commence ea peter un plomb!

[ouskel'n'or]

Effectivement, ça ne fonctionne pas quand le bouton est dans la feuille de calcul.
Tu dois lancer une macro se trouvant dans un module, la macro étant précédée de la déclaration de I
Dans le code de ta feuille de calcul, tu mets

Code :

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

1
2
3
Private Sub CommandButton1_Click()
     InitI
End Sub

Tu insères un module dans ton projet -> Insérer -> Module

Dans ton module, tu mets

Code :

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

1
2
3
4
5
6
7
Public i As Integer
 
Sub InitI()
i = 16
Load UserFormQueTuVeux
UserFormQueTuVeux.Show
End Sub

et dans l'userform, tu mets un bouton pour afficher I
et dans le code du bouton tu mets

Code :

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

1
2
3
Private Sub CommandButtonQuéDansLuserform_Click()
MsgBox i
End Sub

Et puis tu mets Résolu parce que ça, ça fonctionne

[florent149]

Merci de ta perseverance a toute epreuve, cependant je suis desole car il y a un MAIS: Si je met ca dans tous mes userforms (oui car j'en ai pleins...), a chaque fois que je vais en ouvrir un le i va revenir a 16. Or ce n'est pas ce que je veux: mon i doit etre a 16 a l'ouverture du programme, et ensuite chaque userform doit pouvoir le modifier... Desole le "resolu" n'est pas pour cette fois...

[ouskel'n'or]

Je ne vois pas le pb. Au lieu de l'initialiser dans InitI, tu lui affectes bien la valeur que tu veux où tu veux. La variable est vraiment Globale.
J'ai l'impression que tu cherches un grain de sable sur une plage...

[ouskel'n'or]

Ne peux-tu pas faire

Code :

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

1
2
3
Private Sub UserForm_Initialize()
i = 16
End Sub

?
Tu dis parce que sinon tu as la solution d'inscrire la valeur quelque part et quand tu le souhaites, tu vas la chercher... Juste une idée... Mais là, je ne vois pas ce que tu veux de plus

[SfJ5Rpw8]

Stocke plutôt ta variables i dans une cellule de ton classeur..., tu sera moins "embété.." par les arrets/redémarrage macros...

[AlainTech]

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

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.

[florent149]

OOOOOOUUUUUUUFFFFFFFF (de soulagement)

Ca y est! Enfin!

Ben voila Ouskel'n'or , et bbill, je n'aurais qu'un seul mot:

En effet en utilisant une cellule pour stocker ma valeur, c'est bon ca marche. Pour l'instant j'ai remplace tous mes "i" par le "Value" d'une certaine cellule paumée dans les lointaines contrées d'une feuille... Et oui desole Ouskel'n'or mais ce que tu me proposais juste avant ne marchait toujours pas, ca retombait encore a 0! Je ne cherchais pas un grain de sable sur une plage, je cherchais juste a ce que ca marche!
Par contre je me demandais si niveau programmation c'est rapide de mettre 60 fois dans le projet

Code :

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

ActiveWorkbook.Sheets("Main").Range("Z1000").Value

?
Bon je vais me demerder, voir si je peux pas laisser mes i partout et juste stocker la valeur dans une cellule...
En tout cas merci infiniment a ceux qui se sont accroches, ca fait bien plaisir d'avoir de l'aide.
Si vous avez des questions a me poser, n'hesitez pas...

[gootsu]

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

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!
Enfait je voulais au départ expliquer que je met des point d'arret stratégique et relance avec "F5" autrement dit avec "run" pour évité de faire effectivement du pas à pas avec "F8"!
Encore toute mes excuse pour l'erreur!