Discussion :

[pascale86]

Bonjour,

Je veux récupérer dans un état les initiales d'un prénom composé.
Comment peut on faire. Je sais extraire la 1ère du &er prénom, mais je ne vois pas comment extraire la 1ère lettre du 2ème prénom qui se trouve après un tiret.

Merci pour votre aide

[pc75]

Bonjour,

Tu peux utiliser la fonction InStr() qui te renvoie lo position d'un caractère dans une chaine.
Ensuite, avec cette position, tu peux utiliser les fonctions Right() ou Mid()

[stéphane_ais2]

Salut
Tu peux essayer 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
 
Public Function Prenom(Mot As String) As String
   Dim Temp As String, Pre As String
   Dim Longueur As Integer, i As Integer
   Temp = Trim(Mot)
   Longueur = Len(Temp)
   Pre = UCase(Left(Temp, 1))
   For i = 2 To Longueur
      If Mid(Temp, i - 1, 1) = " " Or Mid(Temp, i - 1, 1) = "-" Then
         Pre = Pre + UCase(Mid(Temp, i, 1))
      Else
         Pre = Pre + LCase(Mid(Temp, i, 1))
      End If
   Next
   Prenom = Pre
End Function

Cela devrait fonctionner
SE

[stéphane_ais2]

Sorry, j'ai lu trop vite...
Cette fonction permet simplement de mettre en Maj les initiales...
SE

[delhotal]

tu reprends la fonction de stephanie et tu vires:
Else
Pre = Pre + LCase(Mid(Temp, i, 1))


et ça devrait fonctionner

[Tofalu]

Autrement :

Code :

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

1
2
3
4
5
6
7
8
Function GetInitiale(strChaine As String) As String
Dim i As Integer
Dim temp() As String
temp = Split(strChaine, "-")
For i = 0 To UBound(temp)
  GetInitiale = GetInitiale & Left(temp(i), 1)
Next i
End Function

Code :

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

1
2
3
4
 
Sub essai1()
MsgBox GetInitiale("Jean-Paul")
End Sub