Discussion :

[Maxence45]

Bonsoir , quand on a le message d'erreur de compilation comme quoi un appel de fonction dans la partie gauche doit envoyer variant ou object , celà peut être dû à quoi ? J'ai cherché dans l'aide mais je n'ai pas trouvé de réponse .

Si par exemple dans une fonction j'ai en définition :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

function toto(byval x as integer)as integer

et que dans la fonction à la fin j'écris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

toto(y) = cou

, y et cou étant 2 variables de la fonction utilisées pour mes calculs , ça peut venir de là ?

merci

[Singular]

VB 101

Le problème est que tu ne peux juste pas assigner une valeur au renvoie d'une fonction à moins que celle-ci ne te renvoit un objet (et encore). Le retour d'une fonction crée une variable temporaire qui disparait dès le passage à la ligne de code suivante. Elle ne peut donc rien stocker.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
cou = toto(y) ' possible
 
toto(y) = cou ' impossible

Je n'ai jamais vu de langage qui permette celà. Même pas en C, qui permet pourtant beaucoup de trucs bizarres.

Des fois, on connait la réponse mais on se couche trop tard...

[Pierre Fauconnier]

Salut

A la fin de ta fonction, tu dois écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
function toto(y)
    ...
    ...
    toto = cou
end function

tu ne reprends pas la liste des arguments lorsque tu attribues la valeur finale de tes calculs à ta fonction.

Ok?

[Singular]

Vrai, vrai.

Je vais me coucher...

[Maxence45]

ben zut alors j'avais bon , pourtant ma fonction ne compile pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Function alouette(ByVal x As Long) As Long
Dim cou As Long, n As Long
    cou = Int((n * Rnd) + 1)
    alouette = cou
End Function

[patbou]

bonjour,
ds ta fonction n est vide il faut lui attribuer la valeur de x

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Function alouette(ByVal x As Long) As Long
Dim cou As Long, n As Long
n =x
    cou = Int((n * Rnd) + 1)
    alouette = cou
End Function

[Maxence45]

ok merci mais quel rapport avec le probleme de renvoit de variant ou d'oject ?