Fonction vba

MMM -  
yg_be Messages postés 23541 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
A voir également:

9 réponses

Réponse 1 / 9
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

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

Les données sont la

Merci
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
Réponse 4 / 9
Malick_0408 Messages postés 6 Date d'inscription   Statut Membre Dernière intervention  
 
Merci bcp! Ça marche
0

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

Posez votre question
Réponse 5 / 9
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
Réponse 6 / 9
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
Réponse 7 / 9
Malick_0408 Messages postés 6 Date d'inscription   Statut Membre Dernière intervention  
 
0
Réponse 8 / 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
Réponse 9 / 9
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
bonjour, tiens compte de ceci, tu n'apprendras pas si nous faisons les exercices à ta place:
https://www.commentcamarche.net/infos/25899-demander-de-l-aide-pour-vos-exercices-sur-ccm/
0

Discussions similaires

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

0 réponse
"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
Remplir une cellule (texte) en fonction d'une autre (texte).
SOMUM -
SOMUM -

4 réponses
La fonction FILTRE n'est plus reconnue
Auri328 -
Auri328 -

3 réponses