Discussion :

[rafafa87]

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

[Marc-L]

Bonjour, bonjour !

Le code ne se trompe pas, il renvoie la valeur selon la logique programmée !

Ici la logique est erronée car la boucle des lignes n°10 à 14 est inutile !
Il suffit juste de stocker le max de la plage par feuille de calculs …


______________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse