Bonjour
en VBA, sur la base des explications
Avec la fonction MID
Pour le premier caractère =Mid(vCell,1,1) ou =Left(vCell,1)
Pour le deuxième caractère, il faut connaître le positionnement de l'espace soit avec la Méthode InStr, donc =Mid(A1,InStr(1,vCell;" ")-1,1)
Et pour le dernier même fonction, mais le décalage de l'espace est de 1
=Mid(A1,InStr(1,vCell," ")+1,1)
Mais tu obtiendra OeP, pour mettre en majuscule =UCase(.....)
Voici le code complet à mettre dans le module VBA, pour l'utiliser dans une formule écrit ceci =VBcar(A1)
Public Function VBcar(vCell As String) As String
VBcar = UCase(Mid(vCell, 1, 1) & Mid(vCell, InStr(1, vCell, " ") - 1, 1) & Mid(vCell, InStr(1, vCell, " ") + 1, 1))
End Function
Bonne soirée
@+Jean-Marie