Discussion :

[mloic38]

Bonjour,

j'ai un petit problème... j'aimerais connaître la formule qui me permet d'avoir la valeur max d'une colonne. un exemple sera plus claire

27 23 5
27 23 5
27 23 9
27 23 12
27 23 5
28 00 8
28 00 12
28 00 11
28 00 8

dans ma première colonne j'ai le jour dans la deuxième l'heure et la troisième la mesure.
et j'aimerais connaître la valeur max de la troisième colonne pour chaque heure.

j'ai fais ce code la mais ça ne marche pas ...

Code :

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

 x = [Max(Range("C" & i & ":C" & i + NbRevision))]

avec i ma variable heure
NbRevision le nombre de mesure par heure

en espérant avoir une réponse

cordialement

[edelweisseric]

Bonjour à tous
Bonjour mloic38

C'est une formule ou un code que tu veux ?

Pour du code, je te propose ceci qui peut certainement être améioré.
On part du principe que les jours sont en A10, A11, ....., les heures en B10, B11, ... et les mesures en C10, C11, ....

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
32
33
34
35
36
37
38
39
40
41
42
43
Option Explicit
 
Sub cherche_max_02()
 
Dim der_cel As Integer
Dim mavar As Integer
Dim mavar_col_A As Integer
Dim mavar_col_B As Integer
Dim mavar_col_C As Integer
 
Dim i As Integer
 
Dim der_ligne As Integer
 
der_cel = Range("A10").End(xlDown).Row
 
i = 10     ' première ligne du tableau à adapter
mavar_col_A = Range("A" & i)
For i = 10 To der_cel
        If mavar = 0 Then mavar = Range("A10"): mavar_col_B = Range("B10")
        While mavar_col_A = mavar
            While mavar_col_B = Range("B" & i)
                If mavar_col_C < Range("C" & i) Then mavar_col_C = Range("C" & i)
                i = i + 1
                If i > der_cel Then Exit For
                mavar_col_A = Range("A" & i)
            Wend
' on écrit en D, E et F les résultats à adapter
            Range("D" & i - 1) = Range("A" & i - 1)
            Range("E" & i - 1) = Range("B" & i - 1)
            Range("F" & i - 1) = mavar_col_C
 
            mavar = Range("A" & i)
            mavar_col_B = Range("B" & i)
            mavar_col_C = Range("C" & i)
        Wend
        If i > der_cel Then Exit Sub
Next i
' on écrit en D, E et F les résultats à adapter
            Range("D" & i - 1) = Range("A" & i - 1)
            Range("E" & i - 1) = Range("B" & i - 1)
            Range("F" & i - 1) = mavar_col_C
End Sub

Si j'ai bien compris ta demande !

Eric

[mloic38]

merci pour ta réponse mais j'avais finalement trouvé mais après beaucoup d'essais j'ai fait ça si ça peut rendre service à quelqu'un

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
For c = 0 To 23
Moyenne = 0
somme = 0
NbRevision = 0
x = 0
z = 10000
For a = 2 To j
    If Mid(Cells(a, 3), 1, 2) = 31 And Cells(a, 2) = c Then
    NbRevision = NbRevision + 1
    somme = Cells(a, 7).Value + somme
    Sheets("synthese").Cells((c + 2), 4).Value = NbRevision
    Sheets("synthese").Cells((c + 2), 5).Value = somme
    If Cells(a, 7) > x And Cells(a, 2) = c Then
    x = Cells(a, 7).Value
    Sheets("synthese").Cells((c + 2), 7).Value = x
    If Cells(a, 7) < z And Cells(a, 2) = c Then
    z = Cells(a, 7).Value
    Sheets("synthese").Cells((c + 2), 8).Value = z
End If
End If
End If
Next a
    If NbRevision > 0 Then
    Moyenne = somme / NbRevision
    Sheets("synthese").Cells((c + 2), 6).Value = Moyenne
End If
Next c

dans ma colone 7 j'avais mes mesures dans ma colone 1 mon jour et la colone 2 l'heure.
Avec ce code ça calcule le nombre de mesure par heure, la moyenne, la valeur max et la valeur min