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

OpenOffice & LibreOffice Discussion :

Calcul clef RIB et IBAN


Sujet :

OpenOffice & LibreOffice

  1. #1
    Membre actif

    Homme Profil pro
    Consultant informatique
    Inscrit en
    Septembre 2011
    Messages
    370
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Consultant informatique
    Secteur : Industrie

    Informations forums :
    Inscription : Septembre 2011
    Messages : 370
    Points : 251
    Points
    251
    Par défaut 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 : Sélectionner tout - Visualiser dans une fenêtre à part
    ALEA.ENTRE.BORNES(1000;9999999999)
    Pour la clef j'ai ceci:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    =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

  2. #2
    Rédacteur

    Avatar de zoom61
    Homme Profil pro
    ...
    Inscrit en
    Janvier 2005
    Messages
    9 429
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Haute Vienne (Limousin)

    Informations professionnelles :
    Activité : ...
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2005
    Messages : 9 429
    Points : 58 609
    Points
    58 609
    Billets dans le blog
    11
    Par défaut
    Salut,

    Voici une fonctionne qui marche :
    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
    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
    N'oubliez pas le Tag afin de faciliter la recherche, et en votant cela permet de mieux la cibler.

    Je ne réponds pas aux messages privés s'ils sont liés à une question technique

  3. #3
    Membre actif

    Homme Profil pro
    Consultant informatique
    Inscrit en
    Septembre 2011
    Messages
    370
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Consultant informatique
    Secteur : Industrie

    Informations forums :
    Inscription : Septembre 2011
    Messages : 370
    Points : 251
    Points
    251
    Par défaut
    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

Discussions similaires

  1. Calcul clé rib
    Par Maxence HUBICHE dans le forum Contribuez
    Réponses: 1
    Dernier message: 06/10/2016, 07h47
  2. [WD15] calcul clef INSEE
    Par nrdz83 dans le forum WinDev
    Réponses: 8
    Dernier message: 25/08/2011, 10h01
  3. [WD16] Conversion de RIB en IBAN
    Par latysa2 dans le forum WinDev
    Réponses: 8
    Dernier message: 28/03/2011, 16h46
  4. probleme dans le calcul de clef de banque
    Par fdumont dans le forum Langage
    Réponses: 3
    Dernier message: 04/06/2007, 16h58
  5. [VB]Calcul Clé RIB
    Par dai.kaioh dans le forum VB 6 et antérieur
    Réponses: 19
    Dernier message: 18/01/2005, 12h09

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