Moyenne de puissance en vba
Bonjour à tous !
Je viens vous voir car j'ai un petit programme en vba qui me pose problème ...
J'ai dans une colonne A des vitesses de vent et dans une colonne B des puissances associées.
L'idée c'est d'associer à chaque valeur de vitesse de vent la moyenne des puissances associées.
par exemple :
A B
6 300
7 350
6 310
6 320
8 400
j'aimerai avoir en colonne C
A C
6
6
6 310
7 350
8 400
Pour faciliter les choses j'ai trié ma liste par ordre croissant
seulement voila, mon code me fourni de mauvais résultats et je ne vois pas du tout ou est l'erreur
voici mon code :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
| Sub puissance()
Dim Sh As Worksheet
Dim DernLigne As Long
Dim moyenne As Single
Dim somme As Single
Dim compt As Single
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
compt = 1
somme = Cells(2, 2)
For i = 2 To DernLigne - 1
If Cells(i, 1) = Cells(i + 1, 1) Then
somme = somme + Cells(i, 2)
compt = compt + 1
End If
If Cells(i, 1) <> Cells(i + 1, 1) Then
moyenne = somme / compt
Cells(i, 3) = moyenne
somme = Cells(i, 2)
compt = 1
End If
Next i
End Sub |
Pouvez vous m'aider svp ? :)