probleme de selection des données dans une table

1 post / 0 new

ven, 20/11/2009 - 11:53

jabulon

Salut à tous,

je suis un debutant en programmation, j'ai realisé une application sous access 2003. le probleme est que je voudrais faire le comptage des données provenant d'une table selon le choix d'une zone de santé et la periode selon le format "mois/années".

le probleme est que le resultat du comptage tiens compte de tous les données dans la table. il n'arrive pas a faire l'exclusion voulu.

je cherche donc l'aide d'une personne pour deboguer ce probleme. car je dois d'urgence appreter l'application pour une presentation.

le processus du depouillement se deroule comme suit:

il y a une liste deroulante pour faire le choix de la zone de sante, une autre pour faire le choix de l'année

celle qui active le processus sont les listes deroulante mois.
le choix d'un mois, lance l'affichage dans les petites zones de text.

voici l'exemple de code pour la premiere colonne des mois

Public Sub Janv_AfterUpdate() Dim Mabase As Database Dim Monsql As Object Dim Dynalist As Object Dim CompteOui As Long Dim CompteNon As Long Dim tmpfievre As Boolean Dim tmpdiarrhee As Boolean Dim tmptoux As Boolean Dim tmpcons1, tmpcons2, tmp1, tmp2 As Boolean

Set Mabase = CodeDb

zero = ""
nb = 0
CompteOui = 0
CompteOui2 = 0
CompteOui3 = 0
CompteOui4 = 0
CompteOui5 = 0
CompteOui6 = 0
CompteOui7 = 0
CompteOui8 = 0
CompteOui9 = 0
CompteOui10 = 0
CompteOui11 = 0
CompteOui12 = 0
CompteOui13 = 0
CompteOui15 = 0
CompteOui16 = 0
CompteOui17 = 0
CompteOui18 = 0
CompteOui19 = 0
CompteOui20 = 0
CompteOui21 = 0
CompteOui22 = 0
CompteOui23 = 0
CompteOui24 = 0
CompteOui25 = 0
CompteOui26 = 0
CompteOui27 = 0
CompteOui28 = 0
CompteOui29 = 0
CompteOui30 = 0
CompteOui31 = 0
CompteOui32 = 0
CompteOui33 = 0
CompteOui34 = 0
CompteOui35 = 0
CompteOui36 = 0
CompteOui37 = 0
CompteOui38 = 0

CompteNon = 0
CompteNon2 = 0
CompteNon3 = 0
CompteNon4 = 0
CompteNon5 = 0
CompteNon6 = 0
CompteNon7 = 0
CompteNon8 = 0
CompteNon9 = 0
CompteNon10 = 0
CompteNon11 = 0
CompteNon12 = 0
CompteNon13 = 0
CompteNon15 = 0
CompteNon16 = 0
CompteNon17 = 0
CompteNon18 = 0
CompteNon19 = 0
CompteNon20 = 0
CompteNon21 = 0
CompteNon22 = 0
CompteNon23 = 0
CompteNon24 = 0
CompteNon25 = 0
CompteNon26 = 0
CompteNon27 = 0
CompteNon28 = 0
CompteNon29 = 0
CompteNon30 = 0
CompteNon31 = 0
CompteNon32 = 0
CompteNon33 = 0
CompteNon34 = 0
CompteNon35 = 0
CompteNon36 = 0
CompteNon37 = 0
CompteNon38 = 0

Dim ResRap1 As Boolean
Dim ResRap2, FPN1, FPN11, ResRap22, ResRap11 As Boolean
ResRap1 = False
ResRap2 = False
'mois.RowSource = "SELECT FicheIndiv.Date FROM FicheIndiv WHERE (((FicheIndiv.Date) Like '*/*/2007'));"

nomRelais.RowSource = "SELECT ZoneSanté.[Zone]FROM ZoneSanté WHERE ((([Zone])=Forms!DepouillementZ![Zone]));"
Set Dynalist = Mabase.OpenRecordset("FicheIndiv", dbOpenTable)
Nom = nomRelais

'msgbox ("Le mois a" & Right((Dynalist("Date")), 7) & "caractere")
'msgbox ("Le relais s'appelle " & nom)

Dynalist.MoveFirst

Do Until Dynalist.EOF()

'For i = 0 To Me.mois.ListCount - 1
' lemois = Me.mois.ItemData(i)

'moi = Right(lemois, 7)
moi = Janv & "/" & mois
'MsgBox ("Le mois a" & moi & "caractere")
'Len(lemois) - 3
'Lemois = mois
'msgbox ("Le mois a" & moi & "caractere")

'lemois = Me.mois.Selected(i)
'msgbox ("Le mois est" & lemois)

'nb = nb + 1

' 1. IDENTIFICATION

If (Dynalist("N°Fiche")) <> zero And (Dynalist("Date")) <> zero And (Dynalist("Zone de santé")) <> zero And (Dynalist("Centre de santé")) <> zero And (Dynalist("Site de santé")) <> zero And (Dynalist("Zone de Santé")) <> zero And (Dynalist("Sexe")) <> zero And (Dynalist("Poids")) <> zero And (Dynalist("Statut Nutritionnel")) <> zero And (Dynalist("Zone de Santé")) = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui = CompteOui + 1

DoEvents
Else
CompteNon = CompteNon + 1
DoEvents
End If

' 2. SECTION PLAINTES

If (Dynalist("Fièvre") = "1" And Dynalist("NJFièvre") <> zero) And (Dynalist("Zone de Santé")) = Nom And Right((Dynalist("Date")), 7) = moi Then
tmpfievre = True

ElseIf Dynalist("Fièvre") = "1" And IsNull(Dynalist("NJFièvre")) And (Dynalist("Zone de Santé")) = Nom And Right((Dynalist("Date")), 7) = moi Then
tmpfievre = False
'msgbox ("Faux")
End If
If (Dynalist("Diarrhée") = "1" And Dynalist("NJDiarrhée") <> zero) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
tmpdiarrhee = True
ElseIf Dynalist("Diarrhée") = "1" And IsNull(Dynalist("NJDiarrhée")) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
tmpdiarrhee = False
End If
If (Dynalist("Toux") = "1" And Dynalist("NJToux") <> zero) And (Dynalist("Zone de Santé")) = Nom And Right((Dynalist("Date")), 7) = moi Then
tmptoux = True
ElseIf Dynalist("Toux") = "1" And IsNull(Dynalist("NJToux")) And (Dynalist("Zone de Santé")) = Nom And Right((Dynalist("Date")), 7) = moi Then
tmptoux = False
End If
If (tmpfievre = True And tmpdiarrhee = True And tmptoux = True) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui2 = CompteOui2 + 1
ElseIf (tmpfievre = False Or tmpdiarrhee = False Or tmptoux = False) And (Dynalist("Zone de Santé")) = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon2 = CompteNon2 + 1
End If

'3. RECHERCHER DE SIGNES DE DANGER OU D'ALERTE

'If Dynalist("N1-2") <> zero And Dynalist("SNER") <> zero And Dynalist("EIBT") <> zero And Dynalist("EVT") <> zero And Dynalist("EC") <> zero And Dynalist("EI") <> zero And Dynalist("APP") <> zero And Dynalist("RDTS") <> zero And Dynalist("TM15J") <> zero And Dynalist("ESM") <> zero And Dynalist("EDPMMS") <> zero And Dynalist("ETA") <> zero And (Dynalist("Zone de Santé")) = nom And Right((Dynalist("Date")), 7) = moi Then
' CompteOui3 = CompteOui3 + 1
'Else
' CompteNon3 = CompteNon3 + 1
'End If

'4. FIEVRE

If Dynalist("Repfievre") = "2" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui4 = CompteOui4 + 1
ElseIf ((((Dynalist("C4A") = True Or Dynalist("C4B") = True) And (Dynalist("Repfievre") = "1" <> zero Or Dynalist("Fièvre") = "1")) And (Dynalist("FC2JT") = True Or Dynalist("FEC") = True Or Dynalist("SiPABP") = True Or Dynalist("REF1") = "1" <> zero Or Dynalist("PALU") = "Paludisme") <> zero)) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui4 = CompteOui4 + 1
Else
CompteNon4 = CompteNon4 + 1
End If

'5. DIARRHEE

If Dynalist("Repdiar") = "2" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui5 = CompteOui5 + 1
ElseIf ((Dynalist("Repdiar") <> zero Or (Dynalist("SD") = True Or Dynalist("SS") = True Or Dynalist("DTL") = True Or Dynalist("SiTABDS") = True) Or (Dynalist("REF2") = zero) Or ((Dynalist("DIAS") <> zero)))) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui5 = CompteOui5 + 1
ElseIf (Dynalist("Repdiar") = zero And (Dynalist("SD") = False And Dynalist("SS") = False And Dynalist("DTL") = False And Dynalist("SiTABDS") = False)) And (IsNull(Dynalist("REF2")) And IsNull(Dynalist("DIAS"))) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon5 = CompteNon5 + 1
End If

'6. TOUX OU RHUME

If ((((Dynalist("RepTouxR")) <> zero Or Dynalist("Toux") <> zero) And (Dynalist("MRPM") <> zero) Or (Dynalist("MVT50+") = True Or Dynalist("MVT40+") = True Or Dynalist("MVT50m") = True Or Dynalist("MVT40m") = True) And (Not (IsNull(Dynalist("ResRap"))) Or Dynalist("TOUR") <> zero))) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui6 = CompteOui6 + 1
ElseIf ((IsNull(Dynalist("RepTouxR")) And IsNull(Dynalist("Toux")) And Dynalist("MRPM") = zero) And (Dynalist("MVT50+") = False And Dynalist("MVT40+") = False And Dynalist("MVT50m") = False And Dynalist("MVT40m") = False) And (IsNull(Dynalist("ResRap"))) And Dynalist("TOUR") = zero) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon6 = CompteNon6 + 1
End If

'7. MALNUTRITION

If (Dynalist("POIDFAIB") = True Or Dynalist("POIDSTAT") = True Or Dynalist("POIDNORM") = True Or Dynalist("OEDEMES") = True Or Dynalist("PASIGNMAL") = True Or Dynalist("AMAIGRIS") = True Or Dynalist("MALNUTRISEV") <> zero Or Dynalist("MALNUTRILEG") <> zero Or Dynalist("PASMALNUTRI") <> zero) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui7 = CompteOui7 + 1

ElseIf (Dynalist("POIDFAIB") = False And Dynalist("POIDSTAT") = False And Dynalist("POIDNORM") = False And Dynalist("OEDEMES") = False And Dynalist("PASIGNMAL") = fla Or Dynalist("AMAIGRIS") = True Or Dynalist("MALNUTRISEV") <> zero Or Dynalist("MALNUTRILEG") <> zero Or Dynalist("PASMALNUTRI") <> zero) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon7 = CompteNon7 + 1
End If

'8. RATTRAPAGE

If Dynalist("EOPESE") <> zero And Dynalist("EOVAC") <> zero And Dynalist("EOVIT") <> zero And Dynalist("EOP") <> zero And Dynalist("EOVitA") <> zero And Dynalist("EOV") <> zero And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui8 = CompteOui8 + 1
Else
CompteNon8 = CompteNon8 + 1
End If
'9. AUTRES PROBLEMES

If ((Dynalist("AUTREBLEM") = True And Dynalist("AutrePl") <> zero)) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui9 = CompteOui9 + 1
ElseIf (Dynalist("AUTREBLEM") = True And IsNull(Dynalist("AutrePl"))) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon9 = CompteNon9 + 1
End If

'10. CONSEILS POUR LE CAS A REFERER

If Dynalist("CASREF") = "1" And (Dynalist("C10A") = True Or Dynalist("C10B") = True Or Dynalist("C10C") = True Or Dynalist("C10D") = True Or Dynalist("C10E") = True Or Dynalist("C10F") = True Or Dynalist("C10G") = True) And (Dynalist("Zone de Santé")) = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui10 = CompteOui10 + 1

ElseIf Dynalist("CASREF") = "1" And (Dynalist("C10A") = False And Dynalist("C10B") = False And Dynalist("C10C") = False And Dynalist("C10D") = False And Dynalist("C10E") = False And Dynalist("C10F") = False And Dynalist("C10G") = False) And (Dynalist("Zone de Santé")) = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon10 = CompteNon10 + 1

End If
'11 TRAITEMENT

If ((Dynalist("PALU") = "1" And (Dynalist("cocher18") = True Or Dynalist("cocher19") = True Or Dynalist("cocher21") = True Or Dynalist("cocher22") = True Or Dynalist("cocher23") = True)) Or (Dynalist("DIAS") = "1" And (Dynalist("cocher25") = True Or Dynalist("cocher26") = True Or Dynalist("cocher27") = True Or Dynalist("cocher28") = True Or Dynalist("cocher29") = True)) Or (Dynalist("TOUR") = "1" And (Dynalist("cocher39") = True Or Dynalist("cocher40") = True)) Or (Dynalist("RESRAP") = "1" And (Dynalist("cocher34") = True Or Dynalist("cocher35") = True Or Dynalist("cocher36") = True Or Dynalist("cocher37") = True Or Dynalist("cocher38") = True Or Dynalist("cocher39") = True)) Or (Dynalist("MALNUTRILEG") = "Malnutrition Légère" And (Dynalist("cocher31") = True Or Dynalist("cocher32") = True))) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui11 = CompteOui11 + 1
ElseIf ((Dynalist("PALU") = "1" And (Dynalist("cocher18") = False And Dynalist("cocher19") = False And Dynalist("cocher21") = False And Dynalist("cocher22") = False And Dynalist("cocher23") = False)) Or (Dynalist("DIAS") = "1" And (Dynalist("cocher25") = False And Dynalist("cocher26") = False And Dynalist("cocher27") = False And Dynalist("cocher28") = False And Dynalist("cocher29") = False)) Or (Dynalist("TOUR") = "1" And (Dynalist("cocher39") = False And Dynalist("cocher40") = False)) Or (Dynalist("RESRAP") = "1" And (Dynalist("cocher34") = False And Dynalist("cocher35") = False And Dynalist("cocher36") = False And Dynalist("cocher37") = False And Dynalist("cocher38") = False And Dynalist("cocher39") = False)) Or (Dynalist("MALNUTRILEG") = "Malnutrition Légère" And (Dynalist("cocher31") = False And Dynalist("cocher32") = False))) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon11 = CompteNon11 + 1
End If

'12 CONSEILS RATTRAPAGE

If (((Dynalist("EOP") = "1" Or Dynalist("EOV") = "1" Or Dynalist("EOVitA") = "1")) And Dynalist("C12") = True) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui12 = CompteOui12 + 1
ElseIf (((Dynalist("EOP") = "1" Or Dynalist("EOV") = "1" Or Dynalist("EOVitA") = "1")) And Dynalist("C12") = False) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon12 = CompteNon12 + 1
End If

'****************************************************
'CONCORDANCE ENTRE SIGNES/SYMPTOMES ET CLASSIFICATION
'****************************************************

''FIEVRE

If (Dynalist("RepFievre") = 1) Or Dynalist("Fièvre") = 1 And Dynalist("REF1") <> 1 And (Dynalist("FC2JT") = 1 Or Dynalist("FEC") = 1) And Dynalist("SiPABP") <> 1 And Dynalist("PALU") <> 1 And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui16 = CompteOui16 + 1

ElseIf (Dynalist("RepFievre") = "1" Or Dynalist("Fièvre") = "1") And Dynalist("REF1") <> "1" And (Dynalist("FC2JT") <> "1" And Dynalist("FEC") <> "1") And Dynalist("SiPABP") = "1" And Dynalist("PALU") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui16 = CompteOui16 + 1

ElseIf Dynalist("RepFievre") = "1" And Dynalist("REF1") <> "1" And Dynalist("FC2JT") = False And Dynalist("FEC") = False And Dynalist("PALU") = zero And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon16 = CompteNon16 + 1
ElseIf Dynalist("RepFievre") = "1" And Dynalist("REF1") <> "1" And Dynalist("FC2JT") = False And Dynalist("FEC") = False And Dynalist("PALU") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon16 = CompteNon16 + 1
ElseIf Dynalist("RepFievre") = "1" And Dynalist("REF1") <> "1" And Dynalist("FC2JT") = True And Dynalist("PALU") = zero And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon16 = CompteNon16 + 1

ElseIf Dynalist("RepFievre") = "1" And Dynalist("REF1") <> "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon16 = CompteNon16 + 1
End If

''DIARRHEE

If Dynalist("RepDiar") = "1" And Dynalist("REF2") = "1" And (Dynalist("SD") = "1" Or Dynalist("SS") = "1" Or Dynalist("DTL") = "1") And Dynalist("SiTABDS") <> "1" And Dynalist("DIAS") <> "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui17 = CompteOui17 + 1
ElseIf Dynalist("RepDiar") = "1" And Dynalist("REF2") <> "1" And (Dynalist("SD") <> "1" Or Dynalist("SS") <> "1" Or Dynalist("DTL") <> "1") And Dynalist("DIAS") = "1" And Dynalist("SiTABDS") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui17 = CompteOui17 + 1

ElseIf Dynalist("RepDiar") = "1" And (Dynalist("SD") = "1" Or Dynalist("SS") = "1" Or Dynalist("DTL") = "1") And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon17 = CompteNon17 + 1
ElseIf Dynalist("RepDiar") = "1" And Dynalist("REF2") = "1" And (Dynalist("SD") <> "1" Or Dynalist("SS") <> "1" Or Dynalist("DTL") <> "1") And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon17 = CompteNon17 + 1
ElseIf Dynalist("RepDiar") = "1" And Dynalist("SiTABDS") <> "1" And Dynalist("DIAS") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon17 = CompteNon17 + 1
ElseIf Dynalist("RepDiar") = "1" And Dynalist("SiTABDS") = "1" And Dynalist("DIAS") <> "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon17 = CompteNon17 + 1

End If

''PNEUMONIE

If Dynalist("agemois") <= 12 And Dynalist("MRPM") >= 50 And Dynalist("ResRap") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui18 = CompteOui18 + 1

ElseIf Dynalist("age") >= 1 And Dynalist("MRPM") >= 40 And Dynalist("ResRap") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui18 = CompteOui18 + 1
ElseIf Dynalist("agemois") <= 12 And Dynalist("MRPM") >= 50 And Dynalist("ResRap") <> "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon18 = CompteNon18 + 1
ElseIf Dynalist("age") >= 1 And Dynalist("MRPM") >= 40 And Dynalist("ResRap") <> "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon18 = CompteNon18 + 1

ElseIf Dynalist("agemois") <= 12 And IsNull(Dynalist("MRPM")) And Dynalist("ResRap") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon18 = CompteNon18 + 1
ElseIf IsNull(Dynalist("agemois")) And IsNull(Dynalist("MRPM")) And Dynalist("ResRap") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon18 = CompteNon18 + 1
ElseIf ((Dynalist("age") >= 1 And Dynalist("MRPM") >= 40) Or (Dynalist("agemois") <= 12 And Dynalist("MRPM") >= 50)) And Dynalist("ResRap") <> "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon18 = CompteNon18 + 1
End If

'' TOUX/RHUME

If Dynalist("agemois") <= 12 And Dynalist("MRPM") < 50 And Dynalist("TOUR") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui20 = CompteOui20 + 1
ElseIf Dynalist("age") >= 1 And Dynalist("MRPM") < 40 And Dynalist("TOUR") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui20 = CompteOui20 + 1
End If

If Dynalist("agemois") <= 12 And Dynalist("MRPM") < 50 And Dynalist("TOUR") <> "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon20 = CompteNon20 + 1
ElseIf Dynalist("age") >= 1 And Dynalist("MRPM") < 40 And Dynalist("TOUR") <> "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon20 = CompteNon20 + 1
ElseIf Dynalist("agemois") <= 12 And IsNull(Dynalist("MRPM")) And Dynalist("TOUR") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon20 = CompteNon20 + 1
ElseIf IsNull(Dynalist("agemois")) And IsNull(Dynalist("MRPM")) And Dynalist("TOUR") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon20 = CompteNon20 + 1
ElseIf ((Dynalist("age") >= 1 And Dynalist("MRPM") < 40) Or (Dynalist("agemois") <= 12 And Dynalist("MRPM") < 50)) And Dynalist("TOUR") <> "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon20 = CompteNon20 + 1
End If

'MALNUTRITION

If ((Dynalist("AMAIGRIS") = "1" Or Dynalist("OEDEMES") = "1") And Dynalist("MALNUTRISEV") = "1") And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui21 = CompteOui21 + 1
ElseIf ((Dynalist("POIDFAIB") = "1" Or Dynalist("POIDSTAT") = "1") And (Dynalist("MALNUTRILEG") = "1")) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui21 = CompteOui21 + 1
ElseIf (Dynalist("POIDNORM") = "1" Or Dynalist("PASIGNMAL") = "1") And Dynalist("PASMALNUTRI") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui21 = CompteOui21 + 1
End If

If ((Dynalist("AMAIGRIS") = "1" Or Dynalist("OEDEMES") = "1") And Dynalist("MALNUTRISEV") = "0") And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon21 = CompteNon21 + 1
ElseIf ((Dynalist("AMAIGRIS") = "0" And Dynalist("OEDEMES") = "0") And Dynalist("MALNUTRISEV") = "1") And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon21 = CompteNon21 + 1

ElseIf ((Dynalist("POIDFAIB") = "0" Or Dynalist("POIDSTAT") = "0") And (Dynalist("MALNUTRILEG") = "1")) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon21 = CompteNon21 + 1
ElseIf ((Dynalist("POIDFAIB") = "1" And Dynalist("POIDSTAT") = "1") And (Dynalist("MALNUTRILEG") = "0")) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon21 = CompteNon21 + 1

ElseIf (Dynalist("POIDNORM") = "1" Or Dynalist("PASIGNMAL") = "1") And Dynalist("PASMALNUTRI") = "0" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon21 = CompteNon21 + 1

ElseIf (Dynalist("POIDNORM") = "0" And Dynalist("PASIGNMAL") = "0") And Dynalist("PASMALNUTRI") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon21 = CompteNon21 + 1

End If

'CONCORDANCE ENTRE CLASSIFICATION ET TRAITEMENT/ACTION

'' SIGNES DE DANGER/ALERTE

End If

''FIEVRE

If Dynalist("PALU") = "1" And Dynalist("SP1") = False And Dynalist("SP2") = False And Dynalist("SP3") = False And ((Dynalist("cocher18") = True Or Dynalist("cocher19") = True Or Dynalist("cocher21") = True) And (Dynalist("cocher22") = True Or Dynalist("cocher23") = True)) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui23 = CompteOui23 + 1
ElseIf Dynalist("PALU") = "1" And (Dynalist("SP1") = True Or Dynalist("SP2") = True Or Dynalist("SP3") = True) And ((Dynalist("cocher18") = False And Dynalist("cocher19") = False And Dynalist("cocher21") = False) And (Dynalist("cocher22") = True Or Dynalist("cocher23") = True)) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui23 = CompteOui23 + 1
ElseIf Dynalist("PALU") = "1" And Dynalist("SP1") = False And Dynalist("SP2") = False And Dynalist("SP3") = False And ((Dynalist("cocher18") = True Or Dynalist("cocher19") = True Or Dynalist("cocher21") = True) And (Dynalist("cocher22") = False And Dynalist("cocher23") = False)) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon23 = CompteNon23 + 1
ElseIf Dynalist("PALU") = "1" And Dynalist("SP1") = False And Dynalist("SP2") = False And Dynalist("SP3") = False And ((Dynalist("cocher18") = False And Dynalist("cocher19") = False And Dynalist("cocher21") = False) And (Dynalist("cocher22") = True Or Dynalist("cocher23") = True)) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon23 = CompteNon23 + 1
ElseIf Dynalist("PALU") = "1" And (Dynalist("SP1") = True Or Dynalist("SP2") = True Or Dynalist("SP3") = True) And ((Dynalist("cocher18") = False And Dynalist("cocher19") = False And Dynalist("cocher21") = False) And (Dynalist("cocher22") = False And Dynalist("cocher23") = False)) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon23 = CompteNon23 + 1
ElseIf Dynalist("PALU") = "1" And Dynalist("SP1") = False And Dynalist("SP2") = False And Dynalist("SP3") = False And ((Dynalist("cocher18") = False And Dynalist("cocher19") = False And Dynalist("cocher21") = False) And (Dynalist("cocher22") = False And Dynalist("cocher23") = False)) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon23 = CompteNon23 + 1
End If

''DIARRHEE

If Dynalist("DIAS") = "1" And (Dynalist("cocher25") = True Or Dynalist("cocher26") = True) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui24 = CompteOui24 + 1
ElseIf Dynalist("DIAS") = "1" And Dynalist("cocher25") = False And Dynalist("cocher26") = False And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon24 = CompteNon24 + 1
ElseIf Dynalist("DIAS") = "1" And (Dynalist("cocher25") = True Or Dynalist("cocher26") = True) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon24 = CompteNon24 + 1
ElseIf (Dynalist("DIAS") = "1" And (Dynalist("cocher25") = False And Dynalist("cocher26") = False)) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon24 = CompteNon24 + 1
End If

'' PNEUMONIE

If (Dynalist("RESRAP") = "1" And (Dynalist("cocher34") = True Or Dynalist("cocher35") = True Or Dynalist("cocher36") = True)) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui25 = CompteOui25 + 1
FPT1 = True
FPT1 = True
ElseIf (Dynalist("RESRAP") = "1" And (Dynalist("cocher34") = False And Dynalist("cocher35") = False And Dynalist("cocher36") = False)) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon25 = CompteNon25 + 1
FPTN1 = True
FPTN1 = True
End If

'' FIEVRE + PNEUMONIE

If Dynalist("PALU") = "1" And Dynalist("RESRAP") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
If ((Dynalist("SP1") = False And Dynalist("SP2") = False And Dynalist("SP3") = False And ((Dynalist("cocher18") = True Or Dynalist("cocher19") = True Or Dynalist("cocher21") = True) And (Dynalist("cocher22") = True Or Dynalist("cocher23") = True))) And ((Dynalist("cocher34") = True Or Dynalist("cocher35") = True Or Dynalist("cocher36") = True))) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui26 = CompteOui26 + 1

ElseIf (Dynalist("SP1") = True Or Dynalist("SP2") = True Or Dynalist("SP3") = True) And ((Dynalist("cocher18") = False And Dynalist("cocher19") = False And Dynalist("cocher21") = False) And (Dynalist("cocher22") = True Or Dynalist("cocher23") = True)) And (Dynalist("cocher34") = True Or Dynalist("cocher35") = True Or Dynalist("cocher36") = True) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui26 = CompteOui26 + 1

ElseIf ((Dynalist("PALU") = "1" And Dynalist("SP1") = False And Dynalist("SP2") = False And Dynalist("SP3") = False And ((Dynalist("cocher18") = True Or Dynalist("cocher19") = True Or Dynalist("cocher21") = True) And (Dynalist("cocher22") = False And Dynalist("cocher23") = False))) And (Dynalist("RESRAP") = "1" And (Dynalist("cocher34") = False And Dynalist("cocher35") = False And Dynalist("cocher36") = False))) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon26 = CompteNon26 + 1
ElseIf ((Dynalist("SP1") = False And Dynalist("SP2") = False And Dynalist("SP3") = False And ((Dynalist("cocher18") = False And Dynalist("cocher19") = False And Dynalist("cocher21") = False) And (Dynalist("cocher22") = True Or Dynalist("cocher23") = True))) And (Dynalist("RESRAP") = "1" And (Dynalist("cocher34") = False And Dynalist("cocher35") = False And Dynalist("cocher36") = False))) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon26 = CompteNon26 + 1

ElseIf (((Dynalist("SP1") = True Or Dynalist("SP2") = True Or Dynalist("SP3") = True) And ((Dynalist("cocher18") = False And Dynalist("cocher19") = False And Dynalist("cocher21") = False) And (Dynalist("cocher22") = False And Dynalist("cocher23") = False))) And (Dynalist("RESRAP") = "1" And (Dynalist("cocher34") = False And Dynalist("cocher35") = False And Dynalist("cocher36") = False))) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon26 = CompteNon26 + 1

ElseIf ((Dynalist("SP1") = False And Dynalist("SP2") = False And Dynalist("SP3") = False And ((Dynalist("cocher18") = False And Dynalist("cocher19") = False And Dynalist("cocher21") = False) And (Dynalist("cocher22") = False And Dynalist("cocher23") = False))) And (Dynalist("RESRAP") = "1" And (Dynalist("cocher34") = False And Dynalist("cocher35") = False And Dynalist("cocher36") = False))) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon26 = CompteNon26 + 1
End If
End If

'' TOUX/RHUME

If Dynalist("cocher39") = True And Dynalist("TOUR") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui27 = CompteOui27 + 1
ElseIf Dynalist("cocher39") = False And Dynalist("TOUR") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon27 = CompteNon27 + 1
ElseIf (Dynalist("cocher34") = True Or Dynalist("cocher35") = True Or Dynalist("cocher36") = True) And Dynalist("TOUR") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon27 = CompteNon27 + 1
ElseIf (Dynalist("cocher34") = True Or Dynalist("cocher35") = True Or Dynalist("cocher36") = True) And Dynalist("cocher39") = True And Dynalist("TOUR") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon27 = CompteNon27 + 1

End If
'' MALNUTRITION
If Dynalist("MALNUTRILEG") = "1" And Dynalist("cocher31") = True And Dynalist("cocher32") = True And Dynalist("cocher45") = True And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui28 = CompteOui28 + 1
ElseIf Dynalist("MALNUTRILEG") = "1" And (Dynalist("cocher31") = False Or Dynalist("cocher32") = False Or Dynalist("cocher45") = False) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon28 = CompteNon28 + 1
End If

'***************************************
'CONCORDANCE ENTRE AGE ET DOSE
'***************************************

''REFERENCE

' SIGNE DE DANGER ET FIEVRE

'If Dynalist("CASREF") = "1" And (Dynalist("AgeMois") > 2 Or Dynalist("Age") > 0) And (Dynalist("Fièvre") = "Oui" And (Dynalist("C10C") = True Or Dynalist("C10D") = True Or Dynalist("C10E") = True)) And (Dynalist("Zone de Santé")) = nom And Right((Dynalist("Date")), 7) = moi Then
'CompteOui29 = CompteOui29 + 1

' SIGNE DE DANGER ET DIARRHEE

'ElseIf Dynalist("CASREF") = "1" And (Dynalist("AgeMois") > 2 Or Dynalist("Age") > 0) And (Dynalist("C10A") = True And (Dynalist("Diarrhée") = "Oui" And Dynalist("C10F") = True)) And (Dynalist("Zone de Santé")) = nom And Right((Dynalist("Date")), 7) = moi Then
'CompteOui29 = CompteOui29 + 1

' SIGNE DE DANGER AVEC FIEVRE ET DIARRHEE

'ElseIf Dynalist("CASREF") = "1" And (Dynalist("AgeMois") > 2 Or Dynalist("Age") > 0) And (Dynalist("C10A") = True And (Dynalist("Fièvre") = "Oui" And (Dynalist("C10C") = True Or Dynalist("C10D") = True Or Dynalist("C10E") = True))) And (Dynalist("Diarrhée") = "Oui" And Dynalist("C10F") = True) And (Dynalist("Zone de Santé")) = nom And Right((Dynalist("Date")), 7) = moi Then
'CompteOui29 = CompteOui29 + 1

' SIGNE DE DANGER SANS FIEVRE NI DIARRHEE

'ElseIf Dynalist("CASREF") = "1" And (Dynalist("AgeMois") > 2 Or Dynalist("Age") > 0) And (Dynalist("C10A") = True And Dynalist("Zone de Santé")) = nom And Right((Dynalist("Date")), 7) = moi Then
'CompteOui29 = CompteOui29 + 1

'NOURRISSON 1 A 2 MOIS AVEC SIGNE DE DANGER

'ElseIf Dynalist("AgeMois") < 2 And (Dynalist("N1-2") = "Oui" And (Dynalist("C10B") = True) And Dynalist("Zone de Santé")) = nom And Right((Dynalist("Date")), 7) = moi Then
'CompteOui29 = CompteOui29 + 1
'NOURRISSON AVEC FIEVRE

'ElseIf Dynalist("AgeMois") < 2 And (Dynalist("N1-2") = "Oui" And Dynalist("Fièvre") = "Oui" And (Dynalist("C10B") = True) And Dynalist("Zone de Santé")) = nom And Right((Dynalist("Date")), 7) = moi Then
'CompteOui29 = CompteOui29 + 1

'NOURRISSON AVEC DIARRHEE

'ElseIf Dynalist("AgeMois") < 2 And (Dynalist("N1-2") = "Oui" And (Dynalist("C10B") = True And (Dynalist("Diarrhée") = "Oui" Or Dynalist("RepDiar") = "Oui") And Dynalist("C10F") = True) And Dynalist("Zone de Santé")) = nom And Right((Dynalist("Date")), 7) = moi Then
'CompteOui29 = CompteOui29 + 1

'NOURRISSON AVEC FIEVRE ET DIARRHEE

'ElseIf Dynalist("AgeMois") < 2 And (Dynalist("N1-2") = "Oui" And (Dynalist("C10B") = True And (Dynalist("Fièvre") = "Oui" And (Dynalist("C10C") = True))) And (Dynalist("Diarrhée") = "Oui" And Dynalist("C10F") = True)) And (Dynalist("Zone de Santé")) = nom And Right((Dynalist("Date")), 7) = moi Then
'CompteOui29 = CompteOui29 + 1

' SIGNE DE DANGER SANS FIEVRE NI DIARRHEE

'ElseIf Dynalist("AgeMois") < 2 And (Dynalist("N1-2") = "Oui" And (Dynalist("C10B") = True)) And (Dynalist("Zone de Santé")) = nom And Right((Dynalist("Date")), 7) = moi Then
'CompteOui29 = CompteOui29 + 1

''FIEVRE

If Dynalist("cocher18") = True And Dynalist("cocher22") = False And Dynalist("cocher23") = False And Dynalist("PALU") = "1" And (Dynalist("Agemois") >= 2 And Dynalist("Agemois") < 7 And IsNull(Dynalist("Age"))) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui30 = CompteOui30 + 1
ElseIf Dynalist("cocher19") = True And Dynalist("cocher22") = False And Dynalist("cocher23") = False And Dynalist("PALU") = "1" And (Dynalist("Agemois") >= 7 And Dynalist("Agemois") < 12 And IsNull(Dynalist("Age"))) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui30 = CompteOui30 + 1
ElseIf Dynalist("cocher21") = True And Dynalist("cocher22") = False And Dynalist("cocher23") = False And Dynalist("PALU") = "1" And ((Dynalist("Agemois") >= 12 And Dynalist("Agemois") < 59 And IsNull(Dynalist("Age"))) Or ((Dynalist("Age") >= 1 And Dynalist("Age") < 5) And (Dynalist("Agemois") >= 1 And Dynalist("Agemois") < 12)) Or (Dynalist("Age") >= 1 And Dynalist("Age") < 5) And IsNull(Dynalist("Agemois"))) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui30 = CompteOui30 + 1
ElseIf Dynalist("cocher22") = True And Dynalist("cocher18") = False And Dynalist("cocher19") = False And Dynalist("cocher21") = False And Dynalist("PALU") = "1" And (Dynalist("Agemois") < 36 Or (Dynalist("Age") < 3 And (Dynalist("Agemois") >= 1 And Dynalist("Agemois") < 12))) Or (Dynalist("Age") <= 3 And IsNull(Dynalist("Agemois"))) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui30 = CompteOui30 + 1
ElseIf Dynalist("cocher23") = True And Dynalist("cocher18") = False And Dynalist("cocher19") = False And Dynalist("cocher21") = False And Dynalist("PALU") = "1" And (Dynalist("Agemois") > 36 Or (Dynalist("Age") > 3 And (Dynalist("Agemois") >= 1 And Dynalist("Agemois") < 12))) Or (Dynalist("Age") >= 3 And IsNull(Dynalist("Agemois"))) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui30 = CompteOui30 + 1
ElseIf (Dynalist("SP1") = True Or Dynalist("SP2") = True Or Dynalist("SP3") = True) And Dynalist("PALU") = "1" And Dynalist("cocher23") = True And (Dynalist("Agemois") >= 36 Or (Dynalist("Age") >= 3 And (Dynalist("Agemois") >= 1 And Dynalist("Agemois") < 12))) Or (Dynalist("Age") >= 3 And IsNull(Dynalist("Agemois"))) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui30 = CompteOui30 + 1
ElseIf (Dynalist("SP1") = True Or Dynalist("SP2") = True Or Dynalist("SP3") = True) And Dynalist("cocher22") = True And Dynalist("PALU") = "1" And (Dynalist("Agemois") <= 36 Or Dynalist("Age") <= 3) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui30 = CompteOui30 + 1
End If

'partie non

If (Dynalist("AgeMois") >= 2 And Dynalist("AgeMois") < 7) And Dynalist("PALU") = "1" And Dynalist("cocher18") = True And Dynalist("cocher22") = True And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon30 = CompteNon30 + 1
ElseIf ((Dynalist("AgeMois") >= 7 And Dynalist("AgeMois") < 12) And Dynalist("PALU") = "1" And Dynalist("cocher19") = True And Dynalist("cocher22") = True) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon30 = CompteNon30 + 1
ElseIf (((Dynalist("Age") < 3 And Dynalist("AgeMois") < 59) Or Dynalist("Agemois") >= 12) And Dynalist("PALU") = "1" And Dynalist("cocher21") = True And Dynalist("cocher23") = True) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon30 = CompteNon30 + 1
ElseIf (Dynalist("PALU") = "1" And (Dynalist("SP1") = True Or Dynalist("SP2") = True Or Dynalist("SP3") = True)) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon30 = CompteNon30 + 1
End If

''DIARRHEE

If Dynalist("DIAS") = "1" And (Dynalist("Age") < 2 Or Dynalist("agemois") < 24) And Dynalist("cocher25") = True And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui31 = CompteOui31 + 1
ElseIf Dynalist("DIAS") = "1" And (Dynalist("Age") > 2 Or Dynalist("agemois") > 24) And Dynalist("cocher26") = True And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui31 = CompteOui31 + 1
End If
If Dynalist("DIAS") = "1" And Not ((Dynalist("Age") < 2 Or Dynalist("agemois") < 24)) And Dynalist("cocher25") = True And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon31 = CompteNon31 + 1
ElseIf Dynalist("DIAS") = "1" And Not ((Dynalist("Age") > 2 Or Dynalist("agemois") > 24)) And Dynalist("cocher26") = True And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon31 = CompteNon31 + 1
End If

''PNEUMONIE

If Dynalist("AgeMois") >= 2 And Dynalist("AgeMois") < 6 And IsNull(Dynalist("Age")) And Dynalist("cocher34") = True And Dynalist("RESRAP") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui32 = CompteOui32 + 1
ElseIf Dynalist("AgeMois") >= 2 And Dynalist("AgeMois") < 6 And IsNull(Dynalist("Age")) And Dynalist("cocher34") = False And Dynalist("RESRAP") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon32 = CompteNon32 + 1
ElseIf (Dynalist("Age") < 3 Or Dynalist("AgeMois") >= 6) And Dynalist("cocher35") = True And Dynalist("RESRAP") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui32 = CompteOui32 + 1
ElseIf (Dynalist("Age") < 3 Or Dynalist("AgeMois") >= 6) And Dynalist("cocher35") = False And Dynalist("RESRAP") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon32 = CompteNon32 + 1

ElseIf Dynalist("Age") >= 3 And Dynalist("RESRAP") = "1" And Dynalist("cocher36") = True And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui32 = CompteOui32 + 1
ElseIf Dynalist("Age") >= 3 And Dynalist("RESRAP") = "1" And Dynalist("cocher36") = False And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon32 = CompteNon32 + 1
End If

'e) Toux/Rhume

If Not (IsNull(Dynalist("Age"))) Or Not (IsNull(Dynalist("AgeMois"))) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
If Dynalist("cocher39") = True And Dynalist("TOUR") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui34 = CompteOui34 + 1
ElseIf Dynalist("cocher39") = False And Dynalist("TOUR") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon34 = CompteNon34 + 1
ElseIf (Dynalist("cocher34") = True Or Dynalist("cocher35") = True Or Dynalist("cocher36") = True) And Dynalist("TOUR") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon34 = CompteNon34 + 1
ElseIf (Dynalist("cocher34") = True Or Dynalist("cocher35") = True Or Dynalist("cocher36") = True) And Dynalist("cocher39") = True And Dynalist("TOUR") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon34 = CompteNon34 + 1

End If
End If

''Malnutrition

If Dynalist("MALNUTRILEG") = "1" And Dynalist("cocher31") = True Or Dynalist("cocher32") = True And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui35 = CompteOui35 + 1
ElseIf Dynalist("MALNUTRILEG") = "1" And (Dynalist("cocher31") = False And Dynalist("cocher32") = False) And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon35 = CompteNon35 + 1
End If

'' VISITE DE SUIVI EFFECTUEE
If Dynalist("VISITE") = "1" And Dynalist("Zone de Santé") = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui36 = CompteOui36 + 1
Else
CompteNon36 = CompteNon36 + 1
End If
'CONCORDANCE ENTRE SIGNES/SYMPTOMES, CLASSIFICATION ET ACTION LORS DU SUIVI
'cas du oui
If ((Dynalist("MereRev") = True Or Dynalist("MerePasRev") = True Or Dynalist("RevQuand") <> zero Or Dynalist("WhyPasRev") <> zero Or Dynalist("ETENFAGR") <> zero Or Dynalist("ENFPLIANTE") <> zero Or Dynalist("C13B") = True Or Dynalist("C13G1") = True Or Dynalist("C13G2") = True Or Dynalist("C13G3") = True Or Dynalist("RESPRAPIDE") <> zero Or Dynalist("Nbre de Mvts") <> zero Or Dynalist("dose") <> zero) And Dynalist("EIBT2") <> zero And Dynalist("EVT2") <> zero And Dynalist("EC2") <> zero And Dynalist("EI2") <> zero And Dynalist("APP2") <> zero And Dynalist("RDTS2") <> zero And Dynalist("EDPM") <> zero And Dynalist("FPMT") <> zero And Dynalist("DESHYDRA") <> zero And Dynalist("AECP") <> zero And Dynalist("SDSelles") <> zero And Dynalist("DIATLIQUID") <> zero And Dynalist("APANORMAL") <> zero) And (Dynalist("Zone de Santé")) = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteOui37 = CompteOui37 + 1
End If
If ((Dynalist("MereRev") = True Or Dynalist("MerePasRev") = True Or Dynalist("RevQuand") <> zero Or Dynalist("WhyPasRev") <> zero Or Dynalist("ETENFAGR") <> zero Or Dynalist("ENFPLIANTE") <> zero Or Dynalist("C13B") = True Or Dynalist("C13G1") = True Or Dynalist("C13G2") = True Or Dynalist("C13G3") = True Or Dynalist("RESPRAPIDE") <> zero Or Dynalist("Nbre de Mvts") <> zero Or Not (IsNull(Dynalist("Nbre de Mvts"))) Or Dynalist("dose") <> zero) And (Dynalist("EIBT2") = zero Or Dynalist("EVT2") = zero Or Dynalist("EC2") = zero Or Dynalist("EI2") = zero Or Dynalist("APP2") = zero Or Dynalist("RDTS2") = zero Or Dynalist("EDPM") = zero Or Dynalist("FPMT") = zero Or Dynalist("DESHYDRA") = zero Or Dynalist("AECP") = zero Or Dynalist("SDSelles") = zero Or Dynalist("DIATLIQUID") = zero Or Dynalist("APANORMAL") = zero)) And (Dynalist("Zone de Santé")) = Nom And Right((Dynalist("Date")), 7) = moi Then
CompteNon37 = CompteNon37 + 1
End If

Dynalist.MoveNext

Loop

ouiId.Value = CompteOui
nonId.Value = CompteNon
ouiId2.Value = CompteOui2
nonId2.Value = CompteNon2
ouiId.Value = CompteOui
nonId.Value = CompteNon
ouiId3.Value = AffSigne()
nonId3.Value = AffSigneN()
ouiId4.Value = CompteOui4
nonId4.Value = CompteNon4
ouiId5.Value = CompteOui5
nonId5.Value = CompteNon5
ouiId6.Value = CompteOui6
nonId6.Value = CompteNon6
ouiId7.Value = CompteOui7
nonId7.Value = CompteNon7
ouiId8.Value = CompteOui8
nonId8.Value = CompteNon8
ouiId9.Value = CompteOui9
nonId9.Value = CompteNon9
ouiId10.Value = CompteOui10
nonId10.Value = CompteNon10
ouiId11.Value = CompteOui11
nonId11.Value = CompteNon11
ouiId12.Value = CompteOui12
nonId12.Value = CompteNon12
ouiId16.Value = CompteOui16
nonId16.Value = CompteNon16
ouiId17.Value = CompteOui17
nonId17.Value = CompteNon17
ouiId18.Value = CompteOui18
nonId18.Value = CompteNon18
ouiId19.Value = AffFievreP()
nonId19.Value = AffFievrePN()
ouiId20.Value = CompteOui20
nonId20.Value = CompteNon20
ouiId21.Value = CompteOui21
nonId21.Value = CompteNon21
ouiId22.Value = CompteOui22
nonId22.Value = CompteNon22
ouiId23.Value = CompteOui23
nonId23.Value = CompteNon23
ouiId24.Value = CompteOui24
nonId24.Value = CompteNon24
ouiId25.Value = CompteOui25
nonId25.Value = CompteNon25
ouiId26.Value = CompteOui26
nonId26.Value = CompteNon26
ouiId27.Value = CompteOui27
nonId27.Value = CompteNon27
ouiId28.Value = CompteOui28
nonId28.Value = CompteNon28
ouiId29.Value = CompteOui29
nonId29.Value = CompteNon29
ouiId30.Value = CompteOui30
nonId30.Value = CompteNon30
ouiId31.Value = CompteOui31
nonId31.Value = CompteNon31
ouiId32.Value = CompteOui32
nonId32.Value = CompteNon32
ouiId33.Value = AffFievre()
nonId33.Value = AffFievreNon()
ouiId34.Value = CompteOui34
nonId34.Value = CompteNon34
ouiId35.Value = CompteOui35
nonId35.Value = CompteNon35
ouiId36.Value = CompteOui36
nonId36.Value = CompteNon36
ouiId37.Value = CompteOui37
nonId37.Value = CompteNon37
ouiId38.Value = CompteOui38
nonId38.Value = CompteNon38

End Sub

j'attend donc une aide d'urgence, car je dois rementtre le projet avant le 27 de ce mois .

merci a tous.