Min avec condition

Question

Bonjour,
J'ai une question concernant VBA, en fait j'ai 4 valeurs  qui peuvent être positive ou négative et je voudrais avoir le minimum des valeurs positives parmi ces 4. 
Merci beaucoup

Utilisateur anonyme · Answer

Salut,

Je pense que comparer 2 valeurs est à la porté de tout le monde non ?

__________
  Kenji

arnaud95000 · Answer

Oui et après le faire sur 46 000 lignes un peu moins...

jrivet · Answer

Salut,
Si tu travailles avec Excel il est bon de le préciser. Si tu connais la plage de données il est bon de le préciser aussi. 
Où mettre les résultats?, Est  ce  un MIn Pour les 46000 lignes ou Un MIN par lignes).  Si tu as plus de détails, il serait bien de les dire aussi 

exemple: ne pas attendre ton second post pour dire que cela ce fait sur 46000 lignes. Est ce que tu vois ou je veux en venir.
Plus tu donneras des explications claires pour énoncer ton problème plus rapidement il sera résolu (en tout cas je te le souhaites)

@+: Ju£i?n
Pensez: Réponse acceptée

pneau · Answer

salut,
Tu travailles sur un fichier Excel ?ou sur une base Access ?

@+
Pat

 Don't Worry , Be Happy 

<hr />lorsque le problème est résolu, pensez Réponse Acceptée

arnaud95000 · Answer

Oui mais çà me paraissait logique que je ne souhaitais pas prendre le minimum de 4 nombre simplement. 
Je travaille sur une base excel. Je cherche à faire le min de ces 4 nombres ligne à ligne. En gros pour l'instant j'ai une boucle me permettant de stocker les 4 nombres.
Cacul_1 : premier nombre
Calcul_2 : second nombre
Calcul_3 : troisième nombre
Calcul_4:quatrième nombre.
Maintenannt je dois prendre le minimum de ces 4 nombres et faut que le minimum soit positif.
Pour les résultats je les mettrai au fur à mesure de la boucle cells(i,9) = ...
Merci beaucoup

NHenry · Answer

Bonjour

Allez, une solution : 
Dans une macro : 
public function GetMin(byref pRange as range) as variant
    Dim lMin as variant
    dim lRange as Range
    
     lMin=empty

    For each lRange un pRange
        if lRange.value>=0 then
            if isempty(lmin) then
                lmin=lrange.value
            elseif lrange.value<lmmin then
                lmin=lrange.value

            end if
        end if
    next lRange
    
    GetMin=lRange
end function

Ensuite dans ta cellule : 
=GetMin(A1:D1)

Et voilà.

Balèse la personne qui a pensé au pansement à penser (ou à panser, pensée).
VB (6, .NET1&2), C++, C#.Net1
Mon site

Min avec condition

6 réponses

Votre réponse

Discussions similaires