déclaration de variable globale

Bonjour, j'aimerais utiliser un tableau comme variable globale.
Mais mon tableu est un tableau dynamique.

Voici mon bout de code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Dim P1() As Long   Private Sub cmdLancerBanc_Click() .... N=100   'redimension de mon tableau redim P1 (N)   'initialisation de mon tableau: for i 0 to N P1(0)=20 Next i   end sub     Private Sub Timer1_Timer()     P1(0) = P1(0) - 1   If P1(0) = 0 Then MsgBox ("temps 1 de la pile 1 fini!!") End If     End Sub

---

J'ai une erreur avec P1() dans la procédure Timer1_Timer()!!
Je comprends l'erreur mais je ne vois pas comment la corriger
Comment peut-on éviter cela?
Merci

Bonjour,

je doute que ce soit un copier/coller exact de ton code quand je vois

Code:

---

for i 0 to N

---

Il manque le signe "=" plus le fait que je ne vois pas a quoi sert ta boucle puisque tu affectes 100 fois la valeur 20 a P1(0)

A part ca, quelle erreur as tu exactement ? En essayant de deviner tes souhaits, mais ma boule de cristal est de fiabilite moyenne, il te faut arreter ton timer quand tu atteints la valeur 0 pour P1(0) avec un

Code:

---

Timer1.Enabled = False

---

oui ce n'est pas tout à fait un copier coller.
en gros je redimensionne mon tableau et je l'initialise dans cmdLancerBanc_Click() car c'est à cet endroit que je vais connaitre la taille de mon tableau.
Dans Timer1_Timer(), je veux utiliser ce même tableau mais comme je l'ai déclarer en variable globale en haut de ma form je ne peux pas l'utilisier car le tableau est vide!!

Entre autres choses

Citation:

---

Envoyé par sandball22

Code:

---

1 2 3

for i 0 to N P1(0)=20 Next i

---

---

Code:

---

1 2 3

for i = 0 to N P1(i)=20 '<------------ Next i

---