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

[a_diard]

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

[a_diard]

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

avec ce code

Code :

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

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

[lola45]

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.