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 44 45
| Function maxsi(rgemax As Range, rge As Range, cond As Variant)
Function maxsi(rgemax As Range, rge As Range, cond As Variant)
' Rgemax : ensemble de cellule sur lesquelles portent le calcul du Max
' rge : ensemble des cellules sur lesquelles pourtent le test
' cond : valeur de cellule qui sert de condition sur rge
Dim cel As Range
Dim i As Integer
i = 1
maxsi = rgemax.Item(1, 1)
For Each cel In rge
If cel.Value = cond Then
If maxsi < rgemax.Item(i, 1).Value Then
maxsi = rgemax.Item(i, 1).Value
End If
End If
i = i + 1
Next
End Function
Function minsi(rgemin As Range, rge As Range, cond As Variant) As Variant
' Rgemin : ensemble de cellule sur lesquelles portent le calcul du Min
' rge : ensemble des cellules sur lesquelles pourtent le test
' cond : valeur de cellule qui sert de condition sur rge
Dim cel As Range
Dim i As Integer
i = 1
minsi = rgemin.Item(1, 1)
For Each cel In rge
If cel.Value = cond Then
If minsi < rgemin.Item(i, 1).Value Then
minsi = rgemin.Item(i, 1).Value
End If
End If
i = i + 1
Next
End Function |
Partager