Discussion :

[oscar.cesar]

bonjour le forum
Dans le meme vbaproject

j'ai declarer dans Module1 mon tableau

Code :

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

1
2
 
global tableau() as integer

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

Code :

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

1
2
 
erase tableau()

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

j'utilise le code suivant

Code :

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

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

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

avec une erreur

erreur execution "9" indice appartient pas à la selection

la je ne vois pas



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

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

[Pierre Fauconnier]

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?

[oscar.cesar]

bonjour le forum

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 :

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

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

c'est plutot

Code :

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

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

[Pierre Fauconnier]

Et entre

Code :

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

erase tableau

et

Code :

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

for ii = ...

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

Donne-nous le code de remplissage...

[oscar.cesar]

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

Code :

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

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

[Pierre Fauconnier]

Par hasard, tu n'as pas un

Code :

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

dim Tableau()

qui traine quelque part, et qui serait prioritaire sur

Code :

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

Global Tableau()