Problème avec les types

**damsmut** · 02/07/2010, 12h10

Bonjour,

Voici mon code qui me pose problème - mes questions sont en commentaires dans le code aux endroit où j'ai 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
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
Type Coordonnées
    Nom As String
    Prénom As String
    Age As Integer
End Type
 
 
Sub Main()
 
    Dim MesCopains(2) As Coordonnées
    Dim MesAmis_V1(2) As Coordonnées
    Dim MesAmis_V2() As Coordonnées
    Dim MesAmis_V3() As Coordonnées
 
    MesCopains(0).Nom = "Dupont"
    MesCopains(0).Prénom = "Michel"
    MesCopains(0).Age = 35
 
    MesCopains(1).Nom = "Martin"
    MesCopains(1).Prénom = "Yves"
    MesCopains(1).Age = 28
 
    MesCopains(2).Nom = "Schmith"
    MesCopains(2).Prénom = "Philippe"
    MesCopains(2).Age = 22
 
 
    'Mes questions :
    MesAmis_V1 = MesCopains '1. ne marche pas : message impossible d'affecter un tableau
    MesAmis_V2 = MesCopains '2. marche... pourquoi ça et pas 1. ???
    MesAmis_V3 = Test_Type '3. erreur de compilation  : seuls les types définis par l'utilisateur et qui sont définis dans les modules d'objets publics peuvent êtres convertis depuis ou vers un variant, ou passés à des fonctions à liaison tardive
 
End Sub
 
 
Function Test_Type() As Variant
 
    Dim MyFriends(2) As Coordonnées
 
    MyFriends(0).Nom = "Petit"
    MyFriends(0).Prénom = "Jean"
    MyFriends(0).Age = 18
 
    MyFriends(1).Nom = "Leroy"
    MyFriends(1).Prénom = "Camille"
    MyFriends(1).Age = 22
 
    MyFriends(2).Nom = "Durand"
    MyFriends(2).Prénom = "Sophie"
    MyFriends(2).Age = 26
 
 
    Test_Type = MyFriends
 
End Function