bonjour, je suis débutante en vba, actuellement je dispose d'une liste de classe avec des notes par matières et de leur coefficient, je dois calculer la moyenne pondérée , jai sa comme code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Dim K As Long, Formule As String
 
 
    Range("B2").Select
    K = (Range("B2: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 101 'calule la moyenne sur chaque ligne
    Formule = "=AVERAGE(" & Cells(i, 2).Address & ":" & Cells(i, K - 1).Address & ")"
    Cells(i, K).Value = Formule
    Next
mais j'ai la réponse de 2 dans toutes les cases de moyenne.
merci de bien vouloir m'aider