Adresse d'une cellule

[TETOCA]

Bonjour à toutes et à tous

Dans une plage de cellules horizontale, je cherche l'adresse de la valeur mini afin de la faire ressortir.

En VBA ça marche impec.

J'ai alors voulu solutionné par appel des fonctions Excel :

For i = 13 To DL
Val = WorksheetFunction.Min(Range('B' & i & ':H' & i))
Dec = WorksheetFunction.Match(Val, Range('B' & i & ':H' & i), 0)
Range('A' & i).Offset(0, Dec).Interior.ColorIndex = 8
Next i

Cela fonctionne aussi bien mais n'y-a-t'il un moyen d'obtenir directement l'adresse de la cellule contenant la valeur cherchée ?

Merci à toutes et à tous de votre aide et bonne fin de semaine.

 

[CBernardT]

Bonjour Tetoca et le forum,

Pour chercher l'adresse du minimum d'une plage de valeurs, j'ai utilisé les fonctions Find et Application.Min.

Soit la macro :

Sub AdresseMinimum()
Dim Mini As Range
Set Mini = Sheets('Feuil1').Range('B4:J4').Find(Application.Min(Range('B4:J4')), LookIn:=xlValues)
MsgBox Mini.Address
End Sub

Cordialement

Bernard

 

[TETOCA]

Bonjour Bernard

Je vous remercie pour votre aide. En effet ce code devrait effectuer simplement ce que je souhaite.

Malheureusement aprés avoir fonctionné 1 fois, il s'arrète sur MsgBox avec un message :

Erreur d'exécution '91'

Variable objet ou variable de bloc With non définie

et je tourne en rond là-dessus depuis un moment.

Pouvez-vous encore une fois m'aider à passer cet obstacle?

Je vous en remercie par avance et vous souhaite un bon dimanche.