validation d'un N° SIREN

[Flaneur]

bonsoir à tous !!

pourriez vous (encore) m'aidez ?
j'ai des usf rempli par des opérateurs (merci encore JC de Lorient!!)
malgré cela des N) de siret sont souvent Faux.
est t'il possible d'automatiser la validation sachant que:
pour vérifier on multiplie les chiffres de rang impair à partir de la droite par 1, ceux de rang pair par 2, la somme obtenue est un multiple de 10.
Exemple:
7 3282932000074

 

[Flaneur]

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

 

[Flaneur]

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

merci pour ce casse tete !!

 

[Flaneur]

au cas ou...



tout est expliqué..

 

[Hervé]

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

cle etant la variable contenant la clé calculé.

salut

 

[Flaneur]

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

merci

 

[Monique]

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)

 

[Flaneur]

ca marche !!!troooop fort Hervé !!

 

[Flaneur]

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.

 

[Monique]

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)

 

[Flaneur]

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