Discussion :

[JeanYves70]

Bonjour à tous

J'ai un soucis avec l'opérateur "mod" qui permet de retourner le reste d'une division.

Je dois diviser une variable (double) par 97 et lorsque je force en tapant la valeur 50018025287 ACCESS ajoute un # derrière mon nombre et j'ai le message d'erreur "dépassement de capacité"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim  mod2 As Double
 mod2 = 50018025287# Mod 97

si je fais comme dans l'aide sur l'erreur : c'est pareil

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

mod2 = CLng(50018025287#) Mod 97

C'est visiblement un problème de taille de variable, pourtant initialisée à "Double". Y a t'il une solution de contournement ?

D'avance merci

[droggo]

Lai,

Il suffirait peut-être d'écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim  mod2 As Double
 mod2 = 50018025287.0 Mod 97

Car la valeur 50018025287 est intermédiairement interprétée comme un entier (et qui donc déborde la capacité), tu peux tester avec une valeur plus faible pour vérifier.

[JeanYves70]

Bonjour et merci pour ta réponse rapide,

Non c'est pareil si j'écris "50018025287.0", le ".0" est imédiatement transformé en #.

Effectivement si je teste avec deux chiffres en moins : "500180252", cela fonctionne mais j'ai besoin de tous mes chiffres.

[JeanYves70]

Si j'essais avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

mod2 = 50018025287.1 Mod 97

le ".1" n'est pas transformé mais j'ai toujours dépassement de capacité.

[argyronet]

Bonjour,

Solution : ne pas utiliser MOD car vous arrivez à la limitation de la conversion d'entiers, opération systématiquement appliquée avant d'opérer au calcul du modulo lui même...

Une piste :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Function MyMod(ByVal DvdNum As Double, ByVal DvsNum As Double) As Double
Dim dblResult                                          As Double
 
    dblResult = DvdNum - (CLng(DvdNum / DvsNum) * DvsNum)
    MyMod = dblResult
End Function
 
Sub testMod()
Dim NB1 As Double, NB2                                 As Double
 
    NB1 = 50018025287#
    NB2 = 97
    Debug.Print MyMod(NB1, NB2)
End Sub

Argy

[JeanYves70]

Bonjour et merci argy

ça fonctionne nickel, je vais adapter à mes variables.