Discussion :

[sat478]

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

[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...

[AlainTech]

Il est vrai qu'il y a contradiction entre:

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

et

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

[Vesta]

tu fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=moyenne(A2:A32)

Et la ca ne tient compte que des valeurs non nulles

ex:
2
2


3

4
4

!moyenne donnera 3

[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

[ouskel'n'or]

Si tu peux tirer quelque chose de ça... avec 35 dans cell(1,1)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

A+

[ouskel'n'or]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+