Fonction pour Générer le RANG d'un élève pour une COMPOSITION dans une Classe

**morobaboumar** · 09/08/2020, 00h13

Envoyé par morobaboumar

D'accord je vais patienter en espérant avoir une suite favorable à l'ensemble de cette discussion
notamment les posts#1; 2;3.
Cordialement.

Bonsoir membres du forum,
Finalement, j'adopte le code suivant.

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
 
 
' ++++ Fonct. pour Générer le RANG d'un ELEVE pour une COMPOSITION dans une Classe Arabe
Public Sub RangClasseCompoArabe(AnneeScol As String, claSar As String, Nat As Long)
Dim db As Database
Dim rst As Recordset
Dim sql As String
Dim i As Integer
Dim j As Integer
Dim K As Integer
Dim Moy As Single
Set db = CurrentDb
sql = "select * from INFOS_COMPOSITION_ARABE where anscol = '" & AnneeScol & "' and ClasseArabe = '" & claSar & "' and CompoArabe = " & Nat & " order by MoyenneCompo desc ;"
    Set rst = db.OpenRecordset(sql)
   If Not rst.EOF Then
    rst.MoveLast
    rst.MoveFirst
    'bolEx = True
    i = 1
    K = 1
        Do While Not rst.EOF
            rst.Edit
 
            If rst.Fields("Statut") = "Classé" Then 'L'élève est classé
 
                If i = 1 Then
                    If GenreEleve(rst.Fields("mle_Eleve")) = "Masculin" Then
                        rst.Fields("Classement") = i & "er"
                    Else
                        rst.Fields("Classement") = i & "ère"
                    End If
 
                Else
 
                    If Moy = rst.Fields("MoyenneCompo") Then
                        If K = 1 Then   'Traitement du 1er Ex-Equo
                            j = i - 1
                            rst.Fields("Classement") = j & "è ex."
                            K = K + 1
                        Else
                            rst.Fields("Classement") = j & "è ex."
                        End If
                    Else
                        K = 1
                        rst.Fields("Classement") = i & "è"
                    End If
                End If
 
                rst.Update
                Moy = rst.Fields("MoyenneCompo")
                i = i + 1
                rst.MoveNext
            Else
                'L'élève n'est pas classé
                rst.Fields("Classement") = "NC"
                rst.Update
                rst.MoveNext
            End If
            Loop
    End If
    rst.Close
    Set rst = Nothing
End Sub

Cordialement.

**morobaboumar** · 09/06/2022, 02h12

Bonjour tee_grandbois,
J'ai encore une dernière requête à vous soumettre .
Le code suivant

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
 
' ++++ Fonction. pour Générer le RANG d'un ELEVE pour une COMPOSITION dans une Classe Arabe 
Public  Sub RangClasseCompoArabe ( AnneeScol As  String , claSar As  String , Nat As  Long ) 
Dim db As Database
 Dim rst As Recordset
 Dim sql As  String 
Dim i As  Integer 
Dim j As  Entier 
Dim K As  Entier 
Dim Moy As  Ensemble unique
db = CurrentDb
sql = "select * from INFOS_COMPOSITION_ARABE où anscol = '" & AnneeScol & "' et ClasseArabe = '" & claSar & "' et CompoArabe = " & Nat & " trier par MoyenneCompo desc ;" 
    Set rst = db.OpenRecordset ( sql ) 
    Si  non rst.EOF Alors
    rst.MoveLast
    rst.MoveFirst
    'bolEx = True 
    i = 1 
    K = 1 
        Do  While  Not rst.EOF
            premier.Modifier
 
            If rst.Fields ( "Statut" ) = "Classé"  Then  'L'élève est classé
 
                If i = 1  Then 
                    If GenreEleve ( rst.Fields ( "mle_Eleve" ) ) = "Masculin"  Then 
                        rst.Fields ( "Classement" ) = i & "er"
 
                     ElseIf GenreEleve ( rst.Fields ( "mle_Eleve" ) ) = "Féminin"  Then 
                        rst.Fields ( "Classement" ) = i & "ère"
 
                    Fin  si
 
                Autre
 
                    'Si Moy = rst.Fields("MoyenneCompo") Alors 
                        'Si K = 1 Alors 'Traitement du 1er Ex-Equo 
                            'j = i - 1 
                            'rst.Fields("Classement") = j & "è ex." 
                           ' K = K + 1 
                        'Else 
                            'rst.Fields("Classement") = j & "è ex." 
                        'End If 
            If Moy = rst.Fields ( "MoyenneCompo" ) _
 And GenreEleve ( rst.Fields ( "mle_Eleve" ) ) = "Masculin"  Then 
                        If K = 1  Then    '"Classement" ) = j & "er ex." 
                            K = K + 1 
                ElseIf GenreEleve ( rst.Fields ( "mle_Eleve" ) ) = "Féminin"  Then 
             If K = 1  Then    'Traitement de la 1ère Ex-Equo 
                            j = i - 1 
                            rst.Fields ( "Classement" ) = j & "è ex." 
                            K = K + 1 
                Fin  Si 
                        Sinon 
                            en premier."Classement" ) = j & "è ex." 
                        Fin  si
 
                    Sinon 
                        K = 1 
                        rst.Fields ( "Classement" ) = i & "è" 
                    End  If 
                End  If
 
                première mise à jour
                Moy = rst.Fields ( "MoyenneCompo" ) 
                i = i + 1
                rst.MoveNext
            Sinon 
                'L'élève n'est pas classé 
                en premier.Fields ( "Classement" ) = "NC"
                première mise à jour
                rst.MoveNext
            Fin  si 
            boucle 
    Fin  si
    d'abord.Fermer
    Set rst = Nothing 
