Boucle pour trouver la valeur minimale

yaraar

XLDnaute Junior
Lorsque je cherche la valeur minimale dans une colonne en utilisant la méthode manuelle, je clique sur "Données", puis je filtre la colonne et trouve la valeur minimale. Mais lorsque j'automatise cette tâche avec un code VBA, je n'obtiens pas la même valeur minimale que celle trouvée manuellement. Pouvez-vous m'aider à résoudre ce problème, s'il vous plaît?

et si possible de maider aussi pour résoudre le message que je reçois lorsque je fait un filtre ( les elements ne s'affiche pas tous)
1716889616902.png

1716889717537.png

La colonne contient 892340 ligne
je suis sur excel version 2016

La valeur min que j'ai trouvé manuellement est 14.6602 ligne 22105
 

Pièces jointes

  • Classeur2.xlsx
    530.2 KB · Affichages: 6

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Yaraar, Gbinforme,
@yaraar,
1- Un petit bonjour est toujours le bienvenu, simple politesse.
2- Le min de votre liste est 0, donc je pense que vous recherchez la valeur min non nulle.
Voir PJ avec cette macro :
VB:
Sub ChercheMin()
Dim DL, T, Mini, i
Application.ScreenUpdating = False
DL = [B1000000].End(xlUp).Row
T = Range("B6:B" & DL)
Mini = 9 ^ 9
For i = 1 To UBound(T)
    If T(i, 1) <> "" And T(i, 1) <> 0 And T(i, 1) < Mini Then Mini = T(i, 1)
Next i
MsgBox "Minimum trouvé : " & Mini
End Sub
 

Pièces jointes

  • Yaraar.xlsm
    549.8 KB · Affichages: 0

Discussions similaires

Réponses
5
Affichages
112
Réponses
5
Affichages
117

Statistiques des forums

Discussions
313 262
Messages
2 096 641
Membres
106 697
dernier inscrit
Zedid