cette fonction est cherche dans un tableau une valeur minimum, et renvoie la ligne et la colonne ou se trouve la valeur Min.
Que pensez vous de cette fonction
Comment l'optimiser
Merci


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
 
Function recherche(Min)
Dim Numbers(1 To 2)
With Range(Sheets("Minimum").Range("A1"), Sheets("Minimum").Range("AX74"))
    Set C = .Find(Min, LookIn:=xlValues)  
        firstAddress = C.Address
        Do
            Set C = .FindNext(C)
             Numbers(1) = C.Row
             Numbers(2) = C.Column
        Loop While Not C Is Nothing And C.Address <> firstAddress  
End With
recherche= Numbers
End Function
 
 
Sub rg()
L = wfwf(WorksheetFunction.Min(Tableau))
MsgBox L(1)
End Sub