Une macro pour afficher la plus petite valeur d'une plage dans une cellule

[twix]

Bonjour à tous,

Je débute sur VB et je bloque sur la construction d'une macro, l'objectif est de pouvoir afficher la cellule qui correspond à la plus petite valeur dans une plage, exemple :

Nom villeCout Voyage (€)

 

[Pierrot93]

Re : Une macro pour afficher la plus petite valeur d'une plage dans une cellule

Bonjour,

ton exemple me parait un peu léger.... regarde peut être du coté de "WorksheetFunction.Min
"... sans plus de détails..

bon après midi
@+

 

[twix]

Re : Une macro pour afficher la plus petite valeur d'une plage dans une cellule

désolé fausse manipe je n'avais pas fini mon exemple (je que c'est l'emotion de la première fois lol), donc je reviens à mon example,
Nom ville Ct du voyage
paris 300
Rennes 175
Lille 400
Metz 500


L'idée est de pouvoir afficher dans une cellule le nom de la ville qui correspond à la plus petite valeur, j'ai essayé de m'ispirer sur d'autres réalisation mais sans resultat.


Sub Resultat(ByVal NomVille As Range, ByVal CtVoyage As Range)

Dim CelVille As Range
Dim Celprix As Integer
Dim Celresult As Integer


For Each Cellule In Range("A6:A11")
Celprix = CtVoyage.Cells
Celresult = Resultat.Cells

End Sub


d'avance je vous remercie pour votre coup de pouce.

 

[Robert]

Re : Une macro pour afficher la plus petite valeur d'une plage dans une cellule

Bonjour Twix et bienvenu, bonjour le forum,

Bravo pour l'exemple Twix on pouvait difficilement faire plus inutile...
Peut-ête comme ça :

Sub Macro1()
Dim min As Double
Dim r As Range
min = Application.WorksheetFunction.min(ActiveSheet.UsedRange)
Set r = ActiveSheet.UsedRange.Find(min, , xlValues, xlWhole)
r.Select
End Sub

[Édition]
Ooops désolé j'ai posté avant ta rectification...

 

[twix]

Re : Une macro pour afficher la plus petite valeur d'une plage dans une cellule

Merci pour ta réponse Robert, mais à quel étape du code je dois initialiser ma plage (lui indiquer l’adresse de la feuille et cellules ou se trouve mes donnés?
et même question pour l'affichage du résultat ? à quel moment je dois lui indiquer l’adresse de la cellule ?

 

[Robert]

Re : Une macro pour afficher la plus petite valeur d'une plage dans une cellule

Bonjour le fil, bonjour le forum,

Si tu t'étais donné la peine de fournir un petit fichier exemple on aurait ou te répondre précisément. Désolé mais la seule indication que tu fournis est la plage A6:A11. Un peu léger non ?

 

[JNP]

Re : Une macro pour afficher la plus petite valeur d'une plage dans une cellule

Bonjour le fil 🙂,
Pourquoi passer par macro 😕 ?
En admettant ton exemble en colonne A et B

=INDEX(B2:B5;EQUIV(MIN(B2:B5);B2:B5;0))&" : "&INDEX(A2:A5;EQUIV(MIN(B2:B5);B2:B5;0))

te donne le premier prix le plus bas et la ville concernée 😛...
Si tu tiens à passer par une macro

MsgBox Evaluate("INDEX(B2:B5,MATCH(MIN(B2:B5),B2:B5,0))&"" : ""&INDEX(A2:A5,MATCH(MIN(B2:B5),B2:B5,0))")

Bonne soirée 😎

 

[twix]

Re : Une macro pour afficher la plus petite valeur d'une plage dans une cellule

ça fonctionne avec ce code mais le resultat s'affiche dans un msg_box et moi je souhaite l'afficher dans une cellule ? (par exemple "B13?


Sub UseFunction()
Dim myRange As Range
Dim Answer As Integer
Set myRange = Worksheets("Exercice4").Range("A6:B11")
Answer = Application.WorksheetFunction.min(myRange)
' msgbox = Answer ( je soushaite afficher le resultat dans une cellule et non pas dans msg_box)
End Sub

Merci pour ton aide 😉

 

[JNP]

Re : Une macro pour afficher la plus petite valeur d'une plage dans une cellule

Re 🙂,

Worksheets("Exercice4")

T'as pas un peu l'impression de nous faire faire tes devoirs 🙄 ,...

With Sheets("Exercice4")
.Select
.Range("B13") = Evaluate("INDEX(B6:B11,MATCH(MIN(B6:B11),B6:B11,0))&"" : ""&INDEX(A6:A11,MATCH(MIN(B6:B11),B6:B11,0))")
End With

Bonne soirée 😎