Discussion :

[morobaboumar]

Bonjour Membres du forum !
Permettez de reprendre notre discussion.
En effet, toutes les corrections précédentes marchent parfaitement.
Maintenant après avoir créé une commande:CmdMoyennes_Classe "Moyennes globales classe". Quelle est la solution pour calculer les moyennes et rangs de l'ensemble des élèves en même temps pour une composition ?
Voici les codes:
[CODE]Private Sub CmdMoyennes_Classe_Click() 'INFOS_COMPOSITION_ARABE If MsgBox("Calcul global des moyennes : " & Me.ClasseArabe & " - " & Me.CompoArabe.Column(1) & " (" & Me.anscol & ") ?", vbQuestion + vbYesNo, "Calcul des Moyennes") = vbNo Then Exit Sub CalculTouteslesMoyennes DoEvents * MsgBox "Les moyennes de : " & Me.ClasseArabe & ", Compo : " & Me.CompoArabe.Column(1) & " (" & Me.anscol & ") ont été calculées.", vbInformation + vbOKOnly, "Calcul des Moyennes" Actualiser_Click cmdCalcul01_Click
End Sub
/CODE]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
'**********CALCUL DE LA MOYENNE D'UN ELEVE*********************** Function MoyenneEleve(NoCompo As Long) As Single 'On Error Resume Next Dim db As Database Dim rst As Recordset Dim rstNCoef As Recordset Dim rstCoef As Recordset Dim sqlNotesCoef As String Dim sqlCoef As String Dim idX As Long * Set db = CurrentDb * 'Mise à jour du total des notes sql = "SELECT SUM(NoteAr*coef) AS TotalDesNotes FROM NOTES_CLASSES_ARABES WHERE idCA = " & NoCompo & ";" Set rst = db.OpenRecordset(sql) If Not rst.EOF Then 'Me.Total_Notes = rst.Fields("TotalDesNotes") N_TotalNotes = rst.Fields("TotalDesNotes") Else 'Me.Total_Notes = 0 N_TotalNotes = 0 End If * 'Mise à jour du total des Coef et de la Moyenne sqlCoef = "SELECT SUM(coef) AS TotalDesCoef FROM NOTES_CLASSES_ARABES WHERE idCA = " & NoCompo & ";" * sqlNotesCoef = "SELECT SUM(NoteAr*coef) AS NotesCoef FROM NOTES_CLASSES_ARABES WHERE idCA = " & NoCompo & ";" * Set rstCoef = db.OpenRecordset(sqlCoef) * Set rstNCoef = db.OpenRecordset(sqlNotesCoef) * If Not rstNCoef.EOF And Not rstCoef.EOF Then 'Me.MoyenneCompo = Round(rstNCoef.Fields("NotesCoef") / rstCoef.Fields("TotalDesCoef"), 2) MoyenneEleve = Round(rstNCoef.Fields("NotesCoef") / rstCoef.Fields("TotalDesCoef"), 2) Else 'Me.MoyenneCompo = 0 MoyenneEleve = 0 End If * 'Mise à jour du total de l'appréciation * Me.Appreciation = AppreciationMoyenne(Me.MoyenneCompo) End Function

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
'******************************************************************************** '******************************************************************************** '******************************************************************************** Sub CalculTouteslesMoyennes() On Error GoTo CCIW Dim db As Database Dim rst As Recordset Dim strSQL As String Set db = CurrentDb * strSQL = "SELECT * FROM INFOS_COMPOSITION_ARABE WHERE anscol='" & Me.anscol & "'AND ClasseArabe='" & Me.ClasseArabe & "'AND CompoArabe=" & Me.CompoArabe & "AND ID_Etab=" & Me.ID_Etab & ";" * Set rst = db.OpenRecordset(strSQL) * If Not rst.EOF Then rst.MoveFirst Do While Not rst.EOF rst.Edit DoEvents 'Calcul de la moyenne rst.Fields("MoyenneCompo") = MoyenneEleve(rst.Fields("idCompoA")) * 'Génération de l'appréciation rst.Fields("Appreciation") = AppreciationMoyenne(MoyenneEleve(rst.Fields("idCompoA"))) * 'Total des Notes * Coef rst.Fields("Total_Notes") = N_TotalNotes * rst.Update * rst.MoveNext * DoEvents Loop Else End If * Exit Sub CCIW: MsgBox err.description, vbExclamation + vbOKOnly, "Erreur n° " & err.Number End Sub '******************************************************************************** '********************************************************************************

Cordialement

[bertiny]

Bonjour. Regarde ici

Cordialement

[morobaboumar]

