Discussion :

[cpf2006]

Bonjour,

je dois dans ma macro diviser un nombre négatif de 10 chiffres par un autre nombre à 2 chiffre pour obtenir le modulo

ex :

Code :

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

1
2
 
-2680124948# mod 79

cette opération me donne une erreur 6 "dépassement de capacité"

VBA met automatiquement "#" lorsque la valeur dépasse les 9 chiffres
dans quelle variable puis-je retourner ce calcul ?

Merci d'avance

cpf

[cpf2006]

Je pense qu'il est impossible d'assigner le résultat d'un nombre double modulo un integer mais dans une valeur double elle aussi

voici mon code :

Code :

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

1
2
3
4
 
Dim valeur as double
 
valeur = -2680124948# mod 79

ce code donne une erreur 6 "dépassement de capacité"

[Igloobel]

Bonjour,

En fait c'est ton nombre source qui est trop grand pour le modulo : -2 680 124 948

C'est limité à la limite du long : -2 147 483 647 et c'est ailleurs pour cela que tu as un #

Code :

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

1
2
3
4
Nb_source = -2680124948#
Divis = 79
 
Result = Nb_source - int(Nb_source / Divis) * Divis

Cette formule te donne le modulo

[Thumb down]

Bonsoir,
test en mode Texte!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function MyMod(Valeur As String, Modulo As Integer) As Double
Dim T, I As Integer
For I = 1 To Len(Valeur)
  If Mid(Valeur, I, 1) <> "#" Then T = T & Mid(Valeur, I, 1)
   If T <> "-" Then T = T Mod Modulo
Next
MyMod = T
End Function
Sub test()
Debug.Print MyMod(-2680124948#, 79)
End Sub

[Thumb down]

int(Nb_source / Divis) retourne un arrondi de la valeur le modulo ne sera pas forcément exact!

Code :

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

1
2
3
4
5
Sub test()
Nb_source = -268012494
Divis = 79
Debug.Print Nb_source - Int(Nb_source / Divis) * Divis, Nb_source Mod Divis
End Sub

[laurent_ott]

Bonjour,
Le fichier joint à cette discussion : https://laurent-ott.developpez.com/t...le-quadratique
(voir le chapitre 12) contient les codes VBA pour gérer les grands nombres (plusieurs centaines de chiffres) pour toutes sortes d'opérations (dans les modules 'Gamma'), ce qui répondra à votre besoin.
Bonne programmation.

[Igloobel]

int(Nb_source / Divis) retourne un arrondi de la valeur le modulo ne sera pas forcément exact !

Effectivement INT ne marche pas sur les valeur négatives, n'ayant jamais fait de modulo sur des valeurs négatives j'ai cru (à tord) que c'était comme pour les valeurs positive

Par contre, FIX lui, le fait Très bien








J'ai verifié en posant la division à la main, on a bien -20




Donc la bonne syntaxe est :

Code :

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

Result2 = Nb_source - Fix(Nb_source / Divis) * Divis

[cpf2006]

Bonjour

Un grand merci à tous.

Je vais lire tout ça attentivement et tester

Bien à vous

cpf