Bonjour tout le monde,
j'ai un probléme de programmation en VBA, je connais déjà la cause du probléme, ma complète incompétence.
Néanmoins, j'ai pondu le petit algorithme suivant censé faire les moyennes de parties de ma série de donnés entre 2 valeurs nulles, et de me donner ces donnés dans un tableau situé dans la même feuille.
Mes seules compétence en VBA sont les quelques informations que j'ai glané à droite à gauche sur la toile, le probléme est donc probablement un truc tout con ....
Le programme est dimensionné dans un premier temps pour ma feuille précisément, mais je compte l'améliorer plus tard.
L'erreur est "objet requis"
Sub moyenneparpart()
Dim i As Double, n As Double, J As Double, moy As Range
'--- i rang de lecture, n rang de début de listes, j rang d'écriture de moy
J = 86
i = 95
n = i
For i = 95 To 286
If Cells(i, 8) = 0 Then
moy = WorksheetFunction.Average(Sheet1.Range(Cells(n, 8), Cells(i, 8)))
Cells(J, 14) = moy: J = J + 1: n = i
End If
Next i
End Sub
Merci d'avance pour le temps que vous accorderez à ce probléme.
