ECBS CALCUL CLÉ RIB ET IBAN
Mikaels35
Messages postés
146
Date d'inscription
dimanche 23 janvier 2005
Statut
Membre
Dernière intervention
17 novembre 2009
-
15 août 2005 à 07:28
aubbusta Messages postés 2 Date d'inscription jeudi 21 avril 2011 Statut Membre Dernière intervention 25 mai 2012 - 25 mai 2012 à 08:19
aubbusta Messages postés 2 Date d'inscription jeudi 21 avril 2011 Statut Membre Dernière intervention 25 mai 2012 - 25 mai 2012 à 08:19
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/33243-ecbs-calcul-cle-rib-et-iban
https://codes-sources.commentcamarche.net/source/33243-ecbs-calcul-cle-rib-et-iban
25 mai 2012 à 08:19
9 avril 2012 à 01:50
23 avril 2008 à 15:07
Voila je n'avais besoin que d'une infime partie de ton code pour controler un immense nombre de plusieur centaine de chiffres.
J'ai donc adapté comme je l'ai pu, car je suis débutant, pour qu'il ne traite qu'un seul nombre.
Je voudrais savoir ce qu'il faudrais modifier pour que la clef de controle comporte 6 chiffres par exemple.
Car avec un nombre de plusieurs centaines de chiffres, j'ai de fortes chances d'obtenir beaucoups de clefs identiques pour des nombres differents.
Private Sub Form_Load()
cle = CalculateRib("6604651630406874687468743041084340303403434874038570437463807438074387403430121030743403")
MsgBox cle
End
End Sub
Function CalculateRib(sNoCompte As Variant) As String
Dim tNoCompte As String
Dim in_C As Variant
Dim in_F As Variant
Dim in_G As Variant
Dim in_H As Variant
tNoCompte = ReadCompteNumber(sNoCompte)
in_C = CVar(tNoCompte)
in_F = 3 * in_C
in_C = 97 - CalculateModulo(in_F, 97)
in_H = in_C Mod 97
CalculateRib IIf(in_H 0, 97, in_H)
End Function
Function ReadCompteNumber(sStr As Variant) As String
Dim in_i As Integer
Dim sString As String
Dim iNb As Integer
Dim sCar As String
Dim sTemp As String
sString = CStr(sStr)
in_i = 1
Do While in_i <= Len(sString)
sTemp = Mid(sString, in_i, 1)
If Asc(sTemp) < 48 Or Asc(sTemp) > 57 Then
If Asc(sTemp) >= 65 Or Asc(sTemp) <= 90 Then
iNb = Asc(sTemp) - 64
If iNb > 9 Then iNb = iNb - 9
If iNb > 9 Then iNb = iNb - 8
sCar = CStr(iNb)
sString = Mid(sString, 1, in_i - 1) & sCar & Mid(sString, in_i + 1, Len(sString))
Else
If Asc(sTemp) >= 97 Or Asc(sTemp) <= 122 Then
iNb = Asc(sTemp) - 96
If iNb > 9 Then iNb = iNb - 9
If iNb > 9 Then iNb = iNb - 8
sCar = CStr(iNb)
sString = Mid(sString, 1, in_i - 1) & sCar & Mid(sString, in_i + 1, Len(sString))
Else
sString = Mid(sString, 1, in_i) & Mid(sString, in_i + 1, Len(sString))
in_i = in_i - 1
End If
End If
End If
in_i = in_i + 1
Loop
ReadCompteNumber = sString
End Function
Function CalculateModulo(x As Variant, y As Variant) As Variant
CalculateModulo = x - (Int(x / y) * y)
End Function
Merci de votre aide
24 oct. 2005 à 16:05
15 août 2005 à 09:35
Je te laisse le soin de corriger !
@+
15 août 2005 à 07:53
Il faut mettre:
sString = Mid(sString, 1, in_i - 1) & sCar & Mid(sString, in_i + 1, Len(sString))
dans les calculs de conversion lettre/chiffre.
15 août 2005 à 07:28
Si je mets mon N° avec 10 chiffres et une lettre à la fin cela me dit que le N° de compte ne doit pas comporter plus de 11 caractères !!