Discussion :

[Miss Ti]

Bonjour à tous,
Il me prend comme une envie masochiste de couper une chaîne de caractère de type "NOM Prénom" ou "NOM née NOMJF Prénom" ou "NOM Prénom née NOMJF" en 3 chaînes: nom, prénom et nomJF (ben ouais, il y a des erreurs passée à corriger et ça tombe sur moi ).
Bref, il faut que je fasse un tour de magie.
J'ai une petite idée comment procéder mais je voudrais savoir s'il existe une fonction pour savoir si la totalité d'un mot est en majuscule ou non?
J'vais m'amuser moi...

[Miss Ti]

J'ai fait des essais en comparant une chaîne de caractère et la même transformée par Ucase et il ne fait pas la différence entre une chaîne en minuscules et majuscules.
Là, ça va être coton...

[SfJ5Rpw8]

A voir :

Code :

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

Option compare Binary

[marot_r]

Mets l'option donné par bbil en tête de ton module et tous les tests se feront en case sensitive.

Pour couper tes chaînes, tu peux utiliser Split si tu as un Access > 97, mid() et instr() sont aussi des fonctions trés utiles.

Prends garde au pénom composé du genre Marc André DUPONT
personnelement je ferais cela si je n'ai pas de prénom composé

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
 
dim mots as variant
mots=split(maChaineDeNom," "):'crée un tableau avec un mot dans chaque case (attention première indice 0 !)
 
dim ternine as boolean:termine=false :'Tremine permet d'éviter les else en cascade.
 
if ubound(mots())=1 and not termine then
   'C'est un NOM Prénom
   Nom=mots(0)
   Prenom=mots(1)
   termine=true
end if
 
if ubound(mots())=3 and not termine then
   'C'est "NOM née NOMJF Prénom" ou "NOM Prénom née NOMJF"
   if mots(1)="née" then
      'C'est "NOM née NOMJF Prénom"
      Nom=mots(0)
      Prenom=mots(3)
      NomJF=mots(2)
      termine=true
   end if
 
   if mots(2) = "née" then
     'C'est "NOM Prénom née NOMJF"
     Nom=mots(0)
     Prenom=mots(1)
     NomJF=mots(3)
     termine=true
   end if
end if

Et un truc dont tu pourrait avoir besoin.

Code :

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

1
2
3
4
 
Private Function EstToutMajuscule(prmMot as string) as boolean
   EstToutMajuscule= (ucase(prmMot)=prmMot)
end function

A+

[Miss Ti]

marot_r => L'utilisation de la fonction UBound me renvoie le message d'erreur suivant:

Erreur d'exécution '9': L'indice n'appartient pas à la sélection

Visiblement, il manque un paramètre lors de la déclaration

Code :

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

dim mots as variant

non?

[SfJ5Rpw8]

non des parenthéses en trop :

Code :

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

1
2
3
4
 
..
if ubound(mots)=1 and not termine then
..

[Miss Ti]

Merci à tous.
Ca n'a pas été aussi simple que ça (parce que les combinaisons Nom/NomJF/Prenom sont mutiples et jamais pareil) mais vos infos ont été la clé.
C'est résolu.
Tchao la compagnie!