Fonction vba

Bonjour,

je viens de commencer sur Vba et j'avais une question.
Jai écrit un code. ( Ecrivez une fonction Range To Vector, prenant pour argument une variable plage donnees de type Range, qui permet de transformer les donn´ees transmises en un vecteur ligne (variable tableau uni-dimensionnelle), la premi`ere cellule du vecteur contenant la valeur de la premi`ere cellule de la plage, la deuxi`eme cellule du tableau la valeur de la deuxi`eme cellule de la plage, )
Function Range_To_Vector (plage_donnees)
[/download/telecharger-34086571-redim ReDim] x(1, plage_donnees.Row.Count) As Double
For i= 1 To plage_donnees.Row(i)
    x(1, i)= plage_donnees.Row(i)
Next i
Range_To_Vector = x
End function

Mais ca marche pas, je sais pas pk. Est ce que vous pouvez m'aider

Configuration: Windows / Edge 18.18362

9 réponses

  1. Bonjour,

    Ben oui, peut pas marcher.
    Par contre, Plage_Donnees est a une seule colonne ou plusieurs?

  2. Les données sont la

    Merci
    1. Re,
      une facon de faire:
      Function Range_To_Vector(plage_donnees)
          nbl = plage_donnees.Rows.Count
          nbc = plage_donnees.Columns.Count
          ReDim x(nbl * nbc) As Double
          n = 0
          For r = 1 To nbl        'ligne
              For c = 1 To nbc    'colonne
                  x(n) = plage_donnees(c, r)
                  n = n + 1
              Next c
          Next r
          Range_To_Vector = x
      End Function
  3. Bonjour j'avais une autre question aussi si vous me le permettez bien.
    1. Bonjour j'avais une autre question aussi si vous me le permettez bien.