Discussion :

[spaiku]

Bonjour,

dans l'application Access que je développe, je dois importer un fichier Excel qui comporte des numéros de série dont le format est "AA\-AAAAA" (ex : A1-BC234). En dehors du tiret, chaque caractère est alphanumérique.

J'aimerais écrire une fonction qui me permette de savoir si ces numéros de série sont au bon format.

J'avais d'abord pensé m'en tirer en utilisant la fonction format :

Code :

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

if serial <> format(serial, "AA\-AAAAA") then

Mais la fonction Format me renvoie serial inchangé.

Ce qui m'amène à la question : la fonction Format permet-elle de traiter autre chose que des nombres ou des dates ? Si oui, comment doit-on écrire une expression de format pour formater une chaîne ?

Merci d'avance pour vos réponses.

[spaiku]

J'ai auto-satisfait mon besoin avec cette fonction :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
'Vérifie le format d'une chaîne de caractères avec :
'- 0 pour un chiffre
'- A pour une lettre
'- # pour tout caractère
'- tout autre caractère dans le masque doit être présent au même endroit
'  dans la chaîne vérifiée
 
Function ComparerMasque(p_Chaine As String, p_Masque As String) As Boolean
 
If Len(p_Chaine) <> Len(p_Masque) Then GoTo Echec
 
Dim i As Integer
For i = 1 To Len(p_Chaine)
    Select Case Mid(p_Masque, i, 1)
        Case "0"
            If Not IsNumeric(Mid(p_Chaine, i, 1)) Then GoTo Echec
        Case "A"
            If InStr("abcdefghijklmnopqrstuvwxyz", Mid(p_Chaine, i, 1)) = 0 Then GoTo Echec
        Case "#"
 
        Case Else
            If Mid(p_Masque, i, 1) <> Mid(p_Chaine, i, 1) Then GoTo Echec
    End Select
Next i
ComparerMasque = True
Exit Function
 
Echec:
ComparerMasque = False
Exit Function
End Function

Mais peut-être y a-t-il plus simple/élégant ?