IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Contribuez Discussion :

Calcul clé rib


Sujet :

Contribuez

  1. #1
    Expert éminent
    Avatar de Maxence HUBICHE
    Homme Profil pro
    Développeur SQLServer/Access
    Inscrit en
    juin 2002
    Messages
    3 842
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : France, Val d'Oise (Île de France)

    Informations professionnelles :
    Activité : Développeur SQLServer/Access

    Informations forums :
    Inscription : juin 2002
    Messages : 3 842
    Points : 8 598
    Points
    8 598
    Par défaut Calcul clé rib
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
     
     
    'Définition d'un Type pour le découpage du compte
    Type Compte
        A As String
        B As String
        C As String
        D As String
    End Type
     
    Function RIB(CB As String, CG As String, NC As String) As String
    'Calcul de la clé RIB à partir de
    'CB : Code Banque (5 caractères)
    'CG : Code Guichet (5 caractères)
    'NC : N° de Compte (11 caractères)
    'Cette fonction prend en compte le remplacement des lettres par des chiffres pour les CCP
     
        Dim MC           As Compte
        'remplacer les lettres par les chiffres
        NC = ChTran(CB & CG & NC, "AJBKSCLTDMUENVFOWGPXHQYIRZ", "11222333444555666777888999")
        '* vérification du numéro de compte 21 digits en tout
        If Len(NC) <> 21 Then
            Err.Raise vbObjectError + 1, "N° Compte", "Attention ! Un numéro de compte doit forcément faire 11 caractères"
        End If
        'Décomposer le compte en 4 parties
        MC.A = Mid(NC, 1, 5)
        MC.B = Mid(NC, 6, 5)
        MC.C = Mid(NC, 11, 6)
        MC.D = Mid(NC, 17, 5)
        'Renvoyer la clé RIB
        RIB = Format(97 - (89 * Val(MC.A) + 15 * Val(MC.B) + 76 * Val(MC.C) + 3 * Val(MC.D)) Mod 97, "00")
    End Function
     
     
    Function ChTran(ByVal sSource As String, sChainComp As String, sChainCorresp As String) As String
    'Cette fonction recherche, pour chaque caractère de sSource s'il est présent dans sChainComp, 
    'et, si c'est le cas, le remplace par le caractère correspondant  dans sChainCorresp
        Dim lngNb As Long
        Dim lngPos  As Long
        For lngNb = 1 To Len(sSource)
            lngPos = InStr(UCase(sChainComp), UCase(Mid(sSource, lngNb, 1)))
            If lngPos <> 0 Then
                Mid(sSource, lngNb, 1) = Mid(sChainCorresp, lngPos)
            Else
                'rien à faire
            End If
        Next
        ChTran = sSource
    End Function

  2. #2
    Candidat au Club
    Homme Profil pro
    Ressources humaines
    Inscrit en
    octobre 2016
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Madagascar

    Informations professionnelles :
    Activité : Ressources humaines

    Informations forums :
    Inscription : octobre 2016
    Messages : 1
    Points : 2
    Points
    2
    Par défaut [Excel 2016] code guichet
    Bonjour à tous, le forum,

    je vous remercie pour le code et j'ai une question qui est un peu subtile : comment fait-on pour trouver le code guichet (00000) si on connait le code banque (00000), le numéro de compte (00000000000) et la clé rib (00).

    Merci de votre aide.

    Kolytamby

Discussions similaires

  1. [LibreOffice][Tableur] Calcul clef RIB et IBAN
    Par vandman dans le forum OpenOffice & LibreOffice
    Réponses: 2
    Dernier message: 24/03/2015, 15h54
  2. Calcule Rib en C#
    Par khadime27 dans le forum C#
    Réponses: 10
    Dernier message: 29/11/2012, 16h30
  3. [VB]Calcul Clé RIB
    Par dai.kaioh dans le forum VB 6 et antérieur
    Réponses: 19
    Dernier message: 18/01/2005, 11h09
  4. [TP7] Calculer sin, cos, tan, sqrt via le FPU
    Par zdra dans le forum Assembleur
    Réponses: 8
    Dernier message: 25/11/2002, 04h09
  5. Algo de calcul de FFT
    Par djlex03 dans le forum Traitement du signal
    Réponses: 15
    Dernier message: 02/08/2002, 17h45

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo