Re,
J'ai répondu un peu vite...
2 autres solutions trouvées sur ce site : <http://perso.wanadoo.fr/frederic.sigonneau/>
une fonction et une macro à adapter
____________________________________________
'mettre en majuscule la première lettre d'une phrase
Sub Test()
MsgBox SentenceCase("bienvenue au club, Hector")
End Sub
Public Function SentenceCase(Stc As String)
'Orlando Magalhães Filho, mpep
'pour une seule phrase
SentenceCase = UCase(Left(Stc, 1)) & Right(Stc, Len(Stc) - 1)
End Function
_____________________________________________
Sub Test2()
'Dana DeLouis, mpep
'pour plusieurs phrases
Dim v As Variant
Dim S As String
Dim J As Long
[A1] = "this is one sentence. this is another. and this is third sentence."
S = [A1]
v = Split(S, ".")
For J = 0 To UBound(v)
S = Application.Trim(v(J))
S = StrConv(S, vbLowerCase)
S = UCase(Left$(S, 1)) & Mid$(S, 2)
v(J) = IIf(J > 0, Space(2) & S, S)
Next
[A2] = Application.Trim(Join(v, "."))
End Sub
______________________________________
@+ et bon week end
