Discussion :

[monsdo]

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

[jfontaine]

Bonjour,

Essais en remplaçant Value par Formula

Code :

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

Cells(i, K).Formula= Formule

[mercatog]

Ou encore sans boucle

Code :

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

1
2
3
4
5
6
7
Dim k As Integer
 
With Sheets("Feuil1")
    k = .Cells(2, .Columns.Count).End(xlToLeft).Column + 1
    .Cells(1, k).Value = "Moyenne"
    .Range(.Cells(2, k), .Cells(101, k)).FormulaR1C1 = "=average(RC[" & 1 - k & "]:RC[-1])"
End With