Trouver si un nombre est un multiple d'un autre

Commenter

Contenu du snippet

Ce code sert à savoir si un nombre est un multiple d'un autre nombre.
Cela est donc très pratique pour gérer des valeurs binaires (2 ^ x) en particulier.
Malgré sa simplicité, je n'ai trouvé ce code nulle part sur le site.

Source / Exemple : 


Dim NombreàTraiter As Long
Dim Multiple As Long

Function Calculer(NombreàTraiter, Multiple)
    If NombreàTraiter = 0 Then Exit Function
    If Int(Multiple / NombreàTraiter) = Multiple / NombreàTraiter Then
        Calculer = True
        MsgBox "Le nombre " & Multiple & " est un multiple du nombre " & NombreàTraiter
        'Insérer le code
    Else
        Calculer = False
        MsgBox "Le nombre " & Multiple & " n'est pas un multiple du nombre " & NombreàTraiter
        'Insérer le code
    End If
End Function

'Exemple: 8 est un multiple de 2
'R& = Calculer(2, 8) est vrai

Conclusion :


Si ce code comportait des erreurs, merci de me le signaler

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_lbs)