Discussion :

[lguez]

Bonjour a tous

j'ai écris le code suivant qui me permet de tester si un tableau de structure est déjà instancié ou non et de le redimentionner sinon mais ce code me génère une erreur (voir plus bas)

si quelqu'un voit l'erreur et comment je peux la résoudre sans avoir à créer n procédure différente en fonction des types !

J'ai également cherché pour créer un module d'objet public mais je n'y suis pas arrivé

Cordialement

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 t1
  i As Integer
  c As Characters
End Type
 
 Type t2
  i As Integer
  c As Characters
  s As String
  t() As t1
End Type
 
Public sub proc (v as variant)
Dim i As Integer
 
On Error GoTo traitErr
 
i = UBound(v) + 1
ReDim Preserve v(i)
 
exit sub
 
traitErr:
   i = 0
   Resume Next
End Sub
 
 
Public Sub test_Passage_params()
Dim v1() As t1
Dim v2() As t2
 
proc v1
proc v2
 
End Sub

erreur générée:

[E KERGRESSE]

Bonjour,

Les variables définies par vos types ne sont pas des variables tableau et on ne voit pas à quel moment vous chargez vos matrices.

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
 
Sub test_Passage_params()
 
Dim I As Integer
Dim v1(1) As Variant ' t1
Dim v2(2) As Variant ' t2
Dim V3(1) As Variant ' Correspond à la variable tableau dans t2
 
    ' Les valeurs sont à adapter.
    v1(0) = 1: v1(1) = "X"
    v2(0) = 2: v2(1) = "Y": v2(2) = "Z"
    V3(0) = 1: V3(1) = "X"
 
    ' Exemple de restitution
    For I = LBound(v2) To UBound(v2)
        Debug.Print I & " : " & v2(I)
    Next I
 
 
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    ' Si la dimension des matrices doit évoluer par la suite, il vous faut passer en deux dimensions tout de suite
    ' On aurait écrit à l'initialisation
    ReDim v1(1, 0) '....
 
    ' Et dans le cours du programme
    ReDim Preserve v1(1, I) ' Preserve n'agit que sur la dernière dimension de la matrice
    ' Chargement des valeurs
    '...
    ' Exemple de restitution
    For I = LBound(v2, 2) To UBound(v2, 2)
        Debug.Print I & " : " & v2(0, I) & ", " & v2(1, I) & ", " & v2(3, I)
    Next I

Nb : Les modules sont publics par défaut.

[lguez]

en fait j'ai 2 tableaux de structure

ils sont au départ déclarés à Nothing:

Dim v1() As t1
Dim v2() As t2

Avec t1 une structure de type:
Type t1
i As Integer
c As Characters
End Type

Et t2 une structure de type:
Type t2
i As Integer
c As Characters
s As String
t() As t1
End Type

La première fois si je fais ubound(v) , comme l'élément est encore à Nothing j'ai un message d'erreur et donc je voulais créer une fonction dans laquelle je passais en paramètre soit v1 soit v2 et qui teste si la variable était déjà dimensionnée si oui me renvoyait la dimension + 1 sinon me renvoyé 1.

n'ayant pas trouvé la solution (mais je serais intéressé si quelqu'un a la solution) je l'ai fait par une gestion des erreurs

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
 
sub proc()
dim b()
dim i as integer
 
On Error GoTo Err
 
  i = UBound(b) ' Si b n'est pas instancier va sur le traitement Err
On Error Goto 0' redesactive le traitement des erreurs
  ReDim Preserve b(i+1)
 
  Exit sub
Err:
  i = 0
  Resume Next' Revient à l'instruction suivant le ubound
End sub

[lguez]

en fait je cherche surtout à savoir comment sous vba on peut surcharger des fonctions ou procédures

[deedolith]

Salut,

Les surcharges sont une notion qui n'existe pas en VBA.

Les seuls moyen de s'en approcher est de définir des paramètres optionnels
ou d'utiliser un nombre de paramètres variables (ParamArray).
Attention, ce dernier étant faiblement typé, je conseille d'accompagner avec une documentation explicite en commentaires.