Conversion comptes bancaires
Bonjour,
Qui pourrait m'aider dans la demande suivante : je cherche à convertir des numéros de compte BBAN en numéros IBAN dans un fichier excel tel que ci-annexé.
Il existe des convertisseurs sur les sites des banques mais ils ne travaillent que compte par compte... et j'en ai plus de 2.000 à convertir !
Merci de votre retour.
Bonjour @ tous,
Si j'ai bien compris, en H1,
="BE11 "&GAUCHE(SUBSTITUE(A1;"-";);4)&" "&STXT(SUBSTITUE(A1;"-";);5;4)&" "&DROITE(SUBSTITUE(A1;"-";);4)@ tirer vers le bas
@ + +
Merci de la réponse, en fait, cela doit donner ceci :
BBAN IBAN
000-0000000-97 BE54 0000 0000 0097
210-0205428-34 BE68 2100 2054 2834
860-1097867-03 BE21 8601 0978 6703
360-1169262-30 BE15 3601 1692 6230
Le code BExx dépendant de la banque !
Merci
Re,
C'est à toi de me nous donner tous les BIC des banques que tu as, et plus il faut sur le fichier indiquer à quelle banque il appartient le code bancaire, on ne voie rien sur le fichier fourni, et en plus je ne sais pas à quoi correspondre la colonne G est-ce que ceux sont des noms de banques ou quoi??
@ te relire avec un fichier plus explicite
Bonjour,
Selon moi les codes IBAN comportent plusieurs parties : le code du pays, le code de la banque, le numéro du compte et – last but not least – un numéro de contrôle assez tordu, calculé sur la base des autres chiffres et lettres présents.
Je ne pense pas que tu vas arriver à transformer tes numéros de compte en numéros IBAN si tu n’as pas un programme qui connait le calcul de ce numéro de contrôle.
Cordialement.
EDIT : Décidemment, Rachid, on se suit aujourd'hui
Bonjour @ tous,
Salut Yvouile,
Pour moi je répond de ce que j'ai pu comprendre sur ce site, chaque banque à un identifiant international que l'on appelle BIC..
@ + +
Message effacé - Eventuellement que le numéro de contrôle n'existe que dans certains pays.
Amicalement.
Bonjour,
voici une fonction personnalisée pour convertir un compte belge (BBAN) en IBAN. cette fonction fait appel à une autre fonction mod97 qui permet de calculer le modulo 97 sur des entiers de plus de 9 chiffres.
fonctions à insérer dans un module et à tester.
appel de la fonction
A1 bumero de compte au format BBAN
en B1 (par exemple) =bbantoibanBE(A1)
Function bbantoibanBE(ByVal s As String)
'Créer un IBAN artificiel, composé du code du pays (ISO 3166), suivi de "00" et du BBAN (sans caractères autres qu'alphanumériques).
'Un BBAN belge comme 510-0075470-61 devient BE00510007547061
'Déplacer les 4 premiers caractères de l'IBAN à la droite du numéro.
'Résultat : 510007547061BE00
'Convertir les lettres en chiffres, selon la règle suivante. Chaque lettre est remplacée par les deux chiffres du nombre obtenu en ajoutant 9 à son rang dans l'alphabet. On obtient 10 pour A, 11 pour B… et 35 pour Z.
'Résultat : 510007547061111400
'Appliquer le MOD 97-10 (cf. ISO 7064).
'Calculer le modulo 97, c'est-à-dire le reste de la division du résultat précédent par 97, et retrancher ce reste de 98. Si le résultat comporte un seul chiffre, le faire précéder du chiffre zéro.
'Insérer le résultat ainsi obtenu à la position 3 de l'IBAN artificiel créé dans l'étape préalable (en remplacement des 2 zéros) :
'98 - 36 = 62, d'où IBAN = BE62510007547061
s = Replace(Replace(s, "-", ""), " ", "")
n = s & "111400" ' pour la belgique
m = Mod97(n)
bbantoibanBE = "BE" & Format(m, "00") & s
End Function
Function Mod97(ByVal Numero As String) As Integer
'for IBAN
nro = Numero
While Len(nro) > 9
n = Left(nro, 9) Mod 97
nro = Format(n, "00") & Right(nro, Len(nro) - 9)
Wend
n = nro Mod 97
n = 98 - n
Mod97 = n
End FunctionBonjour,
Je me disais bien qu'il devait y avoir un numéro de contrôle pour tous les pays
