Private Function IsMultiple(ByVal NumberReference As Double, ByVal NewValue As Double, ByRef lResult As Long) As Boolean
lResult = 0
If Not (InStr(1, CStr(NewValue / NumberReference), ".") >= 1 Or InStr(1, CStr(NewValue / NumberReference), ",") >= 1) Then IsMultiple = True: lResult = NewValue / NumberReference
End Function
Sub EXEMPLE()
Dim lReturn As Long
Debug.Print IsMultiple(7, 14, lReturn) & Space(2) & lReturn 'Vrai 2
Debug.Print IsMultiple(7, 21, lReturn) & Space(2) & lReturn 'Vrai 3
Debug.Print IsMultiple(7, 22, lReturn) & Space(2) & lReturn 'Faux 0
Debug.Print IsMultiple(7, 28, lReturn) & Space(2) & lReturn 'Vrai 4
Debug.Print IsMultiple(7, 130, lReturn) & Space(2) & lReturn 'Faux 0
End