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

[babaothe]

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 :

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

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 :

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

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 :

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

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 .

[Pierre Fauconnier]

Salut.

Pas vraiment pratique, la structure proposée

Code :

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

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

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 :

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

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 :

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

[damsmut]

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 :

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

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 :

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

Myfriend(1).Hoobies(3)

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

[Pierre Fauconnier]

Utilise une collection dans ta classe

Dans le module de classe

Code :

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

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 :

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

[damsmut]

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 :

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

[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 :

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

Function Test_Type() As Coordonnées()

[damsmut]

c'est de la programmation objet ?

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

[damsmut]

ok en tout cas ça marche
merci