Iban

Staple1600

XLDnaute Barbatruc

• 17 Octobre 2009

• #2

Re : Iban

Bonsoir



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

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

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 17 Octobre 2009

• #3

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Octobre 2009

• #4

Re : Iban

Bonsoir


Pour le fun

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

Code:

=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

 

Vote positif 0 Vote négatif

J

JU555

XLDnaute Occasionnel

• 17 Octobre 2009

• #5

Re : Iban

Merci JM.

Je pourrais avoir quelques explications ?

Merci !

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Octobre 2009

• #6

Re : Iban

Re



Voir le fichier joint

tout en abusant de la touche F1

 

Vote positif 0 Vote négatif

J

JU555

XLDnaute Occasionnel

• 18 Octobre 2009

• #7

Re : Iban

Extra, grand merci !

Seulement, ça ne semble pas fonctionner pour :

BE00611118544174

??

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 18 Octobre 2009

• #8

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)

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 18 Octobre 2009

• #9

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/

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 18 Octobre 2009

• #10

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

 

Pièces jointes

• JU555_ctrl_IBAN.xls

  21 KB · Affichages: 177

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 18 Octobre 2009

• #11

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 ?

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 18 Octobre 2009

• #12

Re : Iban

Re...

Staple1600 à dit:

(...)
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 😉 )
(...)

Cliquez pour agrandir...

Pourquoi pas ?

Code:

[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

 

Vote positif 0 Vote négatif

J

JU555

XLDnaute Occasionnel

• 18 Octobre 2009

• #13

Re : Iban

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

--> ??

 

Vote positif 0 Vote négatif

J

JU555

XLDnaute Occasionnel

• 18 Octobre 2009

• #14

Re : Iban

Excellent !!!


Merci beaucoup !!!
😉

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 18 Octobre 2009

• #15

Re : Iban

Re...

JU555 à dit:

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

--> ??

Cliquez pour agrandir...

??​

ROGER2327
#1896

 

Vote positif 0 Vote négatif