Aide sur un code VBA

Bonjour a tous j ai un souci dans mon code voici l enoncé

Merci

6.2 Phase 2 : Manipulation des enregistrements

2. Module « ModulePrincipal »

Durant cette phase, vous devrez coder les sous-programmes liés au type « Population ». Ce

type conserve 4 groupes d’individus, les personnes en santé, les personnes immunisées, les

personnes malades et les personnes décédées.

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é

[b][b]

Voici mon code [/b][/b]

ublic Function PopulationDeDepart(ByRef GroupeInitialSanté As Population) As Population

PopulationDeDepart.PersonnesEnSante = GroupeInitialSanté.PersonnesEnSante

End Function

Voici mon code test

Public Sub TesterPopulationDeDepart()

Dim GroupeInitial As Long

Dim PopulationDeDepart As Long

Population.PersonnesEnSante = 2

Population.PersonnesImmunisés = 3

Population.PersonnesMalades = 4

Population.PersonnesDecedes = 5

GroupeInitial = PopulationDeDepart

Call MsgBox(PopulationDeDepart(6))

End Sub