Discussion :

[philben]

bonjour,

une petite fonction pour calculer les clés type 1-2 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Public Function CalculCleType1_2(ByVal sNumero As String) As Byte
   Dim i As Integer, iVal As Integer, iSomme As Integer
   Dim bPair As Boolean
 
   For i = Len(sNumero) To 1 Step -1
      iVal = CInt(Mid$(sNumero, i, 1)) * (bPair + 2)
      iSomme = iSomme + iVal \ 10 + iVal Mod 10
      bPair = Not bPair
   Next i
   CalculCleType1_2 = 10 - iSomme Mod 10
End Function

Test :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Public Function TestClef()
   Dim sNum As String
   sNum = "76031208" 'Clef calculée doit être = à 2
   Debug.Print CalculCleType1_2(sNum)
End Function

Référence ici.

Philippe

[Jean-Philippe André]

Hello,
tu peux nous en dire un peu plus sur ces clés 1-2, ca ne me dit rien

[philben]

bonjour,

Des numéros utilisés par l'assurance maladie possèdent une clé de validation calculée avec cet algorithme.

Par exemple les n° d'accident de travail, n° praticien, n° d'organisme complémentaire, etc...

Cette clé permet de vérifier que le n° est potentiellement juste.

Amicalement,

Philippe

[fil45]

Salut

Comment utilise-t-on cette fonction ? J'utilise Excel 2010 (Alt/F11 ?? et ensuite ..que faire ??)

J'y connais rien en VBA

Est ce qu'il est possible d'adapter cette fonction (VBA?) dans une fonction excel basique (exemple : =blabla), plus simple pour moi

Merci

Ca permet de calculer tout type de clé de l'assurance maladie ? (A.T., finess, ...) ?

[philben]

bonjour,

Dans l'éditeur VBA (Alt+F11) choisir "Insertion"->"Module" puis copier/coller la fonction suivant dans ce nouveau module :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Public Function CalculCleType1_2(ByVal vNumero As Variant) As Integer
   Dim sNumero As String
   Dim i As Integer, iVal As Integer, iSomme As Integer
   Dim bPair As Boolean
   sNumero = vNumero & ""
   If Len(sNumero) > 0 Then
      For i = Len(sNumero) To 1 Step -1
         iVal = CInt(Mid$(sNumero, i, 1)) * (bPair + 2)
         iSomme = iSomme + iVal \ 10 + iVal Mod 10
         bPair = Not bPair
      Next i
      CalculCleType1_2 = 10 - iSomme Mod 10
   End If
End Function

On peut ensuite appeler directement la fonction dans une cellule d'une feuille Excel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
=CalculCleType1_2(A1)

Avec en argument la référence de la cellule contenant la valeur dont on veut calculer la clé.

L'annexe n°5 du cahier des charges de la norme B2 (lien dans 1er post), nous dit que cette clé concerne :

n° Etablissement
n° Centre de Santé
n° Praticien
n° Laboratoire
n° Pharmacien
n° Transporteur
n° Fournisseur
n° Accident du travail
n° d’organisme complémentaire

cordialement,

Philippe

[fil45]

Merci