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

[Invité]

Salut,

Ah donc c'est comme pour les décalation d'API, toujours en ByRef, je croyais que c'était l'inverse pour les fonctions/sub (je ne sais pourquoi).

Par contre, je vois un tableau au niveau du "Config" en sortie du sub Main, mais une variable basique en entrée de sub Export ?

[Invité]

Code :

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

1
2
Dim config(2) As Action
Call Export(config)

ça ne te gènes pas de passer un tableau en paramètre alors que la variable de la fonction n'est pas un tableau?

Code :

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

Sub Export(ByRef config As Action)

Code :

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

Sub Export(ByRef config As Variant)

[Invité]

Un début de réponse ici, mais il faudra enlever l'erreur à Ubound et autre.

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
47
48
49
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.position)
        'Print #1, config(ligne.position(1))
    'Next ligne
    Close #1
    MsgBox ("Export effectué avec succès !")
End Sub
 
Sub main()
    Dim equipement1 As RF
    Dim equipement2 As RF
    Dim config As Action
 
 
    equipement1.site = "SITE1"
    equipement1.tranche = "TRANCHE1"
 
    equipement2.site = "SITE2"
    equipement2.tranche = "TRANCHE2"
 
    ReDim config.equipement(1 To 2)
    ReDim config.position(1 To 2)
 
    config.equipement(1) = equipement1
    config.position(1) = "POSITION1"
 
    config.equipement(2) = equipement2
    config.position(2) = "POSITION2"
 
    Export config
End Sub

Tu as le droit de faire passer des tableaux, mais pas au niveau du Type de données. On peut comparer à une variable Range, cette variable possède un tableau en elle au niveau du .Value2 en 2 dimensions.

Pour les fichier csv, les autres t'aideront, je n'y comprends rien.
Les données passe comme ça:

[PMO2017]

Bonjour,

Essayez avec votre code modifié

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
47
48
49
50
51
52
53
54
55
56
57
58
59
Type RF
  site As String
  tranche As String
End Type
 
Type Action
  equipement As RF
  position As String
End Type
 
 
 
Sub Export(config() As Action)    '///le paramètre étant un tableau, il faut spécifier l'argument comme tel avec des ()
MsgBox "Limite basse : " & LBound(config)
MsgBox "Limite haute : " & UBound(config)
'---
MsgBox config(0).equipement.site
MsgBox config(0).equipement.tranche
MsgBox config(0).position
'---
MsgBox config(1).equipement.site
MsgBox config(1).equipement.tranche
MsgBox config(1).position
 
'### suite de votre traitement à adapter selon ci-dessus ###
'    '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(1) As Action 'config(1) contient 2 éléments (Option base n'étant pas spécifié)
 
equipement1.site = "SITE1"
equipement1.tranche = "TRANCHE1"
 
equipement2.site = "SITE2"
equipement2.tranche = "TRANCHE2"
 
config(0).equipement.site = equipement1.site
config(0).equipement.tranche = equipement1.tranche
config(0).position = "POSITION1"
 
config(1).equipement.site = equipement2.site
config(1).equipement.tranche = equipement2.tranche
config(1).position = "POSITION2"
 
Call Export(config)
End Sub

Si cela vous convient, il faudra extrapoler la suite du traitement.

[Invité]

Intéressant, je pensant que seul le variant permettait de transmettre un tableau au niveau du type de la variable.

EDIT: J'ai confondu avec les fonctions ParamArray pour le passage des Tableaux Variant obligatoire.

Sinon un code équivalent qui permet de ne pas déclarer inutilement des variable tel que equipement qui sont déjà un sous-type de Action, le redim et les tableaux dynamique finalement sont inutile si la taille des sous-type doivent être la même à chaque fois :

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
Option Explicit
 
Type RF
    site As String
    tranche As String
End Type
 
Type Action
    equipement(1 To 2) As RF 'Sous type de taille Fixe
    position(1 To 2) As String 'Sous type de taille Fixe
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.position)
    '    Print #1, config.position(ligne)
    'Next ligne
    'Close #1
    MsgBox ("Export effectué avec succès !")
End Sub
 
Sub main()
    Dim config As Action
 
    config.equipement(1).site = "SITE1"
    config.equipement(1).tranche = "TRANCHE1"
 
    config.equipement(2).site = "SITE2"
    config.equipement(2).tranche = "TRANCHE2"
 
    config.position(1) = "POSITION1"
    config.position(2) = "POSITION2"
 
    Export config
End Sub

Cela revient au même, mais il n'y a pas à se soucier de déclarer des variable ou même des tableaux, c'est le type qui s'en occupe.



----------------------------------------------------------------------------------

Apparemment, c'est pas le cas pour la taille fixe, donc (ce qui revient au même que le code de PMO2017 finalement):

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
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.position)
    '    Print #1, config.position(ligne)
    'Next ligne
    'Close #1
    MsgBox ("Export effectué avec succès !")
End Sub
 
Sub main()
    Dim config(1 To 2) As Action
 
    config(1).equipement.site = "SITE1"
    config(1).equipement.tranche = "TRANCHE1"
    config(1).position = "POSITION1"
 
    config(2).equipement.site = "SITE2"
    config(2).equipement.tranche = "TRANCHE2"
    config(2).position = "POSITION2"
 
    Export config
End Sub

[spookyz]

Bonjour à tous,
ce n'est pas moi qui ai postée cette question mais ça me fait progresser et apprendre alors merci a ceux qui avec humilité et pertinence on sut apporter une aide concrète et constructive