Function Get_IbanNum(I_BANATRANS)
' Transforme l'Iban en chaine numérique
   Iban_N = I_BANATRANS
   LongIban = Len(Iban_N)
   
   For n = 1 To Len(Iban_N)
        Cpt = Cpt + 1
        Extrac = UCase(Mid(Iban_N, Cpt, 1))
        If IsNumeric(Extrac) Then
		   Var = Var & Extrac
           Else
           Select Case Extrac
                Case "A"
                    Var = Var & 10
                Case "B"
                    Var = Var & 11
                Case "C"
                    Var = Var & 12
                Case "D"
                    Var = Var & 13
                Case "E"
                    Var = Var & 14
                Case "F"
                    Var = Var & 15
                Case "G"
                    Var = Var & 16
                Case "H"
                    Var = Var & 17
                Case "I"
                    Var = Var & 18
                Case "J"
                    Var = Var & 19
                Case "K"
                    Var = Var & 20
                Case "L"
                    Var = Var & 21
                Case "M"
                   Var = Var & 22
                Case "N"
                    Var = Var & 23
                Case "O"
                   Var = Var & 24
                Case "P"
                   Var = Var & 25
                Case "Q"
                    Var = Var & 26
                Case "R"
                    Var = Var & 27
                Case "S"
                    Var = Var & 28
                Case "T"
                    Var = Var & 29
                Case "U"
                    Var = Var & 30
                Case "V"
                    Var = Var & 31
                Case "W"
                    Var = Var & 32
                Case "X"
                    Var = Var & 33
                Case "Y"
                    Var = Var & 34
                Case "Z"
                    Var = Var & 35
            End Select
        End If
    Next

    Get_IbanNum = Var    

End Function

Function Get_CleIban(I_BANUM)
' Calcul de la cle de l'Iban pour tous les pays. 
' Gère pour une longueur Max d'un Iban transformé en Numérique 37.

    Iban = I_BANUM
	LIban = Len(Iban)

    A = CLng(Left(Iban, 9))
    CalcA = A Mod 97
    
    B1 = CalcA & Mid(Iban, 10, 7)
    CalcB1 = B1 Mod 97
    
    C1 = CalcB1 & Mid(Iban, 17, 7)
    CalcC1 = C1 Mod 97
    
    D1 = CalcC1 & Mid(Iban, 24, 7)
    CalcD1 = D1 Mod 97

    E1 = CalcD1 & Mid(Iban, 31, 7)
    CalcE1 = E1 Mod 97

    F1 = CalcE1 & Mid(Iban, 38, 7)
    CalcF1 = F1 Mod 97

    G1 = CalcF1 & Mid(Iban, 45, 7)
    CalcG1 = G1 Mod 97

    R1 = 98 - CalcG1
    If R1 <> 98 Then
       Get_CleIban = R1
    End If
	
End Function