Discussion :

[david71]

Bonjour,

Je ne m'y connais pas bien en macro EXCEL, mais j'aimerais faire l'action suivante :

1.Enlever les caractères indésirables (espaces, tirets)
2.Déplacer les 4 premiers caractères à droite
3.Convertir les lettres en chiffres via une table de conversion (A=10, B=11, C=12 etc)
4.Diviser le nombre ainsi obtenu par 97. Si le reste est égal à 1 l'IBAN est correct : Modulo de 97 égal à 1

Donc avoir une feuille excel avec un champ où l'on rentre l'IBAN et dire s'il est correct ou pas.

Merci pour toute réponse.

[david71]

Bon je suis finalement parvenu à effectuer tout, mais je bloque sur la division par 97.

J'ai un dépassement de capacité, quand je fais :

Code :

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

1
2
3
4
5
 
Dim a,b,r As Double
...
r = a Mod b 
...

Dans une macro, je ne peux pas utiliser apparemment Decimal.

[Invité]

Bonjour

Attention, seule ta variable r est déclaré en double, les autres sans aucunes indication sont déclarées en variant. C'est à dire qu'Excel décide du meilleur type en fonction de ce que tu mets dedans. Je te conseille de déclarer toutes tes variables correctement dans un premier temps pour voir ce que cela donne.

Starec

[david71]

Ok j'ai fait les déclarations complètes, je ne savais pas qu'on ne pouvait pas faire comme en C en VB6...

Par contre, ça me donne toujours le même problème de dépassement de capacité :

Code :

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

1
2
3
4
5
6
7
 
Dim a1 As Double
Dim r As Double
...
a1 = CDbl("783528889315111483")
r = a1 Mod 97
...

[david71]

Apparemment, le problème vient donc du dividende "a1" qui est trop grand.

En principe, on doit avoir comme résultat "r=1".

J'ai essayé de procéder autrement :

Code :

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

1
2
3
4
5
6
 
Dim q As Double
...
q = a1/97
r = a1 - (97 * q)
...

Mais j'obtiens "r=39" !!

[david71]

Finalement en rajoutant des fonctions dédiées au calcul du modulo, cela fonctionne, il ne faut donc pas utiliser la fonction "Mod" de VB6.

[cafeine]

J'ai essayé un truc du genre en m'inspirant du principe de la division ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function ResteModulo97(ByVal str As String) As Integer
 
Dim i As Integer
Dim Reste As Integer
 
Reste = 0
For i = 0 To Len(str) - 1
    Reste = (Reste * 10 + CInt(Mid(str, i + 1, 1))) Mod 97
Next i
 
ResteModulo97 = Reste
 
End Function

et miracle

Code :

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

1
2
?restemodulo97("783528889315111483")
 1

[Invité]

Caféine

Tu m'étonneras toujours, tu as recrée le modulo. Par contre pour notre culture as-tu une explication du dépassement de capacité ?

Tu à droit à

Starec

[david71]

Bravo !

Merci en tout cas !

[cafeine]

Merci

hé bien en fait, le dépassement de capacité c'est parce que Mod travaille sur le type Long.

Caféine

Tu m'étonneras toujours, tu as recrée le modulo. Par contre pour notre culture as-tu une explication du dépassement de capacité ?

Tu à droit à

Starec