[VBA] Reste de la division par 97

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.

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:

---

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.

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

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:

---

1 2 3 4 5 6 7

Dim a1 As Double Dim r As Double ... a1 = CDbl("783528889315111483") r = a1 Mod 97 ...

---

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:

---

1 2 3 4 5 6

Dim q As Double ... q = a1/97 r = a1 - (97 * q) ...

---

Mais j'obtiens "r=39" !!

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.

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

Code:

---

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:

---

1 2	?restemodulo97("783528889315111483") 1

---

http://freelog.chez.tiscali.fr/emoti...Content_50.gif 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 à http://freelog.chez.tiscali.fr/emoti.../Content_3.gif

Starec

Bravo !

Merci en tout cas !

Merci :oops:

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

Citation:

---

Envoyé par Starec

http://freelog.chez.tiscali.fr/emoti...Content_50.gif 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 à http://freelog.chez.tiscali.fr/emoti.../Content_3.gif

Starec

---