0 Replies Latest reply: Jun 19, 2013 11:56 AM by damien29 RSS

    Utilisation de valeur d'un tableau dans une fonction

      Bonjour,

       

       

      J'ai un problème lorsque je veut utiliser des valeurs que j'ai chargées dans un tableau.

       

      Mon QlickView se présente comme suit :  Dans le module, dans une fonction CHARGEMENT_TABLE, je charge une feuille Excel. Puis je crée un tableau que je remplis avec les valeurs de ma feuille.
      Enfin je crée une autre fonction TEST qui ressort les valeurs du tableau.

       

      Cependant, lorsque je veux charger ce tableau dans le load à l'aide de ma fonction, il est considéré comme vide.

       

      En vérifiant, j'ai remarqué que les valeurs du tableau ne sont pas chargé en dehors de la première fonction. Cependant, je ne peux utiliser CHARGEMENT_TABLE dans mon load car les nombreux set bouclent pour la création de chaque valeur et ceci fait planter mon QlickView.

      J'aimerais que TEST réussisse à me rendre une valeur du tableau.

       

       

      Voici mon code :

       

      Public Tablex(140,140)
      Public Function CHARGEMENT_TABLE()
      set objExcel = CreateObject("Excel.Application")
      set Mybook = objExcel.Worbooks.Add("Z:\Tables.xlsm")
      set INC =Mybook.Worksheets("Feuille")
      w =140
      h =140
      r =1
      c=1
      for RowIter = 1 to h-1
           for ColIter = 1 to w-1
                Tableau(RowIter,ColIter) = INC.Cells(r+3,c).Value
                c = c+1
           next
           r = r+1
           c = 1
      next
      END Function
      Function TEST ()
      TEST = Tableau(30,30)
      END Function

       

      Merci d'avance,

       

      Cordialement

       

      Damien