End  Sub

Permet de générer le rang d'un élève pendant une composition .
Cependant il fait les mêmes erreurs
telles que citées dans les postes 1 et 2.
Cordialement.

**tee_grandbois** · 09/06/2022, 13h57

bonjour,
je t'ai montré la voie, à toi de te lancer, car cela n'a aucun intérêt si je corrige 2 fois le même code

**hyperion13** · 09/06/2022, 15h32

Envoyé par tee_grandbois

bonjour,
je t'ai montré la voie, à toi de te lancer, car cela n'a aucun intérêt si je corrige 2 fois le même code

**morobaboumar** · 09/06/2022, 19h34

Envoyé par tee_grandbois

bonjour,
je t'ai montré la voie, à toi de te lancer, car cela n'a aucun intérêt si je corrige 2 fois le même code

Bonsoir tee_grandbois
Bonsoir hyperion13
Il y a une différence entre les 2 codes.
Celui ci doit renvoyer les notes d'un élève pendant une composition.
Je reviens vers vous car j'ai tenté d'adapter
le code qui renvoie les notes annuelles
au code par composition mais je n'y suis pas arrivé.
Votre aide est très précieuse pour moi encore une fois.
Cordialement.

**tee_grandbois** · 09/06/2022, 21h34

Il y a une différence entre les 2 codes.
Celui ci doit renvoyer les notes d'un élève pendant une composition.

cela reste quand même dans les grandes lignes le même principe que le code donné dans l'autre discussion:
- recherche du genre:

Code :

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

1
2
3
4
5
6
7
8
                If i = 1 Then
                    If GenreEleve(rst.Fields("mle_Eleve")) = "Masculin" Then
                        rst.Fields("Classement") = i & "er"
                    Else
                        rst.Fields("Classement") = i & "ère"
                    End If
 
                Else

- recherche des ex-aequo:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
                    If Moy = rst.Fields("MoyenneCompo") Then
                        If K = 1 Then   'Traitement du 1er Ex-Equo
                            j = i - 1
                            rst.Fields("Classement") = j & "è ex."
                            K = K + 1
                        Else
                            rst.Fields("Classement") = j & "è ex."
                        End If
                    Else
                        K = 1
                        rst.Fields("Classement") = i & "è"
                    End If
                End If

la seule différence c'est le test du classement de l'élève ; je trouve bizarre qu'étant capable de "pondre" autant de code tu sois incapable d'adapter ce code.
Pour moi il n'y a pas grande difficulté à adapter celui-ci, il suffit de te lancer et demander de l'aide uniquement en cas de problème précis.
Sans cela, tu ne pourras pas bénéficier de notre expertise.

**morobaboumar** · 09/06/2022, 23h12

Bonsoir tee_grandbois,
Compte tenu du fait que mon ordinateur portable est en panne, cela m'a empêché
de travailler sur votre code afin de l'adapter à mon but.
Le temps de trouver un nouveau , je vous remercie de
votre générosité pour tous les bienfaits que vous nous procurez.
Merci infiniment
Cordialement

Fonction pour Générer le RANG d'un élève pour une COMPOSITION dans une Classe [AC-2013]

IHM

Discussions similaires

Partager

Partager