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

Signaler
Messages postés
2
Date d'inscription
vendredi 20 septembre 2013
Statut
Membre
Dernière intervention
21 septembre 2013
-
Messages postés
2
Date d'inscription
vendredi 20 septembre 2013
Statut
Membre
Dernière intervention
21 septembre 2013
-
Bonjour,

j'ai un message d'erreur à l'exécution de mon code mais je ne comprends pas pourquoi. Est-ce que quelqu'un a une idée pour résoudre ce problème ?

Merci d'avance.

Voici l'erreur que j'ai à l'exécution de mon code :
"Erreur de compilation:
Type d'argument ByRef incompatible"

Et voici mon code qui est assez simple :

Option Explicit

Type RF
site As String
tranche As String
End Type

Type Action
equipement As RF
position As String
End Type

Sub Export(ByRef config As Action)
'Ecrit dans le fichier txt
Dim chemin As String
Dim ligne As Integer

chemin = "C:\Users\utilisateur\Desktop\Export.csv"
Open chemin For Output As #1
For ligne = 0 To UBound(config)
Print #1, config(ligne).position,
Next ligne
Close #1
MsgBox ("Export effectué avec succès !")
End Sub

Sub main()
Dim equipement1 As RF
Dim equipement2 As RF
Dim config(2) As Action

equipement1.site = "SITE1"
equipement1.tranche = "TRANCHE1"

equipement2.site = "SITE2"
equipement2.tranche = "TRANCHE2"

config(0).equipement = equipement1
config(0).position = "POSITION1"

config(1).equipement = equipement2
config(1).position = "POSITION2"

Call Export(config)
End Sub

2 réponses

Messages postés
2083
Date d'inscription
jeudi 16 septembre 2004
Statut
Membre
Dernière intervention
15 octobre 2020
233
Salut,
L'argument d'Export est de type Action et tu lui passes un tableau d'Action, d'où l'erreur. La solution :
 
Sub Export(ByRef config() As Action)

;-) Flachy Joe ;-)
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60511 internautes nous ont dit merci ce mois-ci

Messages postés
2
Date d'inscription
vendredi 20 septembre 2013
Statut
Membre
Dernière intervention
21 septembre 2013

Mince, ça c'est idiot de ma part.
Merci de m'avoir aidé ça marche nickel maintenant.