[..] UDF conversion IBAN ?

[jujulips]

Hello,

je vais devoir codé une fonction de conversion RIB -> IBAN
Quelqu'un en aurait il en stock, avant que je m'y lance ?

Merci d'avance =)

PS: Si personne n'en a je la posterais sur le Forum ..

[Zippo]

Salut jujulips,
Parles-tu de ceci ? http://www.bpbfc.banquepopulaire.fr/pg3 ... N-BIC.html

[jujulips]

Oui Zippo c'est exactement ca !

Salut jujulips,
Parles-tu de ceci ? http://www.bpbfc.banquepopulaire.fr/pg3 ... N-BIC.html

[Zippo]

Bah, j'ai trouvé ceci :

Tu enlève le FR76 , et tu regroupes les chiffres : 2 paquets de 5 pour le code banque et le code guichet, et le dernier de 2 pour la clé. Le reste est le n° de compte.

Je n'ai pas en possession un code RIB, mais si on me montrerai à quoi cela ressemble, peut être pourrais-je faire quelque chose.

[Zippo]

Code : Tout sélectionner

Function convrib(lettre As String)
convrib = (Asc(lettre) - 64) Mod 9
If convrib = 0 Then convrib = 9
'A , J = 1
'B , K, S = 2
'C , L, T = 3
'D , M, U = 4
'E , N, V = 5
'F , O, W = 6
'G , P, X = 7
'H , Q, Y = 8
'I , R, Z = 9
End Function
 
Function convIBAN(lettre As String)
  convIBAN = (Asc(lettre) - 55)
End Function
 
Function rib(no As String) ' no = numero de compte a 21 chiffres (ou lettre)
Dim num As String
num = no
For n = 1 To Len(num)
  If Mid(num, n, 1) <> " " And Not IsNumeric(Mid(num, n, 1)) Then
   num = Replace(num, Mid(num, n, 1), convrib(Mid(num, n, 1)))
  End If
Next n
x = Split(num, " ")
B = CDbl(x(0))
G = CDbl(x(1))
D = CDbl(Left(x(2), 6))
C = CDbl(Right(x(2), 5))
rib = 97 - ((89 * B + 15 * G + 76 * D + 3 * C) Mod 97)
If Len(rib) = 1 Then rib = "0" & rib
rib = CStr(rib)
End Function

Voici le code que tu recherche en VB.

[jujulips]

Le 76 est le code IBAN qui est calculé, (et effectivement il est de 76 quand le numéro de compte ne contient pas de lettre)

Merci pour le code VB... n'ayant jamais programmé en VB ( oui la honte je sais ) je penses partir de zéro en AutoIT.

Bah, j'ai trouvé ceci :

Tu enlève le FR76 , et tu regroupes les chiffres : 2 paquets de 5 pour le code banque et le code guichet, et le dernier de 2 pour la clé. Le reste est le n° de compte.

Je n'ai pas en possession un code RIB, mais si on me montrerai à quoi cela ressemble, peut être pourrais-je faire quelque chose.

[Zippo]

Pour t'aider les noms des fonctions en VB ressemble beaucoup à autoit, aide toi de sa.

[sylvanie]

Je n'ai pas en possession un code RIB, mais si on me montrerai à quoi cela ressemble, peut être pourrais-je faire quelque chose.

Un virement ?
<mode modo=on>
Blague à part, ne me postez pas de vrai RIB sur ce forum, c'est trop personnel
<mode modo=off>
Inspirez vous de ceci :
http://virements.online.fr/