Discussion :

[parker13]

Bonjour,

Je cherche à faire une expression régulière capable de réaliser le formattage ci-dessous :

NOM Prenom - SERVICE

exemple : DURAND Gilles - COMPTABILITE


autrement dit, si on décompose :

Au moins 3 caractères de A-Z (Majuscules uniquement) NOM
Un espace
Au moins 3 caractères : le premier caractère sera obligatoirement en Majuscule Prenom
Un espace
Un tiret "-"
Un espace
Au moins 3 caractères de A-Z (Majuscules) SERVICE

Merci d'avance

[Catbull]

Sans utiliser de fonction régulière, tu peux utiliser les fonctions classiques de manipulation de caractères :

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
32
Public Function Verif(Expression)
    Verif = false
 
    Mots = Split(Expression, " ")
    NombreMots = Ubound(Mots) - LBound(Mots) + 1
 
    'Nombre de mots
    if NombreMots <> 4 Then Exit function
 
    'Taille Nom
    if len(Mots(0)) < 3 Then Exit function
 
    'Casse Nom
    if ucase(Mots(0)) <> Mots(0) Then Exit function     
 
    'Taille Prénom
    if len(Mots(1)) < 3 Then Exit function
 
    'Casse Prénom
    if ucase(left(Mots(1),1)) < left(Mots(1),1) Then Exit function
 
    'Tiret
    if Mots(2) <> "-" Then Exit function
 
    'Taille Service
    if len(Mots(3)) < 3 Then Exit function
 
    'Casse Service
    if ucase(Mots(3)) <> Mots(3) Then Exit function   
 
    Verif = True
end function