validation d'un N° SIREN

F

Flaneur

Guest

• 2 Avril 2006

• #2

oups!!!
j'ai valider le message..je continue.
donc;
7 3282932000074
rang impair x1 3 8 9 2 0 0 4
rang impair x2 14 4 4 6 0 0 14
________________
1+4+3+4+8+4+9+6+2+0+0+0+0+1+4+4=50
le N° de Siret est donc exact

 

Vote positif 0 Vote négatif

F

Flaneur

Guest

• 2 Avril 2006

• #3

j'ai oublié l'essentiel !!
le N° de SIRET est toujous de 14 chiffres!!

merci pour ce casse tete !!

 

Vote positif 0 Vote négatif

F

Flaneur

Guest

• 2 Avril 2006

• #4

au cas ou...



tout est expliqué..

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 2 Avril 2006

• #5

Bonsoir flaneur, le forum

peut etre pourrais-tu essayer comme ceci :

Dim tablo()
Dim i As Integer
Dim x As Byte, cle As Byte

For i = Len(TextBox1) To 1 Step -1
        x = x + 1
        ReDim Preserve tablo(1 To x)
        If i Mod 2 = 0 Then
                tablo(x) = (Val(Mid(TextBox1, i, 1)))
        Else
                tablo(x) = Val(Mid(TextBox1, i, 1)) * 2
        End If
Next i

For i = 1 To UBound(tablo)
        If Len(tablo(i)) = 1 Then
                cle = cle + tablo(i)
        Else
                cle = cle + Left(tablo(i), 1) + Right(tablo(i), 1)
        End If
Next i

MsgBox 'clé : ' & cle

Cliquez pour agrandir...

cle etant la variable contenant la clé calculé.

salut

 

Vote positif 0 Vote négatif

F

Flaneur

Guest

• 3 Avril 2006

• #6

bonsoir Hervé,
je te remercie pour ta réponse et j'essaie de suite.

merci

 

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 3 Avril 2006

• #7

Bonjour,

à essayer :
=SOMMEPROD(ENT(STXT(A1;{1;3;5;7;9;11;13};1)/5)+MOD(STXT(A1;{1;3;5;7;9;11;13};1)*2;10)+STXT(A1;{2;4;6;8;10;12;14};1)*1)

 

Vote positif 0 Vote négatif

F

Flaneur

Guest

• 3 Avril 2006

• #8

ca marche !!!troooop fort Hervé !!

 

Vote positif 0 Vote négatif

F

Flaneur

Guest

• 3 Avril 2006

• #9

bonsoir Monique,
je te remercie !!moi qui croyait 'faire caler' les xlnautes !!!
voila qu'il pleut des réponses diverses et exactes!!

me sens tout petit d'un coup...
je vais pouvoir continuer à avancer!!!
merci à tous.

 

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 3 Avril 2006

• #10

Re,

Pour le n° de SIREN, cette fois :
=SOMMEPROD(ENT(STXT(A5;{2;4;6;8};1)/5)+MOD(STXT(A5;{2;4;6;8};1)*2;10))+SOMMEPROD(STXT(A5;{1;3;5;7;9};1)*1)

 

Vote positif 0 Vote négatif

F

Flaneur

Guest

• 3 Avril 2006

• #11

merci !!!
vais me coucher moi...
bonne nuit !!

 

Vote positif 0 Vote négatif