tableau dynamique lecture des données d'un userform à un autre

bonjour le forum:ccool:
Dans le meme vbaproject

j'ai declarer dans Module1 mon tableau

Code:

---

1 2	global tableau() as integer

---

je rempli dans USF1 mon tableau() ayant au prealable vidé celui ci par

Code:

---

1 2	erase tableau()

---

maintenant je veux lire le contenu de ce meme tableau à partir de USF3

j'utilise le code suivant

Code:

---

1 2 3 4 5 6

For ii = LBound(tableau) To UBound(tableau)   If tableau(ii) > 0 Then MsgBox ("tableau=" & tableau(ii))   Next ii

---

hors le programme s'arrete sur la partie

Citation:

---

For ii = LBound(tablfiltreprochainsup) To UBound(tablfiltreprochainsup)

---

avec une erreur

Citation:

---

erreur execution "9" indice appartient pas à la selection

---

la je ne vois pas :cry::cry::cry::cry:



surtout que dans mon programme de test cela marche .
j'ai recopié à identique !!!!

il y a t'i quelque chose à valider dans le vbaproject !!!!!!

Bonjour

Dans un premier temps, vérifie ta variable
tablfiltreprochainsup via l'espion.

Est-ce bien ton tableau?
En pas à pas, il boucle ou il s'arrête dès le début?

bonjour le forum

Citation:

---

Est-ce bien ton tableau?
En pas à pas, il boucle ou il s'arrête dès le début?

---

C'est au debut , au premier passage .:(


et je corrige

Code:

---

For ii = LBound(tablfiltreprochainsup) To UBound(tablfiltreprochainsup)

---

c'est plutot

Code:

---

for ii=LBound(tableau) to ubound(tableau)

---

Et entre

Code:

---

erase tableau

---

et

Code:

---

for ii = ...

---

Tu as chargé ton tableau d'une manière ou d'une autre?

Donne-nous le code de remplissage...

bonjour
voici le code de remplissage qui se situe dans une procedure dans mon userform3.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

............................ If d > UserForm3.TextBox28.Value And UserForm3.CheckBox3.Value = True Then 'test que le textbox du% et checkb somme sup est actif valde UserForm3.TextBox11.Value = UserForm3.TextBox11.Value & aa & " " & vbCrLf 'affichag des somme retenues   'remplir le tableau ReDim Preserve tableau(kk) tableau(kk) = aa kk = kk + 1   End If     ......................

---

Dans cette meme procedure , j'ai rajoute un code pour verifie que le tableau est bien rempli .
RAs jusque la :(

Par hasard, tu n'as pas un

Code:

---

dim Tableau()

---

qui traine quelque part, et qui serait prioritaire sur

Code:

---

Global Tableau()

---

bonjour le forum , pierre

:oops::oops::oops::oops::oops:

j'ai trouve , j'avais un Erase tableau qui trainait la ou il ne devait pas


merci