Calcul clef RIB et IBAN

Version imprimable

05/03/2015, 17h54
vandman

Calcul clef RIB et IBAN

Bonjour,

Je cherche a créer des ibans fictif, mais valide pour des logiciels. Le but étant de ne pas mettre de vrais iban dans des plateformes de test.

J'ai des codes banques et des codes guichets valides avec leur BIC.
Je génère un numéro de compte avec:

Code:

ALEA.ENTRE.BORNES(1000;9999999999)

Pour la clef j'ai ceci:

Code:

N2=97-MOD(89*(codes banques)+15*(codes guichet)+76*GAUCHE(numcompte;5)+3*DROITE(numcompte;5);97)

Est-ce correcte?

Pour l'iban, je fait cela:

Code:

=98-MOD(MOD(MOD(MOD(MOD(MOD("codes banques";97)&"codes guichet";97)&GAUCHE("numcompte";5);97)&DROITE("numcompte";5);97)&"clef rib";97)&"152700";97)

F=15
R=27
Je ne cherche que des ibans français.
Est-ce correcte?

Je pose la question car les ibans obtenus sont faux. Ou se trouve mon erreur?

PS:Je ne veux pas faire cela via une macro.

Cordialement,
Vandman

Salut,

Voici une fonctionne qui marche :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Function RestePar97(Nbre As String) As Integer
  Dim i As Integer
  RestePar97 = 0
  For i = 0 To Len(Nbre) - 1
    RestePar97 = (RestePar97 * 10 + CInt(Mid(Nbre, i + 1, 1))) Mod 97
  Next i
End Function
 
Public Function BANtoIBAN(CodePays As String, BAN As String) As String
  Dim NbrePays As String
  Dim ValBase As String
  Dim CleControle As String
  'Transformation CodePays en Nbre
  NbrePays = Asc(Left(UCase(CodePays), 1)) - 55 & Asc(Right(UCase(CodePays), 1)) - 55
  'Base de calcul de la clé de contrôle Pays
  ValBase = BAN & NbrePays & "00"
  'Calcul de la clé de contrôle pays
  CleControle = 98 - RestePar97(ValBase)
  'Formatage à faire en fonction de votre besoin
  BANtoIBAN = UCase(CodePays) & Format(CleControle, "00") & " " & Format(BAN, "@@@@ @@@@ @@@@")
End Function
 
 
Sub txtNum_AfterUpdate()
    Pays = inputbox("Quel pays ?","Pays", "FR")
    NumBan =  inputbox("Quel numéro de banque ?","Banque", "210076597417")
      msgbox  BANtoIBAN(Pays,NumBan), 0, "Résultat"
End Sub

24/03/2015, 15h54
vandman

Merci zoom61

Ça fonctionne.

Je dois faire le point sur un certain nombre de sujet et je vais probablement poster le résultat.

J'ai réussi, grâce à vous, à créer un outil permettant de créer des IBAN + BIC à partir de RIB, de vérifier des IBAN, des BIC.

Cordialement,
vandman