Bonjour,
je cherche la valeur maximum d'une même plage de cellule dans plusieurs onglets,
ce code ne me renvoie pas la bonne valeur


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
Public Function max_clasind(myrange As Range) As Double
Dim Arr() As Double 'Tableau contenant toutes les valeurs de la cellule choisie
Dim i, j As Integer
Dim celli As Range
 
ReDim Arr(1 To Worksheets.Count)
 
For i = 1 To Worksheets.Count
 
    For Each celli In myrange
 
Arr(i) = Worksheets(i).Range(celli.Address).Value
 
    Next
 
Next i
 
 
max_clasind = Application.Max(Arr)
 
End Function
cordialement