VBA minimum sans 0

Bonjour,

Je souhaite chercher ligne par ligne la valeur minimumd'une en exculant el chiffre 0.

J'utilise Application.WorksheetFunction.Min(myRange), qui ne permet pas de faire ceci.

Auriez vous uen solution?

    Dim nb_phase_t As Long
    Dim nb_lgt_t As Long
    Dim zz As Long
    Dim myRange_t As Range

    nb_phase_t = Feuil2.Range("AZ4").End(xlToLeft).Column
    nb_lgt_t = Feuil2.Range("C" & Rows.Count).End(xlUp).Row

        For zz = 9 To nb_lgt_t 'test valeur min ligne par ligne
                Set myRange_t = Feuil2.Range(Feuil2.Cells(zz, 6), Feuil2.Cells(zz, nb_phase_t))

                Feuil6.Cells(18 - 9 + zz, 3) = Application.WorksheetFunction.Min(myRange)

        Next ' next zz

Merci de votre aide.

Histoire de me moquer un peu :

Une méthode complète consiste à :

1 _ apprendre à saisir à l'aide d'un clavier

2 _ apprendre à Lire (relire) ce que l'on écrit

Quant au problème posé; il est possible d'utiliser la fonction PETITE.VALEUR qui peut renvoyer la énième plus petite valeur.

Cordialement

Bonjour dixit,

En effet l'étape relecture est passée à la trappe !

Je connais la fonction petite valeur, mais il me semble qu’elle n’existe pas en VBA ?

Vinny

L'enregistrement d'une macro-commande à partir d'un fichier Excel, permet de connaitre les mots clés utilisés par l'application

=> ce qui renvoie du texte du style :

ActiveCell.FormulaR1C1 = "=SMALL(RC[-2]:R[7]C[-2],2)"

Soit pour ton exemple :

Feuil6.Cells(18 - 9 + zz, 3) = Application.WorksheetFunction.Small(myRange, 2)

Cordialement

vinny a écrit :

Je souhaite chercher ligne par ligne la valeur minimumd'une en exculant el chiffre 0.

Avec une formule matricielle :

mbbp