VBA: erreur de débutant en 30s svp!! Fermé

Question

Bonjour, 

Une fonction toute bête comme la suivante me donne des #valeur! pourquoi? je sais que l'erruer vient de la ligne vectcopy = vecteurarg   mais je voudrais comprendre le pourquoi du comment, ce qui en plait pas à VBA.


option explicit

Function copions(vecteurarg As Variant)     ' prend un vecteur et fait une copie

Dim vectcopy() As Variant
vectcopy = vecteurarg

copions = vecteurarg

End Function

Merci d'avance!!

Configuration: Windows Vista / Safari 532.5

stevengren · Answer

Si je comprend bien tu a une fonction nommé copions() et 2 variable  une s'appelant vectcopy  et l'autre s'appelant vecteurarg

alors lorsque tu appelle ta fonction 
copion(la tu lui passe la variable dans ton cas ton vecteur)

ensuite dans ta fonction tu fais une copie de ton vecteur reçu 
vectcopy = vecteurarg

et c'est la ton erreur pourquoi fais tu copions = vecteurarg

copions est un fonction et non une variable tu ne peux pas égaler ta fonction a une variable

A partir de la explique moi un peut ce que tu veux faire car tu étais bien partit ?
Veux tu retourner ta valeur?

lermite222 · Answer

Bonjour,
Tu dis...
Dim vectcopy() As Variant 
vectcopy = vecteurarg 
Tu dimentionne vectcopy comme un tableau mais tu lui attribue une valeur comme si c'est une variable ??
A+

wesley78 · Answer

Bonjour,

Ok merci pour la remarque... elle m'a fait réfléchir 30s et je vois ce que tu veux dire: donc pour "égaler" 2 vecteurs, il faut juste égaler toutes les composantes d'où une boucle. Mais alors là on en revient au problème: je dois pour faire une boucle connnaitre la taille de mon vecteur mais avec n = ubound(vecteurarg,1) j'obtiens des #valeur! je pourrais à la limite faire une boucle do while mais pourquoi le n = ubound(vecteurarg,1) ne marche t il pas?

merci d'avance!

VBA: erreur de débutant en 30s svp!!

3 réponses

Discussions similaires