Type d'argument ByRef incompatible Résolu/Fermé

Question

Bonjour, 

Une nouvelle question à l'intention de la communauté...
Voici le problème : 
Celui-ci se divise en deux parties:

[1] Une première partie constituée d'un module dans laquelle j'ai créé une fonction spécifique : 
Function Cam_2_Contacts(A0 As Double, A1 As Double, A2 As Double, levee_max As Double, l As String, t2 As Double, t3 As Double, t4 As Double, t5 As Double, t6 As Double, t7 As Double, t8 As Double)
Celle-ci devant retourner un ensemble de valeur sur une page excel.

[2] Une deuxième partie constituée d'un Userform dans lequel je rentre les valeurs souhaitées pour faire tourner ma fonction (A0,A1,....). Pour se faire, j'ai décidé qu'une fois les valeurs rentrées dans mon formulaire, il me suffit d'appuyer sur un bouton pour exécuter la fonction plus haut et me retourner les valeurs calculées par cette même fonction dans une page Excel. J'ai donc codé de la manière suivante:

Private Sub CommandButton1_Click()
 B0 = CDbl(frmcam1.A0.Value)
 B1 = CDbl(frmcam1.A1.Value)
 B2 = CDbl(frmcam1.A2.Value)
 l = CDbl(frmcam1.levee_max.Value)
 p2 = CDbl(frmcam1.t2.Value)
 p3 = CDbl(frmcam1.t3.Value)
 p4 = CDbl(frmcam1.t4.Value)
 p5 = CDbl(frmcam1.t5.Value)
 p6 = CDbl(frmcam1.t6.Value)
 p7 = CDbl(frmcam1.t7.Value)
 p8 = CDbl(frmcam1.t8.Value)
 test = Cam_2_Contacts(B0, B1, B2, l, frmcam1.ldmvt.Value, p2, p3, p4, p5, p6, p7, p8)
End Sub

frmcam1 étant le nom de mon userform.

Le problème est donc le suivant...
Lorsque je clique sur le CommandButton1 de mon userform en ayant au préalable rentré l'intégralité de mes données le programme me renvoie un message d'erreur:
Type d'argument ByRef incompatible
J'ai testé l'ensemble des données (MsgBox VarType()) elles sont toutes conformes au type requis pour l'exécution de ma fonction plus haut.

Je précise que je suis novice en VBA...

En vous remerciant de l'aide que vous pouvez m'apporter...

Robix
Configuration: Windows / Chrome 80.0.3987.163

yg_be · Answer

bonjour, pour commencer, peux-tu utiliser les balises de code quand tu postes du code, et indiquer sur quelle ligne se produit le message d'erreur?
ensuite, si ce n'est pas encore fait, peux-tu ajouter option explicit en début de module?
ensuite, nous montrer la réponse (MsgBox VarType()) pour chacune de ces variables?

tu as choisi, pour un des paramètres, de ne pas passer par une variable.  as-tu essayé d'utiliser une variable pour ce paramètre?

NHenry · Answer

A mon avis, cela vient de la valeur "frmcam1.ldmvt.Value" (typée Object, je pense)

Une bonne pratique est que si tu n'as pas besoin de modifier les valeurs passées en paramètre dans ta fonction est de préciser dans la déclaration ByVal :
Sub MaSub(ByVal Parameter1 As Double, ...) 

Aussi, pense à donner des noms explicites à tes variables (p1 p2 t3 b0, ce n'est pas très claire)

Robix · Answer

J'ai refais quelques tests que j'ai expliqué dans une réponse plus haut...
Visiblement "frmcam1.ldmvt.Value" semblait coincer en effet... 
Pour faire suite à ta remarque je me permets de te poser une question : Quelle serait la valeur de retour lors de l'utilisation de la fonction VarType dans le cas où la valeur serait typée Object?
Merci pour ces deux petites leçons de codage ;-)
Pour ce qui est des noms explicites, les utilisateurs de ce programme préfère rester avec ces noms... J'exécute les ordres!

Merci pour tout!

Type d'argument ByRef incompatible

3 réponses

Discussions similaires