VBA moyenne avec coefficient

Bonjour je voudrais calculer la moyenne avec les coefficients en langage VBA cependant je suis totalement novice.
Le programme tourne mais je sais pas comment inclure les coefficients.
Je voudrais également colorier en rouge si la moyenne est inférieur à 10 et en vert si elle est sup ou égale à 10.
Je voudrais également les centrées horizontalement et verticalement à deux chiches après la virgule.

Je suis assez perdue.

Merci par avance



Pièce jointe 331657

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub Calculmoyenne() Dim K As Long, Formule As String Dim Moyenne As Integer     Range("E2").Select K = (Range("C2:U2").End(xlToRight).Column + 1) 'selectionne la derniere cellule vide sur la ligne 2' Cells(1, K).Value = "Moyenne" ' donne à la colonne de cette cellule le nom de moyenne''   For i = 2 To 6 'calul la moyenne sur chaque ligne' Formule = "=AVERAGE(" & Cells(i, 3).Address & ":" & Cells(i, K - 2).Address & ")" Cells(i, K).Value = Formule Next   If Moyenne < 10 Then Interior.Color = vbRed If Moyenne <= 10 Then Interior.Color = vbGreen   End Sub

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub Calculmoyenne() Dim K As Long, Formule As String Dim Moyenne As Integer     Range("E2").Select K = (Range("C2:U2").End(xlToRight).Column + 1) 'selectionne la derniere cellule vide sur la ligne 2' Cells(1, K).Value = "Moyenne" ' donne à la colonne de cette cellule le nom de moyenne''   For i = 2 To 6 'calul la moyenne sur chaque ligne' Formule = "=AVERAGE(" & Cells(i, 3).Address & ":" & Cells(i, K - 2).Address & ")" Cells(i, K).Value = Formule Next   If Moyenne < 10 Then Cells(i, K).Interior.Color = vbRed If Moyenne <= 10 Then Cells(i, K).Interior.Color = vbGreen   Cells(i, K).HorizontalAlignment = xlCenter Cells(i, K).VerticalAlignment = xlCenter Cells(i, K).NumberFormat = "0.00"     End Sub

---

c'est normal , je trouvais ça bizarre ................

avec ce code

Code:

---

1 2 3

Range("E2").Select K = (Range("C2:U2").End(xlToRight).Column + 1) 'selectionne la derniere cellule vide sur la ligne 2' Cells(1, K).Value = "Moyenne" ' donne à la colonne de cette cellule le nom de moyenne''

---

l'écriture se fait dans la première colonne libre et rajoute donc une colonne a chaque lancement de la macro.

si le but est d'écrire systématiquement la moyenne dans la colonne E, ce que je suppose

ce bout de code ne sert à rien il faut le supprimer et remplacer par K = 5



je n'ai sans doute pas tout compris.

Bonne journée

Merci beaucoup, du coup en effet ça fonctionne ça ne me met plus les résultats sur d’autres colonnes.
Mais du coup ça me change le résultat sur les notes de test final.
Et ça ne me prend pas en compte les coefficients.