Discussion :

[deubelte]

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

[ouskel'n'or]

Là, si tu as plusieurs valeurs Min, ça va te donner la dernière occurence trouvée de Min et donc la dernière adresse. Si tu n'en cherches qu'une, la boucle est inutile

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Function recherche(Min)
Dim Numbers(1 To 2)
With Range(Sheets("Minimum").Range("A1"), Sheets("Minimum").Range("AX74"))
    Set C = .Find(Min, LookIn:=xlValues)  
    If Not C Is Nothing Then 
           Numbers(1) = C.Row
           Numbers(2) = C.Column
           recherche= Numbers
    endif
End With
End Function

Tu pourrais aussi mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With Range(Sheets("Minimum").Range("A1"), Sheets("Minimum").Range("AX74"))
    Set C = .Find(Min, LookIn:=xlValues)  
    If Not C Is Nothing Then recherche= C.address
End With

qui ramènerait l'adresse complète
A+

Edit
Et déclare c as range