Boucle pour trouver la valeur minimale

[yaraar]

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)

La colonne contient 892340 ligne
je suis sur excel version 2016

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

 

[gbinforme]

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.

Bonjour,
Sans le code que tu considères faux comment pourrait-on le corriger éventuellement ?

 

[sylvanu]

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 :

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

 

[sylvanu]

Re,
Ou encore sans formule :

=MIN(SI(B:B<>0;B:B))

A valider par Maj+Ctrl+Entrée car formule matricielle.