Discussion :

[RhadamantheII]

Bonjour à tous,

Récemment arrivé sur VBA Access, j'ai créé une class "Attachement_class" dont l'objectif est de stocker un nom d'équipe et une liste de membre par équipe.

Dans l'idée j'ai donc une première fonction d'initialisation de la classe (cf ci-dessous) (Vu que que apparemment Class_Initialize() ne peut prendre d'argument). Qui initialise des variables "globales" (equipe As String et sous_brique() As String). On peut noter que la fonction init(X,X) appelle une deuxième fonction set_sous_brique(ByRef liste() As String).

Lorsque je lance la compilation, je reçois ce message d'erreur :

"Erreur de compilation:

Incompatibilité de type : tableau ou type défini par l'utilisateur attendu "

Erreur qui pointe sur "liste" de set_sous_brique (liste) en rouge.

Pourriez-vous éclairer ma lanterne ?

Merci d'avance

Code :

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

1
2
3
4
 
 
Private equipe As String
Private sous_brique() As String

Code :

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

1
2
3
4
5
6
7
8
9
10

Public Sub init(ByRef liste() As String, equipe_l As String)

    i = 0
    set_sous_brique (liste)
    equipe = equipe_l
    
      
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
 
 
Sub set_sous_brique(ByRef liste() As String)
 
    ReDim sous_brique(UBound(liste))
    sous_brique = liste
 
 
End Sub

Code :

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

1
2
3
4
5
6
 
 
Private Sub Class_Initialize()
    equipe = Null
    sous_brique = Null
End Sub

[Thierry_PALLIER]

Bonjour RhadamantheII.

Personnellement, je passe les arguments tableaux sans les parenthèses.

Code :

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

Sub set_sous_brique(ByRef liste As String)

Si c'est le ByRef qui pose problème, essaye "Optional".
Cdlt

[RhadamantheII]

Bonjour RhadamantheII.

Personnellement, je passe les arguments tableaux sans les parenthèses.

Code :

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

Sub set_sous_brique(ByRef liste As String)

Si c'est le ByRef qui pose problème, essaye "Optional".
Cdlt

Bonjour Thierry,

Merci de ta réponse

Lorsque j'enlève les parenthèses, j'ai une erreur qui pop sur le Ubound(liste) : " Tableau attendu "

Code :

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

1
2
3
4
5
6
7
8

Sub set_sous_brique(liste As String)
    
    ReDim sous_brique(UBound(liste))
    sous_brique = liste
    
End Sub

[Thierry_PALLIER]

pour un tableau d'une seule dimention (1 colonne):

Code :

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

UBound(liste,1)

pour un tableau à 2 dimentions (profondeur):

Code :

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

UBound(liste,2)

Cdlt