trouver Min et Max d'une sélection

Bonjour à tous !
J'ai un petit soucis dont je suis sur que vous avez la réponce !
Je fais une sélection via un offset :

Code:

---

1 2 3 4 5 6

Range("Debut:Fin").Select Selection.Offset(0, 1).Select Dim Mini Mini = Selection.Min Dim Maxi Maxi = Selection.Max

---

Mes cellules sélectionnées sont des nombres dont je voudrais avoir le minimum et le maximum mais Selection.Min ou .MinNumber ne fonctionne pas.
Quel est donc la bonne formulation ?


Merci .

yahi

ça devrait t'aller

Code:

---

1 2 3 4 5 6 7

Sub test() Set plage1 = Range("a1:a10") set plage2 = plage1.Offset(0, 1) Mini = WorksheetFunction.Min(plage2) Maxi = WorksheetFunction.Max(plage2) End Sub

---

j'ai mis a ma sauce :

Code:

---

1 2 3 4 5 6 7

Selection.Offset(0, 1).Select Dim Plage Plage = Selection Dim Mini Dim Maxi Mini = WorksheetFunction.Min(Plage) Maxi = WorksheetFunction.Max(Plage)

---

et ca marche impect !

merci !

yahi