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