[VBA-E] problème de calcul de moyenne

Version imprimable

21/04/2006, 15h01
sat478

[VBA-E] problème de calcul de moyenne

Bonjour, j'ai un tableau qui se présente ainsi :
- colonne A : les horaires avec un intervalle de 30 minutes entre chaque valeur ;
- colonne B : des valeurs mesurées correspondantes.

Je cherche à réaliser des moyennes sur 30 minutes sachant que dans certains cas des valeurs n'ont pas été mesurées.

par exemple, si dans une série de 30 minutes, aucune valeur n'a été mesurée en 26, 27, 28, 29, 30, 31 et 32 èmes minutes, on fait la moyenne sur les 25 premières minutes puis on cherche la prochaine valeur mesurée et on cherche à faire une moyenne sur 30 minutes ainsi de suite jusqu'à la fin de la colonne A.

A la fin cela me permet d'avoir un tableau de synthèse du type :
- moyenne sur xxx minutes de ... à ... = yyy
- moyenne sur xxx minutes de ... à ... = yyy

etc...

Mais là j'avoue que je suis franchement perdu
21/04/2006, 15h23
linda15975

Personnellement, je suis aussi perdue, je n'ai rien compris.
Tu n'aurais pas une exemple concret avec des données car je n'arrive pas à visualiser ton tableau...
21/04/2006, 21h50
AlainTech

Il est vrai qu'il y a contradiction entre:

Citation:

- colonne A : les horaires avec un intervalle de 30 minutes entre chaque valeur

et

Citation:

par exemple, si dans une série de 30 minutes, aucune valeur n'a été mesurée en 26, 27, 28, 29, 30, 31 et 32 èmes minutes,

L'intervalle est-il de 30 minutes ou d'une minute (même s'il y a des trous)?
22/04/2006, 01h22
Vesta

tu fais :

Code:

=moyenne(A2:A32)

Et la ca ne tient compte que des valeurs non nulles

ex:
2
2

3

4
4

!moyenne donnera 3
26/04/2006, 16h36
sat478

Merci Vesta, en effet c'est tout le plus simple.

Néanmoins petite question, en VBA je vais lui demander de faire cela toutes les 30 minutes à l'aide d'ne boucle Pour.

Mais comment lui faire comprendre qu'il s'agit d'heures.
Exemple : valeur de la première cellule + 30 minutes
29/04/2006, 11h14
ouskel'n'or
Si tu peux tirer quelque chose de ça... avec 35 dans cell(1,1)
Code:

1 2 MsgBox TimeSerial(0, Cells(1, 1).Value + 30, 0) '=> 01:05:00
A+

Comme je n'ai rien à faire, je reprends pour délayer un peu...

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
 
Sub Démarrer()
Dim i as double, ok as integer
    Cells(1, 2).Select
    LancerLesMesures
    'ici la procédure continue et ne sera interrompue que dans 30 mn
    '... alors si tu as aut'chose à faire ^^
End Sub
 
Sub LancerLesMesures()
 
    'Simulation des mesures ***********
    Randomize
    For i = 1 To 32
        Cells(i, 1) = Int(Rnd * 32) + 1
    Next
    '*****************************
 
    Cells(ActiveCell.Row, 2).FormulaLocal = "=Moyenne(A2:A32)"
    Cells(ActiveCell.Row, 2).Value = Cells(ActiveCell.Row, 2).Value ' Colle la valeur
    'pour conserver la valeur à un instant T, la formule doit être remplacée par cette valeur
    Cells(ActiveCell.Row, 3).Value = Format(Now, "hh:nn:ss") 'insère l'heure de la mesure
    If MsgBox("Si tu réponds assez vite, la prochaine mesure aura lieu à " & TimeValue(Now) + TimeValue("00:30:00") & _
        vbCrLf & "Arrêter les mesures ?", vbYesNo, "") = vbYes Then
            End
        Else
            'Lecture et insertion des mesures
            Application.OnTime Now + TimeValue("00:30:00"), "LancerLesMesures"
    End If
    Cells(ActiveCell.Row + 1, 2).Select
End Sub

A+