Bonjour

voila je crée un commentaire pour une cellule et j'y insère une variable de type string. Je redimensionne le commentaire en question:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
If ideEC <> "" Then
       Cells(ligneP, 15).Select
       With Selection
              .AddComment.Text ideEC
              .Comment.Visible = True
       Cells(ligneP, 15).Comment.Shape.Select True
       With Selection
              .AutoSize = True
       End With
       Cells(ligneP, 15).Select
       Selection.Comment.Visible = False
End If
Problème... ma variable ideEC peut contenir un string de plus de 300 caractères et de ce fait je voudrais le découper... sans pour autant couper les mots en deux

j'ai un bout du code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
If Len(ideEC) < 50 Then
    ideECC = Chr(10) & ideEC
Else
    Do While Len(ideEC) > 50
        ideECC = ideECC & Chr(10) & Left(ideEC, 50)
        ideEC = Right(ideEC, Len(ideEC) - 50)
    Loop
End If
 
MsgBox ideECC & Chr(10) & ideEC
mais comment tester si le dernier mot de chaque ligne est entier?