Contr\u00f4le de la coh\u00e9rence du num\u00e9ro de s\u00e9curit\u00e9 sociale (longueur du num\u00e9ro, clef de contr\u00f4le).<\/div>\n<\/li>\n<\/ul>\n
La loi restreint l\u2019usage du num\u00e9ro de S\u00e9curit\u00e9 Sociale. En effet, dans la mesure o\u00f9 il permet d\u2019identifier les personnes physiques au plan national, son usage (stockage, traitement\u2026) est limit\u00e9 \u00e0 certains fichiers (paye par exemple) ; il est interdit de l\u2019utiliser comme identifiant (y compris dans un fichier de paye) et d\u2019effectuer des recoupements de fichiers \u00e0 l\u2019aide de ce num\u00e9ro.<\/p>\n
Calcul de la clef de contr\u00f4le<\/em><\/strong><\/p>\nLa clef de contr\u00f4le r\u00e9pond \u00e0 une formule de calcul tr\u00e8s simple. La clef est \u00e9gale \u00e0 97 moins le reste de la division des treize premiers chiffres du num\u00e9ro de S\u00e9curit\u00e9 sociale par 97.<\/p>\n
Pour la Corse :<\/p>\n
\n- \n
La lettre\u00a0A ou B est remplac\u00e9e par un z\u00e9ro,<\/div>\n<\/li>\n
- \n
si la lettre est A, on soustrait au nombre de 13 chiffres la valeur 1 000 000 et si la lettre est B on soustrait 2 000 000.<\/div>\n<\/li>\n<\/ul>\n
Calcul de la clef de contr\u00f4le en VBA<\/em><\/strong><\/p>\nEn VBA, la clef se calcule donc ainsi : 97 \u2013 (num13 \u2013 int(num13 \/ 97) * 97)<\/p>\n
\n- \n
Num13 correspondant aux treize premiers chiffres du num\u00e9ro de s\u00e9curit\u00e9 sociale.<\/div>\n<\/li>\n
- \n
Int() permet de ne retenir d\u2019un nombre que la partie enti\u00e8re : int(12,3) renvoie 12.<\/div>\n<\/li>\n<\/ul>\n
La fonction ClefNumSS() d\u00e9finie ci-apr\u00e8s est utilisable dans des formules de calcul EXCEL. Par exemple, pour obtenir la clef de contr\u00f4le 07 en cellule B2 \u00e0 partir du num\u00e9ro saisi en B1 :<\/p>\n
\n\n\n| <\/td>\n | \n A<\/p>\n<\/td>\n | \n B<\/p>\n<\/td>\n<\/tr>\n |
\n| 1<\/td>\n | \n 1 76 05 14 118 044<\/p>\n<\/td>\n | \n 07<\/p>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n La formule de calcul en B1 doit \u00eatre : =clefnumss(A1)<\/p>\n Texte de la fonction :<\/em><\/p>\nFunction ClefNumSS(num\u00e9roSS As String)\r\n Dim num13 As Currency\r\n Dim s As String\r\n Dim soustrait As Currency\r\n \r\n num\u00e9roSS = Left(Replace(num\u00e9roSS, \" \", \"\"), 13)\r\n \r\n 'Retraitement des d\u00e9partements corses (2A et 2B)\r\n soustrait = 0\r\n s = Mid(num\u00e9roSS, 7, 1)\r\n Select Case s\r\n Case \"A\"\r\n num\u00e9roSS = Replace(num\u00e9roSS, \"A\", \"0\")\r\n soustrait = 1000000\r\n Case \"B\"\r\n num\u00e9roSS = Replace(num\u00e9roSS, \"B\", \"0\")\r\n soustrait = 2000000\r\n End Select\r\n \r\n num13 = CCur(num\u00e9roSS) - soustrait\r\n \r\n 'Calcul de la clef\r\n ClefNumSS = Format(97 - (num13 - Int(num13 \/ 97) * 97), \"00\")\r\nEnd Function<\/pre>\nPour en savoir plus sur la cr\u00e9ation de fonctions Excel en VBA : http:\/\/www.auditsi.eu\/?p=513<\/a><\/p>\n |
![\"Share](\"https:\/\/static.hupso.com\/share\/buttons\/lang\/fr\/share-small.png\")
<\/a>