Boucle pour trouver la valeur minimale

yaraar · 28 Mai 2024

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 · 29 Mai 2024

yaraar à dit:
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 · 30 Mai 2024

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

sylvanu · 30 Mai 2024

Re,
Ou encore sans formule :

VB:

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

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

Boucle pour trouver la valeur minimale

yaraar

XLDnaute Junior

Pièces jointes

gbinforme

XLDnaute Impliqué

sylvanu

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Discussions similaires