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