Moyennes par groupes de données sur une colonne sur une colonne
1 réponse
Vil_xp
J'ai + de 8000 valeurs dans une colonne, je voudrais établier une moyenne par
plage de 20. Si quelqu'un peut m'indiquer comment faire (modéle de boucle)
Merci.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
AV
J'ai + de 8000 valeurs dans une colonne, je voudrais établier une moyenne par plage de 20. Si quelqu'un peut m'indiquer comment faire (modéle de boucle)
Avec tes valeurs en A1:Axx Pour écrire les moyennes par pas de 20 en colonne B :
Sub zzz() For i = 20 To [A65536].End(3).Row Step 20 If Cells(i, 1) = "" Then Exit For 'pour écrire la valeur Cells(i, 2) = Application.Average(Range(Cells(i, 1), Cells(i - 19, 1))) 'pour écrire la formule 'Cells(i, 2) = "=average(" & Cells(i, 1).Address & ":" & Cells(i - 19, 1).Address & ")" Next End Sub
AV
J'ai + de 8000 valeurs dans une colonne, je voudrais établier une moyenne par
plage de 20. Si quelqu'un peut m'indiquer comment faire (modéle de boucle)
Avec tes valeurs en A1:Axx
Pour écrire les moyennes par pas de 20 en colonne B :
Sub zzz()
For i = 20 To [A65536].End(3).Row Step 20
If Cells(i, 1) = "" Then Exit For
'pour écrire la valeur
Cells(i, 2) = Application.Average(Range(Cells(i, 1), Cells(i - 19, 1)))
'pour écrire la formule
'Cells(i, 2) = "=average(" & Cells(i, 1).Address & ":" & Cells(i - 19,
1).Address & ")"
Next
End Sub
J'ai + de 8000 valeurs dans une colonne, je voudrais établier une moyenne par plage de 20. Si quelqu'un peut m'indiquer comment faire (modéle de boucle)
Avec tes valeurs en A1:Axx Pour écrire les moyennes par pas de 20 en colonne B :
Sub zzz() For i = 20 To [A65536].End(3).Row Step 20 If Cells(i, 1) = "" Then Exit For 'pour écrire la valeur Cells(i, 2) = Application.Average(Range(Cells(i, 1), Cells(i - 19, 1))) 'pour écrire la formule 'Cells(i, 2) = "=average(" & Cells(i, 1).Address & ":" & Cells(i - 19, 1).Address & ")" Next End Sub
