Problème avec les types

Version imprimable

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:

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:

Test_Type = MyFriends

de la fonction

Merci

Dams'

03/07/2010, 20h23
patricktoulon

heuh!!!

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
05/07/2010, 11h54
damsmut

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

Citation:

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
05/07/2010, 17h56
patricktoulon

re

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...

bon...

j'ai des difficultés à comprendre l'intérêt d'un tel mécanisme, mais voilà ce que ce serait :
1) ta structure
Code:

1 2 3 4 5 Private Type Coordonnées Nom(2) As String Prénom(2) As String Age(2) As Integer End Type
2) ta "fonction"
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Function Test_Type() As Coordonnées Test_Type.Nom(0) = "Petit" Test_Type.Prénom(0) = "Jean" Test_Type.Age(0) = 18 Test_Type.Nom(1) = "Durand" Test_Type.Prénom(1) = "Pierre" Test_Type.Age(1) = 21 Test_Type.Nom(2) = "Dupont" Test_Type.Prénom(2) = "Paul" Test_Type.Age(2) = 17 End Function
3) un exemple d'utilisation
Code:

1 2 3 For i = 0 To 2 MsgBox Test_Type.Nom(i) & vbCrLf & Test_Type.Prénom(i) & vbCrLf & Test_Type.Age(i) Next
Note bien : j'ai laissé les choses en l'état, bien qu'il soit étrange d'utiliser ainsi une fonction, sans lui passer de paramètres. A toi d'y voir le principe et d'adapter comme tu l'entends .

Salut.

8O Pas vraiment pratique, la structure proposée
Code:

1 2 3 4 5 Private Type Coordonnées Nom(2) As String Prénom(2) As String Age(2) As Integer End Type
Si on doit ajouter plus que trois contacts... :koi:

Le plus simple serait d'utiliser une classe perso et une collection.

1) Ajouter un module de classe à ton projet, le nommer cCoordonnees et y coller ce code
Code:

1 2 3 Public Nom As String Public Prenom As String Public Age As Integer
2) Créer des objets basés sur cette classe, dans un module standard
Code:

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 Function Test_Type() As Collection Dim MaCollection As New Collection Dim MyFriend As New cCoordonnees MyFriend.Nom = "Petit" MyFriend.Prenom = "Jean" MyFriend.Age = 18 MaCollection.Add MyFriend, "1" MyFriend.Nom = "Leroy" MyFriend.Prenom = "Camille" MyFriend.Age = 22 MaCollection.Add MyFriend, "2" MyFriend.Nom = "Durand" MyFriend.Prenom = "Sophie" MyFriend.Age = 26 MaCollection.Add MyFriend, "3" Set Test_Type = MaCollection End Function Sub Test1() Debug.Print Test_Type("1").Nom End Sub
Note cependant qu'il serait plus intéressant de stocker les dates de naissance plutôt que les âges, qui sont fluctuants.

Je te conseille la lecture de mon tuto sur les classes pour te familiariser avec les classes personnalisées. Tu y trouveras un exemple qui utilise justement la date de naissance.

Bon travail.

06/07/2010, 09h48
damsmut
Citation:

Pas vraiment pratique, la structure proposée
Code :

Private Type Coordonnées
Nom(2) As String
Prénom(2) As String
Age(2) As Integer
End Type

Si on doit ajouter plus que trois contacts...

Tout à fait d'accord, mais attention ceci n'est qu'un exemple !!! et n'a rien à voir avec mon application finale.

Par contre, la création d'une classe ne fonctionne pas dans mon cas, car je dois déclarer également un tableau redimensionnable en variable.

Exemple :
Code:

1 2 3 4 5 Type Coordonnées Nom As String Prénom As String Hobbies() As String End Type
et ça dans une classe ça ne marche pas... il me met un message qu'on n'a pas le droit de déclarer un tableau dans la classe ?

et ensuite je déclare bien une variable de type 'Coordonnées' en tant que tableau... j'ai donc des "tableaux imbriqués"

du type :

Code:

Myfriend(1).Hoobies(3)

alors comment faire pour que ma fonction Test_Type puisse renvoyer tout ça en transférant le type complet ?

Utilise une collection dans ta classe

Dans le module de classe

Code:

1
2
3
4
Public Nom As String
Public Prenom As String
Public Age As Integer
Public Hobbies As New Collection

Voici un exemple de code. Perso, je laisserais tomber la fonction qui renvoie une collection, car cette façon de procéder n'est pas utile ici.

