Recherche à comparer 4 valeurs et récupérer la valeur mini différente de 0 [Résolu]

Messages postés
125
Date d'inscription
mardi 9 septembre 2008
Statut
Membre
Dernière intervention
16 juillet 2019
- - Dernière réponse : ucfoutu
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
- 26 janv. 2012 à 16:04
Bonjour,

QQn sait-il si une fonction ou qqch de simple peut me permettre de récupérer la valeur mini non nulle?
Attention il ne s'agit pas d'une plage de valeur d'une feuille excel mais 4 valeurs récupérées dans 4 feuilles différents.

Merci d'avance pour votre aide.
Afficher la suite 

5 réponses

Meilleure réponse
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
212
3
Merci
Oui ?
Avec un peu de jugeote, pourquoi pas ?

 lalecture1 = 3
  lalecture2 = 5
  lalecture3 = 1
  lalecture4 = 2
  toto = Array(lalecture1, lalecture2, lalecture3, lalecture4)
  For i = 0 To UBound(toto)
    If toto(i) 0 Then toto(i) "je m'en moque et mets donc n'importe quoi"
  Next
MsgBox WorksheetFunction.Min(toto)


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 137 internautes nous ont dit merci ce mois-ci

Commenter la réponse de ucfoutu
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
212
0
Merci
Bonjour,
Mets donc ces valeurs dans un array et applique la fonction Min de Exlek à l'aide de WorkSheetFunction à cet array !
Regarde (exemple) :
lalecture1 = 3
lalecture2 = 5
lalecture3 = 1
lalecture4 = 2
MsgBox WorksheetFunction.Min(Array(lalecture1, lalecture2, lalecture3, lalecture4))
End Sub



____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Commenter la réponse de ucfoutu
Messages postés
125
Date d'inscription
mardi 9 septembre 2008
Statut
Membre
Dernière intervention
16 juillet 2019
0
Merci
Bonjour,

Excellente idée. Peut-on dasn ton exemple traitée le cas de la valeur ou des valeurs nulles? Je voudrais écarter les valeurs nulles et récupérer la valeur min de celles qui sont renseignées en fait.

Merci pour ton aide.
Commenter la réponse de Lameche15
Messages postés
125
Date d'inscription
mardi 9 septembre 2008
Statut
Membre
Dernière intervention
16 juillet 2019
0
Merci
Ok je comprend ta démarche.
Ca me va!

Merci beaucoup
Commenter la réponse de Lameche15
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
212
0
Merci
alors : ===>> tag "réponse acceptée", donc (manière de libérer ce sujet)


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Commenter la réponse de ucfoutu