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:
cordialement,
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
Partager