WorksheetFunction.Min

Salut,

Est ce qu'il y a moyen d'extraire la valeur mini d'une série de variables quand certaines sont vides (et non pas à 0) ? WorksheetFunction.Min renvoie 0 dans ce cas. Bien sûr celles qui sont vides ne sont jamais les mêmes, donc je dois toutes garder dans ma procédure.

J'ai testé et bizarrement la formule =Min(Range) renvoie bien la valeur non nulle minimale.

Merci d'avance.

Manu

Bonjour,

quelque chose qui pourra peut-être aider:

Sub test()
Dim a, b
a = 0
Debug.Print IsEmpty(a) 'Faux
Debug.Print IsEmpty(b) 'Vrai
Debug.Print a = 0 'Vrai
Debug.Print b = 0 'Vrai
End Sub

Sub test2()
Debug.Print mini(8, 3, 5, 1, , 9, 2)
End Sub

Private Function mini(ParamArray valeurs())
For i = LBound(valeurs, 1) To UBound(valeurs, 1)
    If Not IsEmpty(valeurs(i)) Then
        If IsNumeric(valeurs(i)) Then
            If valeurs(i) < mini Or IsEmpty(mini) Then
                mini = valeurs(i)
            End If
        End If
    End If
Next i
End Function

Finalement j'ai trouvé plus simple : WorksheetFunction(Array(Variable1, Variable2, Variable3,Variable4).

Enfin plus simple il faut le dire vite. Avec les om de variables que j'avais utilisé (Date_échéance, Echéance_DEV, Echéance_premier_vol, Ech'ance_CN) ça ne fonctionnait pas. Mais en renommant mes variables (a, b, c ,d) ça fonctionne...

Incompréhensible... Le nom des variables influe sur une fonction...

Manu

Bonsoir,

Je croyais que WorksheetFunction.Min ne fonctionnait pas, finalement elle fonctionne?

Oui je l'utilise régulièrement

Manu