Trouver si un nombre est un multiple d'un autre

Soyez le premier à donner votre avis sur cette source.

Snippet vu 25 538 fois - Téléchargée 66 fois

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

Ajouter un commentaire

Commentaire

Messages postés
492
Date d'inscription
jeudi 5 avril 2007
Statut
Membre
Dernière intervention
2 juillet 2012
1
bonjour,
huummm, peut être un peu plus simple ?
Private Sub Command1_Click()
MsgBox Multiple(Text1.Text, Text2.Text)
End Sub
'problème avec INT R=6223 et int(R)=6222 ???
'aux grand maux les grands remèdes
Function Multiple(n1 As Double, n2 As Double) As Boolean
Dim R As Double, V As Double
'si les valeurs sont inversées
If n2 > n1 Then R n2: n2 n1: n1 = R
R n1 / n2: V Round(R)
Multiple = (R Like V)
End Function
fontionne également avec des décimales
je ne l'ai pas testé sur des nombre négatif
essaie la
A+
louis

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.