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: