Staple1600
XLDnaute Barbatruc
Bonjour,
Une fonction utilisable dans l'univers Windows uniquement
Exemple d'usage
En A1: darkside of the moon
en B1 =PREMLETTRE(A1) renvoie D. S. O. T. M.
Ci dessous une variante avec choix de la casse
Avec comme paramétres : 1, 2 ou 3
=PREMLETTRE(A1;1) -< MAJUSCULE
=PREMLETTRE(A1;2) -< minuscule
=PREMLETTRE(A1;3) -< Nom propre
Une fonction utilisable dans l'univers Windows uniquement
VB:
Function PREMLETTRE(S$) As String
Dim mc As Object, m As Object
With CreateObject("vbscript.regexp")
.Global = True
.Pattern = "\b\w"
If .test(S) = True Then
Set mc = .Execute(S)
For Each m In mc
PREMLETTRE = UCase(PREMLETTRE & m) & "."
Next m
End If
End With
End Function
En A1: darkside of the moon
en B1 =PREMLETTRE(A1) renvoie D. S. O. T. M.
Ci dessous une variante avec choix de la casse
VB:
Function PREMLETTRE(S$, Optional casse As VbStrConv) As String
Dim mc As Object, m As Object
With CreateObject("vbscript.regexp")
.Global = True
.Pattern = "\b\w"
If .test(S) = True Then
Set mc = .Execute(S)
For Each m In mc
PREMLETTRE = StrConv(PREMLETTRE & m, casse) & "."
Next m
End If
End With
End Function
=PREMLETTRE(A1;1) -< MAJUSCULE
=PREMLETTRE(A1;2) -< minuscule
=PREMLETTRE(A1;3) -< Nom propre
Dernière édition: