Expected Array
Le
TEV

Bonjour,
Je ne comprends pas pourquoi il me fait se message dès lors que je cherche à
récupérer les données figurant dans la fonction array.
Voici l'exemple :
dim nMc, Compte as string
dim I as integer
nMc = Array("Un", "Deux", "trois")
for I = 1 to 3
compte = nMc(I) ' Ici apparaît le message Expected Array
next I
Pourquoi ? J'ai dans le programme d'autres tableau de ce genre et cela
marche parfaitement bien. La variable utilisée est unique et n'est reprise
nulle part ailleurs.
Christian.
Je ne comprends pas pourquoi il me fait se message dès lors que je cherche à
récupérer les données figurant dans la fonction array.
Voici l'exemple :
dim nMc, Compte as string
dim I as integer
nMc = Array("Un", "Deux", "trois")
for I = 1 to 3
compte = nMc(I) ' Ici apparaît le message Expected Array
next I
Pourquoi ? J'ai dans le programme d'autres tableau de ce genre et cela
marche parfaitement bien. La variable utilisée est unique et n'est reprise
nulle part ailleurs.
Christian.
Dans les différents essais j'avais déjà tenté i = 0, je viens d'essayer avec
lbound...
J'ai toujours le même message dans tous les cas et au même endroit c'est à
dire au moment où je cherche à récupérer les infos du Array.
Christian.
"Alain Cotterot" Aus9b.59436$
> 3 l'index est hors limite. 2 possibilités pour solutionner le problème
cherche
reprise
à
'Jour
Tel que déclaré nMc est un variant indéfini et non un tableau de string
Fais donc
dim nMc(3) as string
nMc(1) ="Un"
nMc ="Deux"
nMc = "trois"
En réégle générale , n'utilises pas de variant sauf si tu sais
exactement ce que tu fais. Le transtypage de VB a une efficacité "variable"
selon les cas !
@+
en dehors du probleme de BASE,
je pense que tu appelles Compte(x) au lieu de nMc(x).
(ton tableau, c'est nMc(), Compte est un String dont le contenu change a
chaque boucle)
Fred
"TEV" news:3f663b13$0$4121$
à
j'ai pas bien lu ton post...
Comme ton code est présenté, effectivement, (toujours en dehors du probleme
de base), y'a pas de problemes...
Désolé.
Fred
"fredg" news:eW#
cherche
reprise
"TEV" 3f663b13$0$4121$
à