Aide sur un code VBA

Version imprimable

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:

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:

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

Citation:

Envoyé par Arnaud87

Bonjour,

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

Code:

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

Définition de type

Bonjour voici comment j'ai défini ton type

Merci

Code:

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

27/03/2020, 14h03
Invité

Citation:

Envoyé par Arnaud87

Bonjour,

Mon code n'est-il pas suffisant ?
27/03/2020, 14h28
Arnaud87

1 pièce(s) jointe(s)

Aide sur un code VBA

Bonjour quand je fais le test ca me met ca Pièce jointe 550049
27/03/2020, 14h33
Invité

Citation:

Envoyé par Arnaud87

Utilise mon code...
27/03/2020, 14h49
Arnaud87

1 pièce(s) jointe(s)

Aide sur un code VBA

toujours le meme message d erreurPièce jointe 550063
27/03/2020, 14h55
Invité

Citation:

Envoyé par Arnaud87

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.
27/03/2020, 15h04
Arnaud87

1 pièce(s) jointe(s)

Aide sur un code VBA

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

Merci

Pièce jointe 550073
27/03/2020, 15h07
Invité

Citation:

Envoyé par Arnaud87

j ai encore le meme message d erreur j ai utiliser exactement ton code
27/03/2020, 15h36
Arnaud87

Aide sur un code VBA

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
27/03/2020, 15h38
Invité

Citation:

Envoyé par Arnaud87

Mets en ligne ton fichier sans données confidentielles.
27/03/2020, 16h07
Arnaud87

Aide sur un code VBA

ci joint mon fichier dans le ModuleTest

Citation:

Envoyé par Arnaud87

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:

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

27/03/2020, 17h52
Arnaud87

Aide sur un code VBA

Merci de votre disponibilité