Discussion :

[cyrille.dev]

Bonjour,
j'aimerais résoudre le problème suivant:

Mise en situation:
J'ai la suite de nombre suivante (cf pièce jointe):
Pendant 10s, la valeur mesurée est 12 -/+ 0.3, puis à un instant t (ici t=11s), la valeur mesurée augmente fortement.
J'aimerais pouvoir détecter automatiquement le moment ou la valeur est >= a 12.5 (soit ici a t=11s), puis calculer la moyenne des 5 dernières valeurs (soit de t=6 a t=10).
Comment puis je faire? je sens que je vais devoir apprendre à écrire des macros et des scripts VBA?non?

1 12,1
2 12,2
3 12,3
4 11,9
5 11,8
6 12
7 12,1
8 12,2
9 12
10 11,7
11 12,5
12 13
13 13,5
14 14
15 14,5
16 16
17 18
18 20

Auriez vous un exemple à me donner ou une adresse ou je pourrais trouver un tutoriel sur ce genre de problème?
Ou bien le noms des fonctions qui pourraient m'aider, car je ne sais pas par ou commencer...

En vous remerciant

Cyrille

[Theze]

Bonsoir,

Comment sont entrée les valeurs dans les cellules ? Manuellement, automatiquement et dans ce cas, par quel moyen, un logiciel ? un Timer dans Excel ?

En attente d'en savoir plus.

Hervé.

[cyrille.dev]

Bonjour,
J'ai simplifié le fichier, il s'agit d'un fichier generé par un système d'acquisition de températures:
la 1ére colonne donne le temps en secondes (ex : 1 )
la 2éme colonne la température en °C (ex 12.1)

Dans l'exemple j'ai pris 12 en moyenne avant que la température s'éleve, mais ca pourrait être 20 ou 100

Il me faut reconnaitre le moment ou l'on quitte une relative stabilité afin de mesurer la moyenne de la température sur un temps donné (ici 5s) avant cette montée.

C'est pour faire du post-traitement de données d'un fichier d'acquisition.

[Theze]

Bonjour,

Il faudrait savoir si l'évènement "Change" est généré dans la feuille où sont entrée les valeurs, si oui, il est possible d'utiliser une code du genre :

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
 
Dim Moyenne As Double
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Target.Column <> 2 Then Exit Sub
    With Target
 
        If .Value >= .Offset(-1, 0) + 0.3 Then
 
            Moyenne = Application.WorksheetFunction.Average(Range(.Offset(-1, 0), .Offset(-5, 0)))
 
        End If
 
    End With
 
End Sub

Sinon, il te faut utiliser un chrono (GetTickCount ou Application.OnTime) et tester toute les secondes la valeur de la dernière cellule non vide de ta colonne.

Hervé.

[Invité]

Pas sur que la variation +/- 0.3 soit suffisante pour définir ton point de rupture.
Entre le point 3 et le point 4 il y a - 0.4...

Il vaut mieux étudier la variation de la dérivée à droite et fixer un seuil maxi de variation. Ou alors augmenter ta zone de tolérance mais ça me semble un peu arbitraire.

[cyrille.dev]

@theze : Je comprends pas ce que tu veux dire par evenement "change"?

@vcottineau : je me suis mal expliqué, dans cet exemple j'ai une valeur moyenne de 12 qui oscille de -/+ 0.3 donc potentiellement -/+0.6 crete a crete, mais bien sur suivant le choix de comparaison, on peut augmenter le seuil jusqu'à 1.0°C, l'important étant de détecter le moment ou la courbe commence a augmenter fortement pour mesurer la moyenne sur les 5 dernières valeurs précédant l'augmentation et le point d'inflexion.

@theze : Je vais essayer et tester ce morceau de code.
Y'a t'il un moyen pour faire un appel a cette fonction via une cellule de ma feuille exel?

Merci en tout cas pour ces 1ers elements de reponse

J'essaie et je vous tiens au courant