Bonsoir membres du forum,
Je reviens avec la seconde partie de la discussion résolue ici https://www.developpez.net/forums/d2...es-intervalle/.
En effet, j'ai essayé d'adapter le code à la saisie des notes de compositions des matières arabesmais voici l'erreur qui survient:
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 Private Sub Note_BeforeUpdate(Cancel As Integer) If Me.Parent.ClasseArabe = "Maternelle" Or Me.Parent.ClasseArabe = _ "CP1 A" Or Me.Parent.ClasseArabe = "CP2 A" And Me.Note > 10 Then MsgBox "La note doit être entre 0 et 10 !" Me!Note.Undo Cancel = True Exit Sub End If If Me.Parent.ClasseArabe = "CE2 A" Or Me.Parent.ClasseArabe = _ "CM1 A" Or Me.Parent.ClasseArabe = "CM1 A" Or Me.Parent.ClasseArabe = _ "CM2 A" And Me.Note > 50 Then MsgBox "La note doit être entre 0 et 50 !" Me!Note.Undo Cancel = True Exit Sub End If End Sub
Dans la première partie du code, les notes sont comprises entre 0 et 10 mais ce n'est pas le cas au moment de l'enregistrement des notes.
Même en entrant 0 le code ne marche Pas.
Quelle serait la solution ?
Vous trouverez la pièce jointe ici https://www.developpez.net/forums/d2...es-intervalle/.
Cordialement.
Partager