moyenne horaire

[Nico38]

bonjour,

je suis un novice d'excel, et j'aimerais avoir un solution à mon petit problème.
Voilà j'ai un fichier excel avec des données toutes les 5 minutes qui se suivent (cf fichier joint). J'aimerais effectuer une macro me permettant d'avoir la moyenne horaire dans une colonne ou une feuille séparé :
La moyenne à 15h, correspond aux données entre 14h00 et 15h00 par exemple.

Comment faire, sachant que j'ai un classeur avec des données toutes les 10 minutes environ et sur tout unmoi !!

Je vous remercie pour votre aide.

Nico38

[dubois]

Bonsoir et bienvenue,

Une solution avec filtre
entrer la plage horaire en E1:E2 (format Standard)
résultat moyenne en H1

Dans le VBE de la feuille

Code: Tout sélectionner

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lg&
    If Not Application.Intersect(Target, Range("e1:e2")) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        Lg = Range("a" & Rows.Count).End(xlUp).Row
        Range("k2") = "=AND(HOUR(a2)>=$e$1,HOUR(a2)<$e$2)" 'critères
       Range("a1:b" & Lg).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
        Range("k1:k2"), CopyToRange:=Range("g2:h2"), Unique:=False
        Range("h1") = "=AVERAGE(h3:h" & Lg & ")"
        Range("k2").ClearContents
    End If
End Sub

Amicalement
Claude

[Nico38]

Bonjour Claude,

merci de ta réponse !!
cela va m'être bien utile.
Simplement est-il possible d'avoir la moyenne horaire par jour ?
Avec le code que tu me propose, apparemment le calcul de la moyenne se fait sur la tranche horaire de tous le jours. En fait, j'aimerais avoir par jour la moyenne horaire : exemple : horaire moyenne du 02/02/2009 de 16h à 17h .
horaire moyenne du 02/02/2009 de 17h à 18H....etc
Est ce possible ?

Aussi dan la colonne H1, il n'apparit pas toute les mesures de la tranche horaire entré en E1 et E2, est ce normal ?

Encore merci

Amicalement.

Nicolas

[dubois]

re,

C'est ce que j'avais commencer à faire, j'ai pas garder le code,
reviens d'ici 1/4 d'heure

Claude

[dubois]

re,

Par jour

Code: Tout sélectionner

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lg&
    If Not Application.Intersect(Target, Range("e1:e2")) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        Lg = Range("a" & Rows.Count).End(xlUp).Row
        Range("k2") = "=AND(a2>=$e$1,a2<=$e$2)" 'critères
       Range("a1:b" & Lg).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
        Range("k1:k2"), CopyToRange:=Range("g2:h2"), Unique:=False
        Range("h1") = "=AVERAGE(h3:h" & Lg & ")"
        Range("k2").ClearContents
    End If
End Sub

Claude

[Nico38]

Merci beaucoup Claude !!!

tu me facilite grandement la chose !!

Amicalement

nicolas

[dubois]

re,

Une version peut-être + facile à saisir

Claude

[Nico38]

MERCI

[Nico38]

Bonjour Claude,

en décembre tu m'avais fais une macro pour des calculs de moyennes. Je t'en remercie d'ailleurs.

Je voulais savoir si il était possible modifier cette macro, pour que le calcul de la moyenne horaire se fasse automatiquement quand on insère les données avec les mesures toutes les 5 minutes. En clair, une fois les données entré dans la colonne A, est il possible d'avoir directement la moyenne horaire pour chaque jour ?

Je te remercie de ta réponse, tu trouveras en pièce jointe, la dernière version que tu m'avais envoyé.

Merci et bonne soirée,

Nicolas

[dubois]

Bonjour,

Tu veux la moyenne de chaque jours (sans le détail), c'est bien çà ?

combien de jour dans le fichier ?
je regarderais dans la soirée.

édit: retire le résolu pour continuer

Amicalement
Claude