Discussion :

[rafafa87]

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,

[Theze]

Bonjour,

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
 
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 Worksheets.Count)
 
    For i = 1 To Worksheets.Count
 
        Arr(i) = Worksheets(i).Range(cel.Address).Value
 
    Next i
 
    max_clas = Application.Max(Arr)
 
End Function