Type dans un function.

Question

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.

crenaud76 · Answer

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.

cs_kharrat · Answer

salut,

j'ai exactement le m&#234;me probl&#232;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&#233;n&#232;re une erreur Code compile : variable required can't assigne to this expression

j'ai essay&#233; de la passer par r&#233;f&#233;rence en d&#233;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&#233;e ?

Type dans un function.

2 réponses

Discussions similaires