Discussion :

[juju05]

Bonjour,

Lorsque j'appelle une fonction depuis l'activation d'un bouton d'u formulaire, j'ai le message :
"Erreur de compilation, type d'argument ByRef incompatible"

J'ai consulté le tutoriel sur les fonctions sur ce site mais je ne vois pas mon erreur.

Voici ce que j'ai codé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Sub b_export_Click()
 
 
   Dim retour, rais_soc, ident_edi As String
 
   Dim id_fst As Long
 
 
       id_fst = l_fst.List(j, 1)
 
       rais_soc = l_fst.List(j, 0)
 
       ident_edi = l_fst.List(j, 2)
 
       retour = verif_fst(id_fst, rais_soc, ident_edi)
 
Function verif_fst(id_fst As Long, rais_soc As String, ident_edi As String)

L'appel à la fonction plante sur rais_soc.

Julien.

[Philippe Tulliez]

Bonjour,
En ligne 17, c'est la fonction que tu insères dans une procédure SUB et pas un appel à la fonction.
Une procédure ne peut pas être imbriquée dans une autre et pour invoquer une fonction l'instruction peut ressembler à ceci.

Code :

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

monResultat = maFonction(Argument_1, Argument_2)

ou

Code :

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

MsgBox "LeRésultat est " & maFonction(Argument_1, Argument_2)

[juju05]

Je n'ai pas placé l'intégralité du code.

Ma fonction est appelée depuis la procédure. Il y a bien le end sub de la procédure avant la fonction.

[Philippe Tulliez]

Bonjour,
Oui ainsi c'est difficile d'aider.
Il faudrait savoir ce que la fonction fait et surtout l'argument rais_soc. N'y a-t-il pas conflit de type ?

[juju05]

Je ne vois pas de conflit de type dans la mesure où les 2 sont définis en string.

[Philippe Tulliez]

Bonjour,
En ligne 4 du code publié

Code :

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

 Dim retour, rais_soc, ident_edi As String

Ta variable est déclarée de type Variant
La bonne syntaxe pour la déclaration est

Code :

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

 Dim retour as String, rais_soc as String, ident_edi As String

Bonjour,
Je te confirme que le problème vient certainement de là
Le code ci-dessous renvoie bien le message d'erreur signalé dans ta question

Code :

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

1
2
3
4
5
6
7
8
9
Sub Test()
  Dim T1, T2, T3 As String
  T2 = "Salut"
  MsgBox Hello(T2)
End Sub
µ
Function Hello(T2 As String)
  Hello = "Hello " & T2
End Function

Si tu effectues la déclaration comme je te l'ai indiqué (Dim T1 As String, T2 As String, T3 As String), il n'y a plus d'erreur

[juju05]

Parfait, merci bien !