Discussion :

[pierre.paumier]

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 :

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

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

cela ne marche pas.

pouvez vous m aider?

merci

[Singular]

Essayes ça:

Code :

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

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".

[gedechp]

bonjour

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

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
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

[pierre.paumier]

merci beaucoup ca marche tres bien
a bientot