Discussion :

[lola45]

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

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
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