Conception de programme n°9

Voici la correction de l'exercie Jury ( jsuis pas sur d'avoir bon à 100% )

Sub Notes()

For j = 3 To 66 Step 2
total = 0
For i = 4 To 12
resultat = Cells(i, j) / (20 / Cells(i, 2))
Cells(i, j + 1) = resultat
total = total + resultat
If Cells(i, j) < 10 Then
Cells(i, j).Select
Selection.Interior.ColorIndex = 6
End If

Next

Cells(13, j + 1) = total
Moyenne = 0

Moyenne = total / i

Cells(14, j) = Moyenne

If Moyenne < 10 Then
Cells(14, j).Select
Selection.Interior.ColorIndex = 3
End If


Next
End Sub

oué oué oué on va voir ça lol

C'est tellement beau ce que t'as écris vince

Bonjours à tous
besoin d'aide sur l'exo Jury

Je suis pas en accord avec NinouParadise sur sa façon de calculer sa moyenne sur 20

Moi j'ai fais
note * coefficient
après je fais
total: notes coéfficientées
(sachant que le total des coefficients est 320)
je fais
total notes coefficientées /320 et je trouve ma moyenne

les résultats sont différents de NinouParadise

qui peut me répondre....

merci

moi j'avais mis ça :

Sub jury()
For cl = 3 To 65 Step 2
Total = 0
For lg = 4 To 12
Resultat = Cells(lg, cl) * (Cells(lg, 2) / 20)
Cells(lg, cl + 1) = Resultat
Total = Total + Resultat
Cells(13, cl + 1) = Total
Cells(14, cl) = (Total / 320) * 20
If Cells(lg, cl) < "10" Then
Cells(lg, cl).Select
Selection.Interior.ColorIndex = 6
Selection.Font.ColorIndex = 3
End If

Next
Next
End Sub

Je sais pas si tu obtiendras les mêmes résultats

Oui , j'ai faux sur ma moyenne^^

Ton but était de donner la correction ou d'avoir de l'aide?