Code:

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
Sub Gerer_Mes_Amis()
    Dim MyFriends As New Collection
    Dim MyFriend As New cCoordonnees
    Dim i As Integer, j As Integer
 
    Set MyFriend = New cCoordonnees
    MyFriend.Nom = "Petit"
    MyFriend.Prenom = "Jean"
    MyFriend.Age = 18
    MyFriend.Hobbies.Add "Rugby"
    MyFriend.Hobbies.Add "Excel"
    MyFriends.Add MyFriend, "1"
 
 
    Set MyFriend = New cCoordonnees
    MyFriend.Nom = "Leroy"
    MyFriend.Prenom = "Camille"
    MyFriend.Age = 22
    MyFriends.Add MyFriend, "2"
 
    Set MyFriend = New cCoordonnees
    MyFriend.Nom = "Durand"
    MyFriend.Prenom = "Sophie"
    MyFriend.Age = 26
    MyFriends.Add MyFriend, "3"
 
    For i = 1 To MyFriends.Count
      Set MyFriend = MyFriends(i)
      For j = 1 To MyFriend.Hobbies.Count
        With MyFriend
          Debug.Print .Nom & " " & .Prenom & " - " & .Hobbies(j)
        End With
      Next j
    Next i
End Sub

Pierre,
J'ai bien étudié ton code... c'est vraiment très intéressant - je ne connaissais pas du tout les "collections"

par contre tout de même une question : voici ton code avec un ajout que j'ai mis entre '*'*'*'*'*' :

Code:

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
56
Sub Gerer_Mes_Amis()
    Dim MyFriends As New Collection
    Dim MyFriend As New cCoordonnees
 
    '*'*'*'*'*'
    Dim MesAmis(2) As New cCoordonnees
    '*'*'*'*'*'
 
    Dim i As Integer, j As Integer
 
    Set MyFriend = New cCoordonnees
    MyFriend.Nom = "Petit"
    MyFriend.Prenom = "Jean"
    MyFriend.Age = 18
    MyFriend.Hobbies.Add "Rugby"
    MyFriend.Hobbies.Add "Excel"
    MyFriends.Add MyFriend, "1"
 
 
    Set MyFriend = New cCoordonnees
    MyFriend.Nom = "Leroy"
    MyFriend.Prenom = "Camille"
    MyFriend.Age = 22
    MyFriends.Add MyFriend, "2"
 
    Set MyFriend = New cCoordonnees
    MyFriend.Nom = "Durand"
    MyFriend.Prenom = "Sophie"
    MyFriend.Age = 26
    MyFriends.Add MyFriend, "3"
 
 
    '*'*'*'*'*'
    MesAmis(0).Nom = "Petit"
    MesAmis(0).Prenom = "Jean"
    MesAmis(0).Age = 18
 
    MesAmis(1).Nom = "Leroy"
    MesAmis(1).Prenom = "Camille"
    MesAmis(1).Age = 22
 
    MesAmis(2).Nom = "Durand"
    MesAmis(2).Prenom = "Sophie"
    MesAmis(2).Age = 26
    '*'*'*'*'*'
 
 
    For i = 1 To MyFriends.Count
      Set MyFriend = MyFriends(i)
      For j = 1 To MyFriend.Hobbies.Count
        With MyFriend
          Debug.Print .Nom & " " & .Prenom & " - " & .Hobbies(j)
        End With
      Next j
    Next i
End Sub

Ma question :
Mis à part la possibilité d'utiliser un tableau dans ta collection, j'obtiens les mêmes résultats avec 'MesAmis' qui est un tableau de type cCoordonnees qu'avec MyFriends... non ?

Est-ce que la possibilité d'utiliser un tableau est le seul avantage ? ....

et toujours mis à part l'utilisation d'un tableau, un type ça donne les mêmes résultats ? non ?

merci
a+

07/07/2010, 08h52
Pierre Fauconnier

Le problème du tableau, c'est que, à moins de le redimensionner, tu dois connaître le nombre d'éléments au départ, alors que la collection permet l'ajout "à la volée" via la méthode .Add.

Pour ce qui est des différences entre la classe et le type, vois mon tuto qui explique cela étape par étape. Avec une classe, tu pourras contrôler la saisie des données, ajouter des propriétés calculées en lecture seule, comme l'âge (propriété calculée en lecture seule) par rapport à la date de naissance (propriété en lecture/écriture).

Ceci dit, pour répondre à ta troisième question, tu ne peux pas passer ton tableau de variables de type Coordonnées à un variant. Tu ne peux le passer qu'à un tableau de type Coordonnées, ce que tu peux faire en modifiant la signature de la fonction:

Code:

Function Test_Type() As Coordonnées()
07/07/2010, 10h10
damsmut

c'est de la programmation objet ?
07/07/2010, 10h55
Pierre Fauconnier

Oui, les classes perso permettent de créer des objets, un peu comme des types personnalisés, mais avec beaucoup plus de puissance, puisque tu peux contrôler les saisies, travailler à l'intérieur des propriétés, déclencher des événements qui seront interceptables par le code client, générer des erreurs, ...

C'est évidemment un peu plus lourd à mettre en place que des types persos, mais cela amène une souplesse pour le code client.
12/07/2010, 13h43
damsmut

ok en tout cas ça marche
merci