calcul de cle rib

[marc]

je cherche comment calculer la cle rib d'un compte bancaire ?

par avance merci

 

[Gael]

Bonjour Marc,

regarde sur ce lien:



@+

Gael

 

[Magic_Doctor]

Essayez ceci.

 

[Gael]

Rebonjour Marc,

Ci-dessous une formule de calcul Excel tirée du site Excelabo:

Ce lien n'existe plus


Comment retrouver la clé RIB à partir d'un numéro de compte bancaire ?

Avec codB (code banque), codG (code guichet), et numC (numéro de compte):

=MOD(97-(89*MOD(codB;97)+15*MOD(codG;97)+3*MOD(numC;97));97)

Si c'est un compte bancaire belge, la clé ( les deux derniers chiffres)
représente le modulo 97 des 10 premiers.
Si c'est pour une vérification du numéro dans une cellule, tu peux donc
utiliser la fonction
=MOD(Numéro;97)
Cela vaut également pour les numéros VCS ( Virements à communication
structurée)

Les numéros de tva se vérifient d'une manière similaire
=97-MOD(1234567;97) où 1234567 représente les 7 premiers chiffres du n°.
ChrisV, Ricky, Pierre Fauconnier, (N°856)

@+

Gael

 

[Magic_Doctor]

Petit oubli....

Function CalculRib(ByVal CodeBanque, ByVal CodeAgence, ByVal Numero)
Dim D As Double, E As Double, F As Double, G As Double
Dim H As Double, I As Double, Boucle As Long, Occ As Long
Const Lettres = 'AAJBKSCLTDMUENVFOWGPXHQYIRZ'

Numero = UCase(Numero)
For Boucle = 1 To Len(Numero)
If InStr(1, Lettres & '0123456789', Mid(Numero, Boucle, 1)) = 0 Then
'renvoie une erreur #VALEUR si un caractère invalide est détecté
CalculRib = CVErr(xlErrValue)
Exit Function
End If
Occ = InStr(1, Lettres, Mid(Numero, Boucle, 1), vbTextCompare)
If Occ > 0 Then
If Occ Mod 3 = 0 Then Occ = Occ - 1
Numero = Left(Numero, Boucle - 1) & 1 + (Occ \\ 3) & Mid(Numero, Boucle + 1)
End If
Next Boucle
If Numero = '' Then Numero = 0
Numero = CDbl(Numero)

D = CodeBanque * 8
CodeBanque = Int(D / 97)
CodeBanque = D - (CodeBanque * 97)

E = CodeAgence * 15
CodeAgence = Int(E / 97)
CodeAgence = 97 - (E - (CodeAgence * 97))

F = Numero * 3
Numero = Int(F / 97)
Numero = 97 - (F - (Numero * 97))
G = CodeBanque + CodeAgence + Numero
H = Int(G / 97)
I = G - (H * 97)
If I = 0 Then I = 97
CalculRib = I
End Function

 

[michel_m]

Bonsoir,

Le site ici s'appelle Excel-downloads.... Si,si

Donc, dans la centrale de téléchargement, ca vaut peut-être le coup de regarder, pas vrai ?


Michel