Sub Moyenne()
LigneValeur = 2
'Désigne la 1ère ligne du tableau dans lequel seront saisis les résultats de mesure
ColonneValeur = 1
'Désigne la 1ère colonne du tableau dans lequel seront saisis les résultats de mesure
LigneResultat = 4
'Désigne la 1ère ligne du tableau dans lequel seront calculées les moyennes
ColonneResultat = 4
'Désigne la 1ère colonne du tableau dans lequel seront calculées les moyennes
j = LigneResultat
While Cells(j, ColonneResultat) <> ""
Somme = 0
Compteur = 0
i = LigneValeur
If Cells(j-1, ColonneResultat) <
BorneInferieure = Cells(j, ColonneResultat)
If Cells(j + 1, ColonneResultat) <> "" Then
BorneSuperieure = Cells(j + 1, ColonneResultat)
Else
BorneSuperieure = BorneInferieure + 1
MsgBox BorneInferieure
MsgBox BorneSuperieure
End If
While Cells(i, ColonneValeur) <> ""
If Cells(i, ColonneValeur) > BorneInferieure And Cells(i, ColonneValeur) <= BorneSuperieure Then
Somme = Somme + Cells(i, ColonneValeur + 1)
Compteur = Compteur + 1
End If
If Compteur <> 0 Then
Cells(j, ColonneResultat + 1) = Somme / Compteur
Else
Cells(j, ColonneResultat + 1) = "Aucune valeur > à " & BorneInferieure & " et <= à " & BorneSuperieure & " n'a été saisie"
End If
i = i + 1
Wend
j = j + 1
Wend
End Sub