Discussion :

[JulienEvrard]

Bonjour,

Dans une table qui contient l'identité de bovins (en principe "BE" + 8 chiffres), j'ai toutes sortes de valeurs encodées. Exemples pour une bêtes "BE12345678" je peux me retrouver avec ce type d'info :

- BE12345678
- BE012345678
- BE 12345678
- veau BE12345678
- BE12345678 (veau)
- BE12345678(veau)
- BE12345678( veau )

Je voudrais récupérer le BE + les 8 derniers chiffres

J'imagine que le plus simple est de retrouver le BE et les chiffres qui suivent (toujours 8 ou 9 chiffres), puis de supprimer le premier chiffre si il y en a 9.

Avez vous une idée de comment faire ? Je ne suis pas "sql-user", j'utilise uniquement les formules access dans les création de requêtes :/

Merci pour vos lumières

Julien

[loufab]

Bonjour,

au plus simple :

Code :

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

nouveau = left(ancien,2) & right(ancien,8)

Par contre ça ne tient pas compte des anciens avec moins de 8 chiffres.

Cordialement,

[ClaudeLELOUP]

Bonjour,

Le premier chiffre peut-il être « 0 » ?

BE01234567 est-il possible ?

Si non,

- chercher le 1er chiffre>0
- prendre avec lui les 7 caractères suivant
- vérifier que ce groupe est numérique
- si non => invalide ; si oui coller BE devant.

[ClaudeLELOUP]

Fabrice

Tu ne règles pas le cas avec "Veau" comme texte exécendaire

[JulienEvrard]

Merci Claude,

Lorsqu'il y a 9 chiffres, on peut potentiellement retrouver n'importe quel chiffre (0-9) à n'importe quel position... :/

dur dur

[loufab]

+1

En effet !

Le regex peut apporter un plus. A voir.

[ClaudeLELOUP]

Ma question, c'est le 1er chiffre peut-il être 0 ?

En d'autres mots

BE03456783

est-il possible ?

[JulienEvrard]

Oui, tout chiffre (même le zéro) peut se retrouver partout

[ClaudeLELOUP]

Alors, il n'y a pas de solution : s'il y a plus de 8 chiffres, il y en de trop... et rien ne dit que c'est justement le 1er qui est excédentaire.

À mon avis, la fonction à écrire devrait renvoyer « N° invalide » si le groupe de chiffres dépasse 8 membres.

Ces N° ne contiennent-ils pas un check-digit (comme les N° cptes bancaires, TVA, Secu...) ?

[JulienEvrard]

Ces N° ne contiennent-ils pas un check-digit (comme les N° cptes bancaires, TVA, Secu...) ?

Effectivement

[ClaudeLELOUP]

... et tu connais l'algorithme ?

[JulienEvrard]

Non

[ClaudeLELOUP]

... on avance !

[ClaudeLELOUP]

Cette fonction devrait faire l'affaire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function TransfoNum(Actuel As String) As String
  Dim i As Integer
  TransfoNum = "Le texte n'est pas un N° valide)"
  For i = 3 To Len(Actuel)
    'Chercher le 1er chiffre. On peut commencer au 3e caractère
    If Asc(Mid(Actuel, i, 1)) >= 48 And Asc(Mid(Actuel, i, 1)) <= 57 Then
         'Vérifier que le groupe avec les 7 suivants est numérique
         If IsNumeric(Mid(Actuel, i, 8)) And Len(Mid(Actuel, i, 8)) = 8 Then
              TransfoNum = "BE" & Mid(Actuel, i, 8)
         End If
         Exit Function
    End If
  Next i
End Function

[JulienEvrard]

Super! Merci beaucoup Claude... Je ne dois plus que trouver (et comprendre) la façon dont je dois utiliser ce code

Je te tiens au jus dès que j'ai trouvé

[ClaudeLELOUP]

1° Tu copies/colles la fonction dans un module.

2° Par exemple, si tu as ceci




Pour modifier, tu exécutes une requête comme ceci :




Et tu obtiens alors ceci :