Initiales inversées, d’un Nom Prénom

Bonjour,

Comme d'habitude après une trop longue prise de tête, je fais appel, à votre savoir.

Je souhaiterais avoir dans D4, les initiales d'un nom prénom, mais inversées dans ce cas D point, espace A point.

Grand merci.

Cordialement,

Bonjour,

=STXT(C4;CHERCHE(" ";C4)+1;1)&"."&GAUCHE(C4;1)

eric

Bonjour Bobby, bonjour le forum,

Que faudrait-il écrire pour DUGLAND DUCHESNE Jaques Antoine ?

Le code ci-dessous fonctionne bien pour un seul espace :

Sub Macro2()
Dim TI() As Variant
Dim INI As String

ReDim TI(0 To UBound(Split(Range("C4"), " ")))
For i = 0 To UBound(Split(Range("C4"), " "))
    TI(i) = Mid(Split(Range("C4"), " ")(i), 1, 1)
Next i
For i = UBound(TI) To 0 Step -1
    NIN = IIf(INI = "", TI(i) & ". ", INI & TI(i) & ". ")
Next i
Range("D4").Value = INI
End Sub

Merci à tous,

Bravo, résolu.

Cordialement,