Moyennage de plusieurs valeurs soumisent à une condition

Bonjour tout le monde,

Je dispose d'une série de mesures ( environ 20000). Ces mesures sont organisés ainsi:

Dans une première colonne nous disposons du temps ou la mesure à été effectuée. Et dans une seconde colonne la valeur associée à la mesure.

Une mesure est effectuée environ toutes les 0,7 sec. Je souhaiterais donc effectuer une moyenne des mesures sur un intervalle de X secs ( afin de les synchroniser avec des relevées de GPS). Cette valeur de X secs ne serait pas fixe elle pourra être modifiée par la suite en fonction du GPS.

Je récapitule :

Effectuer une moyenne des mesures sur un intervalle de temps et ce pour toutes les mesures

Voila merci d'avance!

Bonsoir et bienvenue,

Joins une feuille exemple, çà sera + facile de t'aider,

(pas besoin des 20000 lignes)

Amicalement

Claude

Merci Claude je te joins dans ce message le fichier.

Bonjour

Une mesure est effectuée environ toutes les 0,7 sec

Comment sont convertis les temps pour arriver à ces nombres décimaux?

Cordialement

Bonne question

Je disposais du temps comme suit : XX:XX:XX,X

J'ai réussi a découper la cellule de manière à obtenir dans chaque cellule:

XX nombre d'heure XX nombre de Minute et ainsi de suite

Ensuite j'ai pu effectuer les calculs nécessaires pour arriver à leur valeur décimale.

Pour les minutes j'ai divisé la valeur par 60

pour les secondes par 600

et pour les centièmes j'ai divisés par 10000

J'ai ensuite sommé le tout.

En espérant ne pas mettre trompé.

Bonjour

C'est pas gagné parce qu'à partir de ton résultat, je ne vois pas comment récupérer 1mn ou 1mn10s etc.

Peux tu donner la première colonne en version d'origine (hh:mm:ss,00)

Cordialement

Bien entendu je vous joins ça

Merci de votre aide!

Edit: j'ai effectivement du faire une mauvaise manip et oublier de transmettre le fichier

Bonjour

Tu as oublié le fichier ou tu l'envois plus tard?

Cordialement

Bonsoir à tous,

Pour Amadéus, voici le fichier en 2003

Sur feuille Claude, j'ai ajouté la colonne "D" où l'on voit

la chronologie des secondes depuis la 1ère ligne,

je sais pas si c'est utile !

Quelles lignes veux-tu moyenner et selon quels critères ?

donne un exemple

Amicalement

Claude

Bonjour tout le monde!

Donc je désire moyenner sur un temps de 4secs disons (cette valeur pourrait ensuite est simplement modifié dans le programme, une variable je pense donc.).

Le soucis c'est que ces mesures ne sont pas prises à intervalle de temps régulier, donc 4 secs pour un cas peut etre compris dans 6 lignes et dans l'autre dans 5 lignes c'est là la difficulté je pense.

Je vous montre ce que cela devrait donner sur les premières lignes dans le fichier joins.

EDIT: Je me suis rendu compte d'une erreur ds ma conversion du temps en décimal , ceci importe peu vu que nous allons résonner sur le temps normal mais je tenais a le remarquer.

Bonjour à tous,

Pour le forum, je te suggère des fichiers en version 2003,

tous n'ont pas les versions postérieures.

En "G2", tu tape l'écart souhaité,

la macro utilise la fonction EQUIV(....) de la colonne "D" pour repérer les N° de ligne,

comme il y a des 10èmes de secondes, çà prend la valeur immédiatement inférieure.

Sub Moyennes()
Dim Lg&, i&, x&, y&
    Application.ScreenUpdating = False
    Lg = Range("b" & Rows.Count).End(xlUp).Row
    Range("e2:e" & Lg).ClearContents
    For i = 2 To Lg
        x = Application.Match(Cells(i, "d"), Range("d:d"), 1)
        y = Application.Match(Cells(i, "d") + Cells(2, "g"), Range("d:d"), 1)   'x+écart
        Cells(y, "e") = "=AVERAGE(b" & x & ":b" & y & ")"                       'moyenne
        i = y
    Next i
End Sub

Amicalement

Claude

C'est exactement ça merci beaucoup!

Me reste plus qu'à comprendre le programme afin de ne pas juste l'appliquer bêtement.

Encore merci pour votre aide.

re,

Cette version écrit la formule, met en dur et formate la colonne "D"

Sub Moyennes()
Dim Lg&, i&, x&, y&
    Application.ScreenUpdating = False
    Lg = Range("b" & Rows.Count).End(xlUp).Row
    Range("e2:e" & Lg).ClearContents
        With Range("d2:d" & Lg)
            .Formula = "=c2-$c$2"
            .NumberFormat = "hh:mm:ss.0"
            .Value = .Value
        End With
    For i = 2 To Lg
        x = Application.Match(Cells(i, "d"), Range("d:d"), 1)
        y = Application.Match(Cells(i, "d") + Cells(2, "g"), Range("d:d"), 1)   'x+écart
        Cells(y, "e") = "=AVERAGE(b" & x & ":b" & y & ")"                       'moyenne
        i = y
    Next i
End Sub

N'oublie pas la petite formalité

Je reviens vers toi Claude!

J'ai compris le programme en partie, mais j'aimerais savoir si il était possible de déplacer le bouton calcule de ton application ?

Merci d'avance!

re,

Tu mets le bouton où tu veux,

à moins que tu veuille parler de l'écart souhaité en "G2" ?

dans ce cas, dis où ?

Claude

Ma question était fort stupide en faite je m'en excuse, il suffisait juste de faire clic droit sur le bouton calcule et le déplacer où bon nous semble.

Sinon pour ta question, j'ai déja modifié le programme pour la cellule G2

Comme Claude me l'a demandé je repose ma question ici:

Bonjour tout le monde c'est encore moi !

Je progresse dans mon travail mais je me trouve désormais confronté à un nouveau problème.(Je dis ça pour ceux qui m'ont déjà aidé )

Je désire actuellement générer des valeurs fictives je m'explique grâce au fichier joint

Merci d'avance pour votre aide!

Bonjour,

Oui, mais ne peux-tu pas partir de ton fichier réel (celui où j'ai fait la macro pour les moyennes)

à moins que se soit tout à fait autre chose ?

Claude

Le problème c'est que dans le fichier que je t'ai donné il n'y a pas be soin d'insérer de valeur fictives.

Je pense que je pourrais faire tourner les deux macros l'une après l'autre non ?

J'insers tout d'abord les valeurs fictives, puis je ferais le moyennage sur l'ensemble

re,

Je pense que je pourrais faire tourner les deux macros l'une après l'autre non ?

si on peut faire tout d'un coup, çà serait peut-être mieux,

De toute façon, je préfère avoir la structure réelle,

si besoin, tu ajoute les vides en question.

édit: retire le résolu

Claude