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

Nul besoin de trier les valeurs ni de code VBA.
Il suffit d'utiliser la fonction MOYENNE.SI().
https://support.office.com/fr-fr/art...9-F5576D8AC642

Bonjour :)
Merci pour ta réponse, mais j'aimerai vraiment coder en vba .
A vrai dire,ce que je demande n'est qu'une partie d'un programme plus grand en VBA. l'objectif étant a terme de tracer des courbes de puissance ...
De plus je possède de nombreuses feuilles et l’intérêt d'une macro VBA m'éviterai de devoir refaire toute les manip à la main.

En supposant que tes valeurs sont en colonnes A et B et commencent en lignes 2.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub puissance() Dim Lig As Long Dim moyenne(10) As Double Dim somme(10) As Double Dim nombre(10) As Double For Lig = 2 To Cells(Rows.Count, 1).End(xlUp).Row somme(Cells(Lig, 1).Value) = somme(Cells(Lig, 1).Value) + Cells(Lig, 2).Value nombre(Cells(Lig, 1).Value) = nombre(Cells(Lig, 1).Value) + 1 Next Lig For Lig = 1 To UBound(moyenne) moyenne(Lig) = somme(Lig) / nombre(Lig) Next Lig End Sub
La moyenne de toutes les vitesse sont stockées dans la variable moyenne avec la vitesse en indice.

Je te laisse modifier le contenu de la seconde boucle pour placer les valeurs dans ton tableau là où tu le souhaites.
A ta place, je supprimerai même la variable "moyenne" qui n'a pas vraiment d'intérêt si tu veux faire un placement dans une cellule.

Mais je persiste à dire que ce serait plus souple et plus simple avec des fonctions.

Merci Menhir pour le coup de main.
Ce n'est pas exactement ce que j'aimerai c'est a dire que je ne veux pas faire la moyenne de ma colonne A mais seulement les moyennes des puissances associées a chaque vitesse .
Par exemple si j'ai 3 valeurs de vitesses V= 6 m/s qui me fournissent P1=300W , P2= 310W et P3=320W j'aimerai avoir
A C
6 310

J'ai essayé ton programme et il me renvoie un problème d'overflow ligne 14 :S

J'ai finalement réussi ce que je voulais faire : voici le code fini

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
30
31
32
 
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 - 1, 3) = moyenne
        compt = 1
        somme = Cells(i, 2)
    End If
    Next i
 
 
 
 
End Sub

C'est pas ce qu'il y a de plus élégant mais ça semble fonctionner.
Merci tout de même pour ton aide Menhir ;)

Passe une bonne journée !

Citation:

Envoyé par supengalere

Ce n'est pas exactement ce que j'aimerai c'est a dire que je ne veux pas faire la moyenne de ma colonne A mais seulement les moyennes des puissances associées a chaque vitesse .

C'est exactement ce que fait mon code.
Prends au moins la peine de le tester avant de dire que ça ne te convient pas.

Citation:

Par exemple si j'ai 3 valeurs de vitesses V= 6 m/s qui me fournissent P1=300W , P2= 310W et P3=320W j'aimerai avoir
A C
6 310

Avec mon code, tu auras cette valeur dans moyenne(6)

Citation:

J'ai essayé ton programme et il me renvoie un problème d'overflow ligne 14 :S

Quel est le message d'erreur exactement ?

j'avais mal compris ton programme excuse moi ...
il me renvoie deux types d'erreurs
le premier message est arrivé à la ligne 14 :run time error 6 overflow
le second message est ligne 9 : run time error 9 : subscript out of range

je pense que cela vient de la dimension des tableaux non ?

Citation:

Envoyé par supengalere

le second message est ligne 9 : run time error 9 : subscript out of range

Est-ce que tu as des vitesses qui ne sont pas des entiers, qui sont nulles ou supérieures à 10 ?

Oui c'est le cas ce sont des floats (du genre 6.1 ou 8.3) , de plus certaines sont nulles en effet :oops:
Excuse moi pour le temps de réponse je n'avais pas vu ton message.