Discussion :

[Arnaud87]

Bonjour a tous svp j ai un probleme avec mon code et je n arrive pas aussi a le tester pour voir si le code fonctionne bien

Énoncé
Sous-programme 6 : PopulationDeDepart (ModulePrincipal)
Cette fonction retourne l'état de la population avant que l'épidémie la frappe. Tous les individus
sont alors initialisés dans le groupe des gens en santé.
Paramètres :
• Le groupe initial de personnes en santé.
Valeur de retour :
• Une population où tous les gens sont en santé.

voici le code que j ai ecrit

Code :

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

1
2
3
4
5
6
7
Public Function PopulationDeDepart(ByRef GroupeInitialSanté As population) As population
 
        PopulationDeDepart.PersonnesEnSante = GroupeInitialSanté.PersonnesEnSante
 
 
 
End Function

Voici ma fonction test

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
Dim GroupeInitial As Long
Dim PopulationDeDepart As Long
Dim population As Groupe
 
    population.PersonnesEnSante = 2
    population.PersonnesImmunisés = 3
    population.PersonnesMalades = 4
    population.PersonnesDecedes = 5
 
 
 
GroupeInitial = PopulationDeDepart
 
 
Call MsgBox(PopulationDeDepart(6))
 
 
End Sub

Merci pour vos aides

[Invité]

Bonjour,

Comment avez-vous défini le type de la variable Groupe ?

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
 
Option Explicit
 
Type Groupe
    PersonnesEnSante As Long
    PersonnesImmunisees As Long
    PersonnesMalades  As Long
    PersonnesDecedees As Long
End Type
 
 
 
Sub Test()
 
Dim GroupeInitial As Groupe
Dim PopulationDeDepart As Groupe
Dim Population As Groupe
 
    Population.PersonnesEnSante = 2
    Population.PersonnesImmunisees = 3
    Population.PersonnesMalades = 4
    Population.PersonnesDecedees = 5
 
    GroupeInitial.PersonnesEnSante = Population.PersonnesEnSante
 
    PopulationDeDepart.PersonnesEnSante = GroupeInitial.PersonnesEnSante
 
    MsgBox PopulationDeDepart.PersonnesEnSante
 
 
End Sub

[Arnaud87]

Bonjour voici comment j'ai défini ton type

Merci

Code :

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

1
2
3
4
5
6
7
8
Public Type population
 
    personnesSantes As Long
    personnesImmunises As Long
    personnesMalades As Long
    personnesDecedees As Long
 
End Type

[Invité]

Bonjour,

Mon code n'est-il pas suffisant ?

[Arnaud87]

Bonjour quand je fais le test ca me met ca

[Invité]

Utilise mon code...

[Arnaud87]

toujours le meme message d erreur

[Invité]

toujours le meme message d erreur

Tu n'utilises pas mon code, car mon type est groupe. Il faut comprendre que lorsque tu définis un type, tu ne peux pas utiliser son nom directement comme variable dans ton code. Ton problème vient de là.
Regarde comment j'ai défini mes variables, elles font toutes référence au type Groupe.

[Arnaud87]

j ai encore le meme message d erreur j ai utiliser exactement ton code

Merci

[Invité]

j ai encore le meme message d erreur j ai utiliser exactement ton code

[Arnaud87]

Merci pour votre aide en fait quand j exécute le code dans un module a part ca fonctionne mais quand je l insère dans un model existant le même message d erreur réapparaît

[Invité]

Mets en ligne ton fichier sans données confidentielles.

[Arnaud87]

ci joint mon fichier dans le ModuleTest

[Invité]

ci joint mon fichier dans le ModuleTest

C'est ta fonction qui met le bazar.
Ci-dessous le code qui se suffit à lui-même. Il manque la procédure TransfererIndividus.

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
 
Option Explicit
 
Type Groupe
    PersonnesEnSante As Long
    PersonnesImmunisees As Long
    PersonnesMalades  As Long
    PersonnesDecedees As Long
End Type
 
Public GroupeInitial As Groupe
Public PopulationDeDepart As Groupe
Public Population As Groupe
 
' TesterPopulationDeDepart
 
Sub TesterPopulationDeDepart()
 
    Population.PersonnesEnSante = 2
    Population.PersonnesImmunisees = 3
    Population.PersonnesMalades = 4
    Population.PersonnesDecedees = 5
 
    GroupeInitial = Population
 
    MsgBox GroupeInitial.PersonnesEnSante
 
End Sub
 
Sub TesterTransfererIndividus()
 
Dim unGroupeSource As Groupe
Dim unGroupeDestination As Groupe
 
    'TransfererIndividus unGroupeSource, unGroupeDestination, CategorieAdolescent
 
End Sub

[Arnaud87]

Merci de votre disponibilité