Soyez le premier à donner votre avis sur cette source.
Snippet vu 27 485 fois - Téléchargée 68 fois
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
13 avril 2007 à 05:20
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.