Discussion :

[sardaucar]

bonjour à tous !

Je voudrais obliger un champ à posséder une casse prédéfinie (pas seulement afficher); le champs nom et prénom.

Dans un formulaire sur l'évènement sortie du champ nom j'ai mis ceci :

Code :

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

1
2
3
Private Sub Nom_candidat_Exit(Cancel As Integer)
Me.Nom_candidat = UCase(Me.Nom_candidat)
End Sub

Ce qui marche très bien

Sur le champ prénom ça se complique. En effet, j'ai mis ceci :

Code :

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

1
2
3
Private Sub Prénom_candidat_Exit(Cancel As Integer)
Me!Prénom_candidat.Value = Format(Left(Me!Prénom_candidat.Value, 1), ">") & Format(Right(Me!Prénom_candidat.Value, Len(Me!Prénom_candidat.Value) - 1), "<")
End Sub

Ca marche très bien pour les prénom simples, mais plus pour les prénoms composés.

jean devient Jean
jean-marie devient Jean-marie

Y a t il un code qui permettrait de mettre la première lettre de la seconde partie (après le tiret) en majuscule ?

merci d'avance !

[ClaudeLELOUP]

Bonjour,

Intéresse-toi à la fonction "Split", qui te permet de disposer de tous les morceaux de texte séparés par des "-" et applique le code que tu indiques à chaque morceau et ensuite, tu les recolles.


Autre solution : après avoir "capitalisé" la première lettre, tu cherches la position d'un "-" éventuel et tu "capitalises la position suivante.

Ex :

Code :

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

? instr(1,"jean-claude","-")

renvoie 5

Tu peux ensuite faire encore un tour avec comme point de départ la position du 1er "-" + 2 pour traiter l'éventuel cas "anne-marie-françoise"

[sardaucar]

la fonction split me semble adaptée en effet. Cependant je ne sais pas comment l'utiliser. J'ai vu les variables à mettre et quoi mettre, mais je ne sais pas où les mettre dans la fonction ni comment regrouper après :s.

[Invité]

Bonjour

Voici un exemple possible avec la fonction Split.

Le code suivant est à mettre dans un module :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Public Function MajPrenom(strPrenom As String) As String
    ' déclaration
    Dim strTab() As String
 
    ' Eclatage
    strTab = Split(strPrenom, "-")
 
    ' regroupement
    MajPrenom = StrConv(strTab(0), vbProperCase) & "-" & StrConv(strTab(1), vbProperCase)
 
End Function

Ensuite dans ta zone de texte, en reprenant ton code

Code :

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

1
2
3
Private Sub Prénom_candidat_Exit(Cancel As Integer)
     Me!Prénom_candidat.Value = MajPrenom(me!Prénom_candidat.Value)
End Sub

jean-pierre devient Jean-Pierre

Attention ce code est valable uniquement si tu as un - de séparation.

Philippe

[sardaucar]

Merci à toi pour ta réponse !

J'ai donc bien enregistré mon module, cependant à l’exécution du code il me mets "variable ou procédure attendue et non un module" sur le

Code :

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

MajPrenom

du

Code :

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

Me!Prénom_candidat.Value = MajPrenom(Me!Prénom_candidat.Value)

Une idée du pourquoi du comment ?

[ClaudeLELOUP]

@ Philippe


@sardaucar : c'est que tu n'as pas fait exactement ce que Philippe écrit !

Revoie si tu as bien logé dans un module le code de la fonction (MajPrenom sans accent !)

[sardaucar]

j'ai un Module qui s'appelle MajPrenom sans accent en effet, il apparait dans mon explorateur de projet dans le sous dossier "module".

J'avoue avancer à taton, n'ayant jamais eu à faire aux modules avant, je dois paraitre bien bête.

[Invité]

Bonjour

Renomme le module, il ne doit pas avoir le même nom que la fonction.

Philippe

[sardaucar]

On avance !

Effectivement c'était tout bêtement ça....

Pour ne l'appliquer que si le prénom est composé je peux mettre :

Code :

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

1
2
3
4
if If Me!Prénom_candidat.Value = "-" Then
 Me!Prénom_candidat.Value = MajPrenom(Me!Prénom_candidat.Value)
else
Me!Prénom_candidat.Value = Format(Left(Me!Prénom_candidat.Value, 1), ">") & Format(Right(Me!Prénom_candidat.Value, Len(Me!Prénom_candidat.Value) - 1), "<")

?

[Invité]

Re

Fais le test avec la fonction Instr.

Philippe

[sardaucar]

Ça marche impeccablement !

Pour ceux que ça intéresse, le code final donne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Prénom_candidat_Exit(Cancel As Integer)
 
 
If InStr(Me!Prénom_candidat.Value, "-") > 0 Then
 
     Me!Prénom_candidat.Value = MajPrenom(Me!Prénom_candidat.Value)
 
Else
 
Me!Prénom_candidat.Value = Format(Left(Me!Prénom_candidat.Value, 1), ">") & Format(Right(Me!Prénom_candidat.Value, Len(Me!Prénom_candidat.Value) - 1), "<")
 
End If
 
End Sub

Merci beaucoup pour vos réponses !

[ClaudeLELOUP]

Profite pleinement de la syntaxe proposée par Philippe :

Au lieu de

Code :

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

1
2
3
Else
 
Me!Prénom_candidat.Value = Format(Left(Me!Prénom_candidat.Value, 1), ">") & Format(Right(Me!Prénom_candidat.Value, Len(Me!Prénom_candidat.Value) - 1), "<")

écris plutôt, (bien plus élégant),

Code :

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

1
2
3
 
Else
Me!Prénom_candidat.Value= StrConv(Me!Prénom_candidat.Value, vbProperCase)