Discussion :

[caroto]

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 :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
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

[nibledispo]

Bonsoir,

C'est quoi "config" nul part défini ?

EDIT: autant pour moi, je n'avais pas vu que sub meain etait exécuté en premier.

Cordialement.

[Marc-L]

Bonjour,

normalement rien qu'en lisant l'aide du message d'erreur (tout dépend de la version) …

Ou encore curseur sur ByRef (sinon Sub) puis touche puis lire, solution dans l'aide intégrée !

[Invité]

Bonsoir,

Je vais peut être dire une bétise, mais en principe, dans les Sub/fonctions les " Types Personnels " doivent toujours être passer en ByVal, jamais en ByRef dans les fonctions.

Mais à confirmer cependant. C'est en tout cas valable pour les API (Byref pour les Type ) alors c'est surement pareil à l'inverse pour les sub/fonctions.

EDIT:

[spookyz]

Bonjour à tous,
Marc-L je regardais moi aussi ce poste mais mon niveau ne me permet pas de comprendre comment résoudre cette difficulté j'ai suivie tes conseils mais l'aide non plus je ne la comprend pas ce serait bien si tu pouvais développer un peu sur ce problème et nous mettre sur la voie cordialement

[Marc-L]

Maintenant Nouveau2 a donné la réponse …

Pourtant c'est indiqué en clair dans l'aide, deux types de passages d'argument, donc quand c'est pas l'un, c'est l'autre …

[spookyz]

Bonjour à tous,
J'avais suivi les conseils de Nouveau2 avant de relancer le post mais je reçois un message d'erreur

Un type défini par l'utilisateur ne peut être passé par valeur (ByVal)

j'ai essayé de suivre l'aide et de déclarer en dim "config" mais rien n'y fait

Les types définis par l'utilisateur peuvent être passés uniquement par référence (par défaut), et non par valeur. L'erreur n'est signalée que lors de l'appel. Cause et solution de cette erreur :

Vous avez utilisé un mot clé ByVal dans la définition d'un paramètre représentant un type défini par l'utilisateur.
Retirez le mot clé ByVal. Pour éviter que des modifications soient répercutées au demandeur, déclarez (Dim) une variable temporaire du type et passez-la dans la procédure.

cordialement