Discussion :

[damsmut]

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

je l'ai ai numérotées 1. / 2. et 3.
Remarque l'erreur 3. s'affiche à cause de la ligne

Code :

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

Test_Type = MyFriends

de la fonction

Merci

Dams'

[patricktoulon]

bonjour

quand tu declares des variables au depart en vue de faire un tableau tu dois utilise les meme jusquau bout

j'explique:

mescopain() avec les parenthezes n'est pas egale a mescopains sans parenthezes

ton probleme vient de la

d'autant plus que si j'ai bien lu le code les variable sont bien declarée mais ne sont pas instruites donc elle sont egale a rien


revoi ta copie



au plaisir

[damsmut]

pour les question 1. et 2. j'ai trouvé dans l'aide VBA :

Affectation à un tableau impossible

La valeur de chaque élément d'un tableau doit être affectée individuellement. Causes et solutions de cette erreur :

Arr1 = Arr2 ' Affectation incorrecte.
Arr1() = Arr2() ' Affectation incorrecte.

Pour affecter un tableau à un autre, assurez-vous que le tableau à gauche de l'affectation est redimensionnable et que les types de tableaux sont compatibles. --> ceci explique pourquoi 2. marche


Note Vous pouvez placer la totalité d'un tableau dans un Variant et obtenir ainsi une variable de type variant contenant l'ensemble du tableau :

Dim MyArr As Variant
MyVar = Arr2()

donc ceci explique pourquoi 1. ne marche pas et 2. marche :-)

Reste maintenant encore ma question notée 3
merci

[patricktoulon]

rebonjour


en esperant que tu regarde cette reponse

la encore une fois tu utilise une variables tableau tu l'incremente

et en bas tu demande une variable tout court


encore une fois les parentheses sont de rigueur dans ce cas la aussi


au plaisir...