Comme son nom l'indique. Cette routine calcule ou contrôle un numéro Insee.
Source / Exemple :
Function Clé_Insee(Insee As String) As String
Dim Insee_Compacté As String
Insee_Compacté = NoSpaceInString(Insee)
Clé_Insee = 97 - (((Left([Insee_Compacté], 9) Mod 97) & (Right([Insee_Compacté], 4))) Mod 97)
End Function
Function Controle_Clé_Insee(Insee As String, Clé_Reçue As String) As Boolean
Controle_Clé_Insee = (Clé_Reçue = Clé_Insee(Insee))
If Not Controle_Clé_Insee Then
MsgBox "Clé Insee erronée", vbCritical, "Erreur"
End If
End Function
Function NoSpaceInString(Chaine As String) As String
Dim i As Integer
For i = 1 To Len(Chaine)
If Mid$(Chaine, i, 1) <> " " Then
NoSpaceInString = NoSpaceInString & Mid$(Chaine, i, 1)
End If
Next i
End Function
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.