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