{"id":11607,"date":"2023-09-11T06:03:40","date_gmt":"2023-09-11T04:03:40","guid":{"rendered":"https:\/\/www.auditsi.eu\/?p=11607"},"modified":"2023-08-21T12:31:52","modified_gmt":"2023-08-21T10:31:52","slug":"excel-verifier-la-validite-dun-numero-siren","status":"publish","type":"post","link":"https:\/\/www.auditsi.eu\/?p=11607","title":{"rendered":"EXCEL : V\u00e9rifier la validit\u00e9 d’un num\u00e9ro SIREN"},"content":{"rendered":"

Le num\u00e9ro SIREN<\/strong> (Syst\u00e8me d’Identification du R\u00e9pertoire des ENtreprises) est un identifiant attribu\u00e9 \u00e0 chaque entreprise en France. Son r\u00f4le est de permettre une identification unique et une tra\u00e7abilit\u00e9 dans divers contextes administratifs et \u00e9conomiques.<\/p>\n

\"V\u00e9rifie<\/p>\n

Cependant, pour garantir la pr\u00e9cision et l’int\u00e9grit\u00e9 des donn\u00e9es, il est essentiel de v\u00e9rifier la validit\u00e9<\/strong> des num\u00e9ros SIREN int\u00e9gr\u00e9s dans les bases de donn\u00e9es (fiches tiers…). Dans cet article, nous fournirons une macro VBA<\/strong> pour faciliter ce processus de v\u00e9rification apr\u00e8s un rapide propos introductif sur l’histoire de la cr\u00e9ation du SIREN.<\/p>\n

Histoire du num\u00e9ro SIREN<\/em><\/strong><\/p>\n

Le num\u00e9ro SIREN a \u00e9t\u00e9 introduit<\/strong> en France en 1973<\/strong> pour simplifier l’identification des entreprises et faciliter leur suivi administratif.<\/p>\n

Compos\u00e9 de 9 chiffres, il identifie de mani\u00e8re unique chaque entreprise enregistr\u00e9e<\/strong>, quelle que soit sa forme juridique. Le SIREN est utilis\u00e9 dans de multiples domaines, tels que les d\u00e9clarations fiscales, la gestion comptable et commerciale (identification des partenaires commerciaux)…<\/p>\n

Composition du num\u00e9ro SIREN<\/em><\/strong><\/p>\n

Les huit premiers chiffres du num\u00e9ro SIREN identifient l’entreprise et le neuvi\u00e8me, calcul\u00e9 \u00e0 partir des huit premiers, constitue la clef de contr\u00f4le<\/strong>. C’est la coh\u00e9rence entre les huit premiers chiffres et la clef de contr\u00f4le qu’il convient de v\u00e9rifier. La clef (ou somme) de contr\u00f4le est calcul\u00e9e selon l’algorithme de Luhn.<\/p>\n

L’algorithme de Luhn<\/em><\/strong><\/p>\n

L’algorithme de Luhn, \u00e9galement connu sous le nom d’algorithme de Mod 10, est une m\u00e9thode couramment utilis\u00e9e pour v\u00e9rifier l’int\u00e9grit\u00e9 des num\u00e9ros d’identification<\/strong>.  Il a \u00e9t\u00e9 cr\u00e9\u00e9 dans les ann\u00e9es 60 par un ing\u00e9nieur allemand nomm\u00e9 Hans Peter LUHN alors qu\u2019il travaillait comme chercheur chez IBM, et sa notori\u00e9t\u00e9 prit forme lorsque les banques l\u2019adopt\u00e8rent pour v\u00e9rifier la validit\u00e9 des num\u00e9ros de cartes de cr\u00e9dit. Il repose sur un calcul de somme de contr\u00f4le pour d\u00e9tecter les erreurs de saisie ou de transmission. Il est donc utilis\u00e9 pour valider les num\u00e9ros de cartes bancaires mais aussi les num\u00e9ros de s\u00e9curit\u00e9 sociale, IMEI (t\u00e9l\u00e9phones portables), SIREN et SIRET, de TVA intracommunautaire…<\/p>\n

Pour v\u00e9rifier une somme de contr\u00f4le<\/strong> d’un num\u00e9ro SIREN, cet algorithme repose sur les \u00e9tapes de calcul suivantes :<\/p>\n

    \n
  1. Doubler un chiffre sur deux (position paire) en partant de la droite vers gauche. Si le r\u00e9sultat donne un nombre \u00e0 deux chiffres, soustraire 9 pour obtenir un seul chiffre ;<\/li>\n
  2. Additionner ensemble tous les num\u00e9ros obtenus lors de l’\u00e9tape 1  ;<\/li>\n
  3. Additionner tous les chiffres position impaire de droite \u00e0 gauche ;<\/li>\n
  4. Additionner les r\u00e9sultats des \u00e9tapes 2 et 3 ;<\/li>\n
  5. Si le r\u00e9sultat de l’\u00e9tape 4 est divisible par 10, le num\u00e9ro SIREN test\u00e9 est valide sinon, il est invalide.<\/li>\n<\/ol>\n

    Cet algorithme est assez simple \u00e0 programmer.<\/p>\n

    >>><\/strong><\/em><\/span> Autre exemple d’application de l’algorithme de Luhn : contr\u00f4le de la validit\u00e9 d\u2019un num\u00e9ro de S\u00e9curit\u00e9 sociale<\/a> \/ calcul du num\u00e9ro de TVA intracommunautaire \u00e0 partir d’un num\u00e9ro SIREN<\/a>.<\/p>\n

    Macro VBA de contr\u00f4le de la validit\u00e9 du num\u00e9ro SIREN<\/strong> <\/em><\/p>\n

    La fonction V\u00e9rifieClefLuhn_SIREN v\u00e9rifie la somme de contr\u00f4le d’un num\u00e9ro SIREN et renvoie TRUE (Vrai) si le num\u00e9ro est conforme, FALSE (Faux) dans le cas contraire.<\/p>\n

    Exemple d’utilisation dans un classeur Excel :<\/p>\n

    =V\u00e9rifieClefLuhn_SIREN(“312212301”)<\/p>\n

    Dans le cas pr\u00e9sent, cette formule de calcul Excel renvoie Vrai.<\/p>\n

    Le fichier Excel est t\u00e9l\u00e9chargeable ci-apr\u00e8s.<\/p>\n

    Code-source de la macro :<\/p>\n

    '----------------------------------------------------------------------------------\r\n'\r\n' Contr\u00f4le de la validit\u00e9 d'un num\u00e9ro SIREN\r\n'\r\n' Infos : https:\/\/www.auditsi.eu\/?p=11607\r\n'\r\n'----------------------------------------------------------------------------------\r\n\r\n\r\nOption Explicit\r\n\r\n\r\n'----------------------------------------------------------------------------------\r\n'Algorithme de Luhn applicable aux num\u00e9ros SIREN et SIRET\r\n'----------------------------------------------------------------------------------\r\n\r\n\r\n'V\u00e9rifie la clef de contr\u00f4le d'une cha\u00eene (qui contient la clef) selon l'algorithme de Luhn\r\nPrivate Function V\u00e9rifieClefLuhn(Cha\u00eene As String) As Boolean\r\n    'D\u00e9claration des variables\r\n    Dim LongueurCha\u00eene As Integer\r\n    Dim i As Integer\r\n    Dim Position As Integer\r\n    Dim Chiffre As Integer\r\n    Dim Addition As Integer\r\n        \r\n    'Calcule le nombre de caract\u00e8res de la Cha\u00eene\r\n    LongueurCha\u00eene = Len(Cha\u00eene)\r\n    \r\n    Addition = 0\r\n    Position = 0\r\n    \r\n    'Parcourt chaque chiffre de la variable Cha\u00eene de droite \u00e0 gauche\r\n    For i = LongueurCha\u00eene To 1 Step -1\r\n        Position = Position + 1\r\n        \r\n        'Lit le chiffre en cours (position i dans la Cha\u00eene)\r\n        Chiffre = CInt(Mid(Cha\u00eene, i, 1))\r\n        \r\n        'Si la position est paire (\u00e0 partir de la droite), multiplier par 2\r\n        If Position Mod 2 = 0 Then 'si le reste de la division i\/2= 0 -> position paire sinon impaire\r\n            Chiffre = Chiffre * 2\r\n            'Si le r\u00e9sultat de la multiplication est sup\u00e9rieur \u00e0 9, soustraire 9\r\n            If Chiffre > 9 Then\r\n                Chiffre = Chiffre - 9\r\n            End If\r\n        End If\r\n        \r\n        'Additionne les chiffres au fur et \u00e0 mesure de l'ex\u00e9cution de la boucle (impairs*2 + pairs)\r\n        Addition = Addition + Chiffre\r\n    Next i\r\n    \r\n    'Calcule la clef de contr\u00f4le\r\n    V\u00e9rifieClefLuhn = (Addition Mod 10) = 0\r\nEnd Function\r\n\r\n\r\n'V\u00e9rifie la validit\u00e9 de la clef contenue dans un num\u00e9ro SIREN\r\n'   Valeur de retour :\r\n'       - VRAI : clef correcte\r\n'       - FAUX : clef erronn\u00e9e ou longueur du num\u00e9ro SIREN fourni <> 9\r\nFunction V\u00e9rifieClefLuhn_SIREN(Cha\u00eene As String) As Boolean\r\n    Select Case Len(Cha\u00eene)\r\n        Case 9:\r\n            V\u00e9rifieClefLuhn_SIREN = V\u00e9rifieClefLuhn(Cha\u00eene)\r\n        Case Else:\r\n            V\u00e9rifieClefLuhn_SIREN = False\r\n    End Select\r\nEnd Function<\/pre>\n
    A noter, cette macro ne v\u00e9rifie pas l’existence du num\u00e9ro SIREN mais seulement la coh\u00e9rence entre les huit premiers chiffres et la clef de contr\u00f4le.<\/p>\n
    ___<\/p>\n
    Approfondir le sujet : SIREN<\/a> \/ Information l\u00e9gale des entreprises<\/a><\/p>\n
    2.13.0.0<\/div>\n
    2.13.0.0<\/div>\n
    2.13.0.0<\/div>\n
    2.13.0.0<\/div>\n
    2.13.0.0<\/div>\n
    \"Share<\/a>