XL 2013 decoupe de phrase sans coupe de mots

[ASPEN1345]

Bonsoir A TOUS

Connaissez vous un moyen pour découper une phrase en deux lignes avec nombres de caractères déterminé, 30 caractères en B2 et 30 en B3 et 30 en B4 sans couper les mots.

Merci

 

[Dranreb]

Bonsoir.
Essayez cette fonction perso :

Option Explicit
Function SplitSpc(ByVal Txt As String) As String
   Dim P As Integer, N As Integer, TR() As String
   Do While Txt <> ""
      P = Len(Txt)
      If P > 30 Then P = InStrRev(Left$(Txt, 30), " ")
      N = N + 1: ReDim Preserve TR(1 To N): TR(N) = Left$(Txt, P - 1)
      Txt = Mid$(Txt, P + 1)
      Loop
   SplitSpc = Join(TR, vbLf)
   End Function

La cellule portant la formule doit avoir le renvoi à la ligne automatique.
Ou alors une formule matricielle mais avec ce code :

Option Explicit
Function SplitSpc(ByVal Txt As String) As Variant()
   Dim P As Integer, N As Integer, TR()
   ReDim TR(1 To Application.Caller.Rows.Count, 1 To 1)
   Do While Txt <> ""
      P = Len(Txt)
      If P > 30 Then P = InStrRev(Left$(Txt, 30), " ")
      N = N + 1: TR(N, 1) = Left$(Txt, P - 1)
      Txt = Mid$(Txt, P + 1)
      Loop
   SplitSpc = TR
   End Function

 

[job75]

Bonjour ASPEN1345, bienvenue sur XLD, Bernard,

Pas clair, vous parlez de 2 lignes puis de 3 cellules.

A+