Ecbs calcul clé rib et iban

Soyez le premier à donner votre avis sur cette source.

Vue 48 097 fois - Téléchargée 3 129 fois

Description

Un petit programme qui permet de calculer la Clé RIB et l'identifiant compte IBAN.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
2
Date d'inscription
jeudi 21 avril 2011
Statut
Membre
Dernière intervention
25 mai 2012

2012 est c'est trop compliquée
Messages postés
1
Date d'inscription
lundi 9 avril 2012
Statut
Membre
Dernière intervention
9 avril 2012

Comment fais ton pour l'executer
Messages postés
406
Date d'inscription
lundi 9 juin 2003
Statut
Membre
Dernière intervention
4 septembre 2013
1
Grand bravo pour ce génial code.
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
Messages postés
5
Date d'inscription
mardi 16 mars 2004
Statut
Membre
Dernière intervention
26 octobre 2006

Ton code fonctionne parfaitement, mille mercis
Messages postés
146
Date d'inscription
dimanche 23 janvier 2005
Statut
Membre
Dernière intervention
17 novembre 2009
1
Une petite dernière, le code IBAN est faux s'il y a une lettre dans le N° de compte, il apparait le chiffre correspondant au lieu de la lettre !
Je te laisse le soin de corriger !

@+
Afficher les 7 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.