Page 1 sur 1

[RESOLU] Problème de contenu d'une table dans une procédure

Publié : dim. 17/oct./2010 16:42
par falsam
Si ce code fonctionne

Code : Tout sélectionner

Dim Matable.l(10)

For i=0 To 9
    Debug Matable(i)
Next
Le suivant ne fonctionne plus

Code : Tout sélectionner

Dim Matable.l(10)

Procedure TestMaTable()
  For i=0 To 9
    Debug Matable(i)
  Next
EndProcedure

TestMaTable()
J'ai le message Matable n'est pas une fonction, un tableau, une macro ou une liste

Re: Problème de contenu d'une table dans une procédure

Publié : dim. 17/oct./2010 16:45
par case

Code : Tout sélectionner

global dim matable.l(10)
:twisted:

Re: Problème de contenu d'une table dans une procédure

Publié : dim. 17/oct./2010 16:48
par falsam
Rhooooo mais Ouiiiii, toutes mes variables sont en globales dans mon code sauf ....... ma table !!!

Merci Case :)

Re: [RESOLU] Problème de contenu d'une table dans une procéd

Publié : dim. 17/oct./2010 17:11
par PAPIPP
Bonjour à tous
autres méthodes

Code : Tout sélectionner

Debug "****** autre méthode *****"
Procedure TestMaTabl( Array mattabl.l(1),lng.l)
  For i=0 To lng
    Debug Mattabl(i)
  Next
EndProcedure
Dim Matabl.l(10)
matabl(2)=6: matabl(4)=13

TestMaTabl( matabl(),9)
encore une autre méthode

Code : Tout sélectionner

Procedure TestMaTab()
   Global  Dim matab.l(10)
   matab(2)=6: matab(4)=13
   Debug "****** autre méthode dans sous prg *****"
  For i=0 To 9
    Debug Matab(i)
  Next
EndProcedure

Debug "****** autre méthode dans prg *****"
testmatab()
For j=0 To 9
  Debug matab(j)
Next
encore une autre méthode avec SHARED

Code : Tout sélectionner

Dim matab.l(10)
Procedure TestMaTab()
  Shared matab.l()
   matab(2)=6: matab(4)=13
 Debug "****** autre méthode dans sous prg *****"
  For i=0 To 9
    Debug Matab(i)
  Next
  ProcedureReturn matab()
EndProcedure

*matab.long=testmatab()
Debug "****** autre méthode dans prg *****"

For j=0 To 9
      Debug Matab(j)
Next
A+