Iban

[JU555]

Bonsoir !

J'aimerais créer un fichier qui extrait automatiquement la clé de contrôle numérique d'un compte IBAN.

Je joins une tentative qui fonctionne pour le premier exemple, mais pas pour les deux seconds. Je ne comprends pas pourquoi.

Merci de votre aide !

 

[Staple1600]

Re : Iban

Bonsoir



De quoi t'aider dans ce fil sans doute non ?

https://www.excel-downloads.com/threads/conversion-en-iban.97481/

 

[ROGER2327]

Re : Iban

Bonsoir

Compte tenu des explications données dans le fichier, je ne comprends pas pourquoi on ne trouve pas 61118544174111400 en C5. Que n'ai-je pas compris ou mal interprété ?
A part ça, ça sent le dépassement de capacité à plein nez...​

ROGER2327
#1892

 

[Staple1600]

Re : Iban

Bonsoir


Pour le fun

En une seule formule (sans MOD car il est pas content)
En E1 , saisir la formule ci-dessous

=98-(CNUM(STXT(D1;5;12)&CODE(GAUCHE(C1;1))-55&CODE(STXT(C1;2;1))-55&STXT(C1;3;2))-(97*ENT(CNUM(STXT(D1;5;12)&CODE(GAUCHE(C1;1))-55&CODE(STXT(C1;2;1))-55&STXT(C1;3;2))/97)))

Elle renvoie : 34

 

[JU555]

Re : Iban

Merci JM.

Je pourrais avoir quelques explications ?

Merci !

 

[Staple1600]

Re : Iban

Re



Voir le fichier joint

tout en abusant de la touche F1

 

[JU555]

Re : Iban

Extra, grand merci !

Seulement, ça ne semble pas fonctionner pour :

BE00611118544174

??

 

[Staple1600]

Re : Iban

Re

Dans ce cas, voir le fil que je citais dans mon message de 20h43
https://www.excel-downloads.com/threads/conversion-en-iban.97481/

Notamment la réponse de Pierrejean (que je salue)

 

[Staple1600]

Re : Iban

Re


Je viens de me souvenir que j'avais jadis (en 2007) répondu à une question similaire

Voir ce fil
https://www.excel-downloads.com/thr...avec-plus-de-15-chiffres-significatifs.83493/

 

[ROGER2327]

Re : Iban

Re-bonsoir JU555, Staple1600

Amusant, ce truc.
_
=98-(((3*STXT(A2;5;6)-97*ENT(3*STXT(A2;5;6)/97))*1000000+3*DROITE(A2;6)-97*ENT(((3*STXT(A2;5;6)-97*ENT(3*STXT(A2;5;6)/97))*1000000+3*DROITE(A2;6))/97))*10000+3*(CODE(A2)-55&CODE(STXT(A2;2;1))-55)-97*ENT((((3*STXT(A2;5;6)-97*ENT(3*STXT(A2;5;6)/97))*1000000+3*DROITE(A2;6)-97*ENT(((3*STXT(A2;5;6)-97*ENT(3*STXT(A2;5;6)/97))*1000000+3*DROITE(A2;6))/97))*10000+3*(CODE(A2)-55&CODE(STXT(A2;2;1))-55))/97))
_
fonctionne aussi pour

BE00611118544174
BE00611118544073
​

Bonne nuit.
ROGER2327
#1893

 

[Staple1600]

Re : Iban

Bonsoir Roger


Bravo pour cette formule

Pour les ceux qui voudraient utiliser VBA, voici un code tout mâché

Automated Chaos: QTP: IBAN validation in VBScript

(Il trouve les même résultats que Roger2327, dont je serai curieux de voir sa version VBA )

PS: Est-ce que le bug de MOD est toujours là sur Excel 2007 ?

 

[ROGER2327]

Re : Iban

Re...

(...)
Pour les ceux qui voudraient utiliser VBA, voici un code tout mâché

Automated Chaos: QTP: IBAN validation in VBScript

(Il trouve les même résultats que Roger2327, dont je serai curieux de voir sa version VBA )
(...)

Pourquoi pas ?

[COLOR="DarkSlateGray"]Function clef_IBAN(s As String) As Integer
Dim i As Long
   Application.Volatile
   If Len(s) <> 16 Then clef_IBAN = "": Exit Function
   For i = 1 To 2
      s = Right$(s & Asc(s) - 48 + 7 * (Asc(s) > 64), Len(s) - (Asc(s) > 64))
   Next i
   s = Right$("0000" & Right$(s, Len(s) - 2) & "00", 20)
   For i = 4 To 0 Step -1
      clef_IBAN = (clef_IBAN + (CInt(Mid$(s, 17 - 4 * i, 4)) Mod 97) * (9 ^ i Mod 97)) Mod 97
   Next i
   clef_IBAN = 98 - clef_IBAN
End Function[/COLOR]

ROGER2327
#1895

 

[JU555]

Re : Iban

Le résultat renvoyé devrait être 16 et ce n'est pas le cas

--> ??

 

[JU555]

Re : Iban

Excellent !!!


Merci beaucoup !!!

 

[ROGER2327]

Re : Iban

Re...

Le résultat renvoyé devrait être 16 et ce n'est pas le cas

--> ??

??​

ROGER2327
#1896