Bonjour Membres du forum !
Maintenant après avoir créé une commande:CmdMoyennes_Classe "Moyennes globales classe". Quelle est la solution pour calculer les moyennes et rangs de l'ensemble des élèves en même temps pour une composition ?
Voici les codes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
'********************CALCUL DE LA MOYENNE DE TOUS LES ELEVES (Année Scolaire, Classe,Nature Compo)
'********************************************************************************
Sub CalculTouteslesMoyennes()
On Error GoTo CCIW
Dim db As Database
Dim rst As Recordset
Dim strSQL As String
Set db = CurrentDb
 
strSQL = "SELECT * FROM INFOS_COMPOSITION_FRANCAIS WHERE anscol='" & Me.ANNEE_SCOL & "' AND ClasseFr='" & Me.classeFrancais & "' AND NatureCompoAr='" & Me.NatureCompo & "' ;"
 
Set rst = db.OpenRecordset(strSQL)
 
If Not rst.EOF Then
    rst.MoveFirst
        Do While Not rst.EOF
            rst.Edit
            'DoEvents
            'Calcul de la moyenne
            rst.Fields("MoyenneCompo") = MoyenneEleve(rst.Fields("idCompoF"))
 
            'Génération de l'appréciation
            rst.Fields("Appreciation") = AppreciationMoyenne(MoyenneEleve(rst.Fields("idCompoF")))
 
            'Total des Notes * Coef
            rst.Fields("Total_Notes") = N_TotalNotes
 
            rst.Update
 
            rst.MoveNext
 
            'DoEvents
        Loop
    Else
End If
 
Exit Sub
CCIW:
    MsgBox err.description, vbExclamation + vbOKOnly, "Erreur n° " & err.Number
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
'****************************************************************
'**********CALCUL DE LA MOYENNE D'UN ELEVE***********************
Function MoyenneEleve(NoCompo As Long) As Single
'On Error Resume Next
Dim db As Database
Dim rst As Recordset
Dim rstNCoef As Recordset
Dim rstCoef As Recordset
Dim sqlNotesCoef As String
Dim sqlCoef As String
Dim idX As Long
 
Set db = CurrentDb
 
'Mise à jour du total des notes
sql = "SELECT SUM(Note*coef) AS TotalDesNotes FROM NOTES_CLASSES_FRANCAIS WHERE idCF = " & NoCompo & ";"
Set rst = db.OpenRecordset(sql)
If Not rst.EOF Then
    'Me.Total_Notes = rst.Fields("TotalDesNotes")
    N_TotalNotes = rst.Fields("TotalDesNotes")
Else
    'Me.Total_Notes = 0
    N_TotalNotes = 0
End If
 
'Mise à jour du total des Coef et de la Moyenne
sqlCoef = "SELECT SUM(coef) AS TotalDesCoef FROM NOTES_CLASSES_FRANCAIS WHERE idCF = " & NoCompo & ";"
 
sqlNotesCoef = "SELECT SUM(Note*coef) AS NotesCoef FROM NOTES_CLASSES_FRANCAIS WHERE idCF = " & NoCompo & ";"
 
Set rstCoef = db.OpenRecordset(sqlCoef)
 
Set rstNCoef = db.OpenRecordset(sqlNotesCoef)
 
If Not rstNCoef.EOF And Not rstCoef.EOF Then
    'Me.MoyenneCompo = Round(rstNCoef.Fields("NotesCoef") / rstCoef.Fields("TotalDesCoef"), 2)
    MoyenneEleve = Round(rstNCoef.Fields("NotesCoef") / rstCoef.Fields("TotalDesCoef"), 2)
Else
    'Me.MoyenneCompo = 0
    MoyenneEleve = 0
End If
 
'Mise à jour du total de l'appréciation
 
'Me.Appreciation = AppreciationMoyenne(Me.MoyenneCompo)
End Function
'********************************************************************************
'********************************************************************************

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
'Appreciation utilisée pour une note et une moyenne
Public Function AppreciationMoyenne(Moy As Single) As String
If Not IsNull(Moy) Then
 If Moy = 10 Then
   AppreciationMoyenne = "Excellent"
 Else
    If Moy >= 9 Then
      AppreciationMoyenne = "Très bien"
    Else
       If Moy >= 8 Then
        AppreciationMoyenne = "Bien"
       Else
          If Moy >= 6 Then
            AppreciationMoyenne = "Assez bien"
          Else
             If Moy >= 5 Then
              AppreciationMoyenne = "Passable"
             Else
              If Moy >= 4.25 Then
               AppreciationMoyenne = "Insuffisant"
              Else
                 If Moy >= 3.5 Then
                  AppreciationMoyenne = "Faible"
                 Else
                    If Moy >= 0 Then
                    AppreciationMoyenne = "Très Faible"
                    End If
                 End If
              End If
             End If
          End If
       End If
    End If
 End If
End If
End Function

Cordialement.