clef de codage

[jeffe]

Bonjour à tous et toutes, j'ai besoin de créer un code à 5 chiffres max pour identifier des opérateurs.
ces operateurs vont se logger via un lecteur code barre, j'ai besoin de verifier si il s'agit bien d'un code operateur.
Je ne peux pas venir tester ce code par rapport à une base de données

j'essaie en prenant la somme des 3 premier chiffres verifier que c'est egal aux 2 dernier mais je n'arrive pas à faire ce test
voici un exemple de ce que j'essaie de faire
merci de votre aide

 

[pierrejean]

Re : clef de codage

bonjour jeffe

Un essai
Contrainte: les cellules de saisie pour le code doivent etre au format texte

 

[jeffe]

Re : clef de codage

Bonjour pierrejean,
merci pour cette reponce ultra rapide
il faudrait maintenant que je puisse verifier que mon code à 5 chiffres est bien la combinaison du code et de la clef
crois tu cela posible?
merci

 

[jp14]

Re : clef de codage

Bonjour jeffe
Salut Pierrejean

Une solution par fonction personnalisé

Option Explicit

Function valicode(code As Range) As String
Dim codebase As Integer
Dim clef As Byte
Dim i As Byte
Dim valeur1 As Integer
Dim data1 As String
Application.Volatile
If code.Columns.Count > 1 Or code.Rows.Count > 1 Then
    valicode = "erreur selection"
    Exit Function
End If
If Len(code.Value) <= 3 Then
    valicode = "manque clef"
    Exit Function
End If

codebase = Right(code.Value, 3)
If codebase < 100 Then
    valicode = "code > 100"
    Exit Function
End If
clef = Mid(code.Value, 1, Len(code.Value) - 3)

For i = 1 To 3
        valeur1 = Mid(codebase, i, 1) + valeur1
Next
valicode = "Faux"
If valeur1 = clef Then
    valicode = "Correct"
End If
End Function

A tester

JP

 

[pierrejean]

Re : clef de codage

Re

Vois si c'est OK

Edit: Salut JP 🙂

 

[jeffe]

Re : clef de codage

hello, merci pour vos reponces, je vais tester ça demain et vous tiendrai informés
merci Pierrejean pour cette formule
jp14, l'idée de la fonction me plait bien, mais elle me retourne toujours faux??? si tu peux me fournir un peut plus d'explications merci

 

[jp14]

Re : clef de codage

Bonsoir

Ci joint le fichier

A tester

JP

 

[pierrejean]

Re : clef de codage

Re

Si tu preferes une fonction personnalisée en voici une qui a l'air de marcher
avec en prime une fonction pour fabriquer le code

 

[jeffe]

Re : clef de codage

hello à tous
un grand merci pour votre aide
je vais decortiquer tout cela, bonne soirée à vous.