Reply to thread

Message: [QUOTE="isabelle, post: 7406400"] hi, in exemple 3: why the result is not 900.31 Function MaxNoZeroDec(rng As Range) As Double Dim c As Range, p As String, k As Integer, m As Double m = -1E+15 For Each c In rng If c <> 0 And Not (IsError(Application.Find(".", c))) Then p = Split("" & c.Value, ".")(1) If Len(p) = 1 Then p = p & "0" k = Len(p) - Len(Application.Substitute(p, "0", "")) If k = 0 Then If c > m Then m = c End If End If Next c MaxNoZeroDec = m End Function -- isabelle Le 2012-07-24 17:29, Interloper a écrit : [/QUOTE]