Bonjour,

Je souhaiterai modifier le code ci-dessous afin que le résultat ne soit pas simplement :

le
chien
dors
sur
le
tapis

mais :

le chien
dors sur
le tapis

Autrement dit, il faudrait, en plus de tronquer la chaine de caractères à chaque espace, regrouper les petits mots afin d'atteindre des messages de 8 caractères maximum, sans couper les mots, mais je n'y arrive pas.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Dim s As String
Dim t() As String
Dim i As Long
 
s = "le chien dort sur le tapis"
 
t = Split(s, " ")
 
For i = 0 To UBound(t())
Debug.Print t(i)
Next i
Debug.Print
Je vous remercie par avance.