'#---code---------------------------------
Type unType
maVal As String '# comme ca, ca n'est plus un mot clé
End Type
Private Sub FaireQqChose(uneVar as unType)
'fait qq chose
End Sub
'# appelle de la fonction
Dim mQqun as unType
FaireQqChose(mQqun) '# l'erreur se preduit là !!!!
'# génère une erreur compile error : variable required - can't assign to this expression
'#---fin code-----------------------------------
J'ai vu sur un autre forum une solution à ce problème, mais ça n'est pas beau à voir :
'# on redéclare la procédure comme une Function qui renvoie
'# un booléen
Private Function FaireQqChose(uneVar as unType) As Boolean
'fait qq chose
End Sub
'# l'appelle se fait comme suit :
Dim vraiOuFaux As Boolean
Dim mQqun As unType
vraiOuFaux = FaireQqchose(mQqun) '# CA MARCHE... mais c pas bo
si vous avez mieux... je prend
+ les gras
Vous n’avez pas trouvé la réponse que vous recherchez ?