Fonction vba

MMM -  
yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   -
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.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    Ben oui, peut pas marcher.
    Par contre, Plage_Donnees est a une seule colonne ou plusieurs?
    0
    1. MMM
       
      Plusieurs
      0
  2. MMM
     
    Le vecteur contient plusieurs colonnes
    0
  3. Malick_0408 Messages postés 6 Date d'inscription   Statut Membre Dernière intervention  
     
    Les données sont la

    Merci
    0
    1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      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
      0
  4. Malick_0408 Messages postés 6 Date d'inscription   Statut Membre Dernière intervention  
     
    Merci bcp! Ça marche
    0

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. Malick_0408 Messages postés 6 Date d'inscription   Statut Membre Dernière intervention  
     
    Bonjour j'avais une autre question aussi si vous me le permettez bien.
    0
  7. Malick_0408 Messages postés 6 Date d'inscription   Statut Membre Dernière intervention  
     
    Bonjour j'avais une autre question aussi si vous me le permettez bien.
    0
  8. Malick_0408 Messages postés 6 Date d'inscription   Statut Membre Dernière intervention  
     
    0
  9. Malick_0408 Messages postés 6 Date d'inscription   Statut Membre Dernière intervention  
     
    J'aimerai bien avoir le code si cela ne vous dérange pas.
    0

Discussions similaires

Méthode find dans VBA - Recherche de données sous Excel
baissaoui -
baissaoui -

0 réponse
Message "cette fonction n'est pas disponible actuellement"
daladala -
Lucaslebg -

15 réponses
Message récurrent sur TV LG LED HD
bullshitt -
ghsi med -

5 réponses
erreur d'execution 9, l'indice n'appartient pas à la sélection
isidoh -
isidoh -

18 réponses
VBA : dysfonctionnement fonction Find : Excel ne trouve pas des valeurs
GG69 -
eriiic -

4 réponses