Table des matières
Trouver la valeur maximale pour chaque colonne de la plage
La fonction suivante renverra la valeur maximale dans chaque colonne d'une plage :
Fonction Max_Each_Column(Data_Range As Range) As Variant Dim TempArray() As Double, i As Long If Data_Range Is Nothing Puis Exit Function With Data_Range ReDim TempArray(1 To .Columns.Count) For i = 1 To .Columns.Count TempArray(i ) = Application.Max(.Columns(i)) Next End With Max_Each_Column = TempArray End Function
Nous pouvons utiliser un sous-programme comme celui-ci pour afficher les résultats :
Private Sub CommandButton1_Click() Dim Answer As Variant Dim No_of_Cols As Integer Dim i As Integer No_of_Cols = Range("B5:G27").Columns.Count ReDim Answer(No_of_Cols) Answer = Max_Each_Column(Sheets("Sheet1").Range(" B5:g27")) For i = 1 To No_of_Cols MsgBox Answer(i) Next i End Sub
Donc:
Renvoie 990 907, 992, 976, 988 et 873 pour chacune des colonnes ci-dessus.
[REMERCIEMENTS PARTICULIERS A MIKE RICKSON POUR LA RESOLUTION DES PARAMETRES DES ARRAYS AU SEIN DE L'UDF]
