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

[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

[case]

Code : Tout sélectionner

global dim matable.l(10)

[falsam]

Rhooooo mais Ouiiiii, toutes mes variables sont en globales dans mon code sauf ....... ma table !!!

Merci Case

[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+