vba selection minimum

Bonjour a tous et joyeux noel!!

je cherche a selectionner la cellule ou se trouve le minimum dans une plage selectionnée

je fais

Code:

---

1 2	Application.WorksheetFunction.Min(MaPlage1).select

---

cela ne marche pas.

pouvez vous m aider?

merci

Essayes ça:

Code:

---

1 2 3 4 5 6 7

Sub SelectionnerCelluleMinimum() Dim resultat As Double   ' Traite la feuille active... resultat = Application.WorksheetFunction.Min(ActiveSheet.UsedRange) ActiveSheet.UsedRange.Find(What:=resultat).Select End Sub

---

Tu peux remplacer UsedRange par quelqeu chose comme Range("A1:Z8"), par exemple, si tu connais les limites de ta plage de recherche.

Tu peux remplacer ActiveSheet par Worksheets("MaFeuille") si ta feuille s'appelle "MaFeuille".

bonjour

c'est peut etre pas du grand art mais ca marche

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub testmin() Dim i As Integer Dim Module As Integer Dim maplage1 As Range Set maplage1 = Worksheets("Feuil1").Range("A8:C18") For i = 1 To maplage1.Cells.Count If maplage1.Cells(i).Value = Application.WorksheetFunction.Min(maplage1) Then Module = i End If Next i maplage1.Cells(Module).Select With Selection.Interior .ColorIndex = 6 .Pattern = xlSolid End With End Sub

---

cordialement
gerard

merci beaucoup ca marche tres bien
a bientot