Bonjour,
je voudrai obtenir à l'aide d'une fonction, la valeur maximale d'un ensemble de cellules correspondant à la même cellule de chaque onglet de mon classeur.
La fonction me renvoie une erreur type #valeur!

voici mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Public Function max_clas(cel As Range) As Integer
Dim Arr() As Integer 'Tableau contenant toutes les valeurs de la cellule choisie
Dim i As Integer
 
ReDim Arr(1 To Application.Worksheets.Count)
For i = 1 To Worksheets.Count
Arr(i) = Worksheets(i).cel.Value
Next i
 
 
max_tab = Application.Max(Arr)
 
End Function
cordialement,