Ajouter un commentaire

ven, 20/11/2009 - 11:53
jabulon
probleme de selection des données dans une table

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

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
CompteOui22 = CompteOui22 + 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
    CompteNon22 = CompteNon22 + 1

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

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
CompteOui29 = CompteOui29 + 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
    CompteNon29 = CompteNon29 + 1
End If




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

Plus d'information sur les formats de texte

Filtered HTML

Plain text

CAPTCHA
Cette question permet de vérifier que vous n'êtes pas un robot spammeur :-) 
 U   U      J  N   N   GGG   EEEE 
 U   U      J  NN  N  G      E    
 U   U      J  N N N  G  GG  EEE  
 U   U  J   J  N  NN  G   G  E    
  UUU    JJJ   N   N   GGG   EEEE