Bonjour,

Je voudrais faire passer un type comme paramètre à une fonction.
Ma definition de type s'appelle Parameters.
Ma fonction est definie comme ci-dessous:

-----------------------------------------
Public Function SaveParameters(param As Parameters)
ici se trouve mon code qui utilise param...
end function
------------------------------------------

Lorsque je veux lui faire passer un type (voir ligne ci-dessous) je recoit l'erreur suivante : "Variable required - can't assign to this expression"

---------------------
Dim OAN as parameters

SaveParameters (OAN)

---------------------

Ou est le problème ?
Merci d'avance.

Essaye en précisant (ByRef param As Parameters) dans ta déclaration de function (elle devrait retourner un Type donné d'ailleur ta function !!!)
Chez moi ca marche sans mais on sait jamais ...
Christophe R.


-------------------------------
Réponse au message :
-------------------------------

> Bonjour,
>
> Je voudrais faire passer un type comme paramètre à une fonction.
> Ma definition de type s'appelle Parameters.
> Ma fonction est definie comme ci-dessous:
>
> -----------------------------------------
> Public Function SaveParameters(param As Parameters)
> ici se trouve mon code qui utilise param...
> end function
> ------------------------------------------
>
> Lorsque je veux lui faire passer un type (voir ligne ci-dessous) je recoit l'erreur suivante : "Variable required - can't assign to this expression"
>
> ---------------------
> Dim OAN as parameters
>
> SaveParameters (OAN)
>
> ---------------------
>
> Ou est le problème ?
> Merci d'avance.

salut,

j'ai exactement le même problème !

voici mon bout de code :

Type monType
   valeur As String
End Type

Private Sub Imprime (var As monType)
   Open "c:\fichier.txt" For Output As #1
   Print #1, var.valeur
   Close #1
End Sub

'# appelle de ma fonction :

Dim maVar as monType
Imprime(maVar)                     '# génère une erreur Code compile : variable required can't assigne to this expression

j'ai essayé de la passer par référence en déclarant

Private Sub Imprime (ByRef var As monType)
   Open "c:\fichier.txt" For Output As #1
   Print #1, var.valeur
   Close #1
End Sub

Mais ca ne marche toujours pas...

une idée ?