Discussion :

[yahi.jye]

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 :

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

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

[alsimbad]

ça devrait t'aller

Code :

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

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

[yahi.jye]

j'ai mis a ma sauce :

Code :

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

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