Discussion :

[zoheir_hm]

bonjour
je veux créer cette structure

Code :

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

1
2
3
4
5
6
7
Private Structure gene  
    Public x As integer  
    Public y As integer 
 
End   structure
 
dim chromozom(100) as gene

ça marche bien dans le compilateur VBA
mais lorsque j'ai inséré ce code dans un macro Excel, le compilateur intégré de l'Excel n'accepte pas cette déclaration !!!
je ne sais pas où est le problème
j'attends vos réponses et merci

[Philippe Tulliez]

Bonjour,
Ce n'est pas les tableaux de type que vous cherchez ?
Si c'est le cas, je vous conseille la lecture du chapitre IX. Les tableaux de type définis par l'utilisateur du tutoriel Utiliser les variables tableaux en VBA Excel

[zoheir_hm]

Bonjour,
Ce n'est pas les tableaux de type que vous cherchez ?
Si c'est le cas, je vous conseille la lecture du chapitre IX. Les tableaux de type définis par l'utilisateur du tutoriel Utiliser les variables tableaux en VBA Excel

merci beaucoup
C'est bon le code marche bien et j'ai remplacé structure par type
donc ma structure est

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Type gene
     x As Integer
     y As Integer
     index As Integer
 
 
End Type
 
Private Type VBchromozom
     g(100) As gene
End Type

mais lorsque j'ai ajouté le code pour remplir les données

Code :

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

1
2
3
4
5
6
Dim p1, p2, f As VBchromozom
For i = 0 To 9
    p1.g(i).index = ind1(i)
    p2.g(i).index = ind2(i)
    MsgBox p1.g(i).index
Next

avec ind1 et ind2 deux tableaux

mon problème c'est que j'ai une erreur de compilation et il affiche ce message

objet requis

[Philippe Tulliez]

Bonjour,

mon probleme c'est que j'ai une erreur de compilation et il affiche ce message " objet requit "

Dans votre déclaration des trois variables, Dim p1, p2, f As VBchromozom la variable f est la seule qui est un objet Type, les deux autres sont de type Variant

Voir le chapitre II. Les types de données du tutoriel Utiliser les variables en VBA Excel

[zoheir_hm]

bonjour

merci pour ton aide c'est résolu

mais maintenant j'ai une autre erreur
j'ai cette fonction

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
Private Function GenR(G As VBgeneration) As VBgeneration
Dim Total
Dim i
Dim j
Dim c As VBchromozom
Dim Generation As VBgeneration
Dim N, A
 
N = 5
A = 3
For i = 0 To N - 1
G.chromozom(i).vf = fitnes(G.chromozom(i), G.taille)
Total = Total + G.gn(i).vf
Next
 
For i = 0 To N - 1
G.chromozom(i).vp = G.chromozom(i).vf / Total
Next
 
 
For i = 0 To N - 2
For j = i + 1 To N - 1
If G.chromozom(i).vp > G.chromozom(j).vp Then
c = G.chromozom(i)
G.chromozom(i) = G.chromozom(j)
G.chromozom(j) = c
End If
Next
Next
 
Generation.chromozom(0) = croisement_toPoints(G.chromozom(0), G.chromozom(1), 8, 1, 6, 3, 2)
Generation.chromozom(1) = croisement_toPoints(G.chromozom(2), G.chromozom(0), 8, 1, 6, 3, 2)
Generation.chromozom(2) = croisement_toPoints(G.chromozom(1), G.chromozom(2), 8, 1, 6, 3, 2)
Generation.chromozom(3) = Generation.G.gn(3)
Generation.chromozom(4) = Generation.G.chromozom(4)
 
 GenR = Generation
 
End Function

et j'appelle la fonction par

Code :

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

1
2
3
dim generation(10) as VBgenaration
remplir(generation(0))
Generation(1) = GenR(Generation(0))

avec les types déclarés

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
Private Type gene
     x As Integer
     y As Integer
     index As Integer
 
 
End Type
 
Private Type VBchromozom
     G(100) As gene
     vp As Double
     vf As Double
 
End Type
 
Private Type VBgeneration
     chromozom(100) As VBchromozom
     Indexgeneration As Integer
     taille As Integer
End Type

mon problème c'est que le compilateur signale une erreur dans l'appel de la fonction GenR c-a-d sur la ligne Generation(1) = GenR(Generation(0)).
avec le message :

trop de variables locales non statiques

je ne sais d'où vient cette erreur

merci beaucoup pour ton aide

[jurassic pork]

Hello,

ça marche bien dans le compilateur VBA

il me semble que tu as voulu dire le compilateur Visual Basic parce que Structure n'existe pas en VBA. Il faut utiliser ce qu'a conseillé Philippe.
Ami calmant, J.P