Bonjour à toutes et à tous
Mon problème est le suivant: dans la cellule A1 par exemple j'ai une phrase de longueur variable. Si le texte dépasse la largeur de la colonne A je souhaite découper la phrase avec trois points de suspension à la fin, puis ajouter un commentaire avec la totalité de la phrase
Pour info je ne veux pas de retour à la ligne, la hauteur de la ligne A1 devant rester fixe.
J'ai essayé de faire une correspondance entre le nombre de caractères et la largeur de la colonne mais sans grand succès.
Si quelqu'un a une idée ?
Cordialement
Ci-joint mon code actuel (sans l'ajout du commentaire)
Sub ContenuSelonLargeur()
Dim c As Range
Range("A1:A10").Select
For Each c In Selection
X = Len(c.Text)
Y = c.ColumnWidth
If Y < X Then
Range("A1").Value = Left(Range("A1"), (X - Y)) & "..."
End If
Next
End Sub
Mon problème est le suivant: dans la cellule A1 par exemple j'ai une phrase de longueur variable. Si le texte dépasse la largeur de la colonne A je souhaite découper la phrase avec trois points de suspension à la fin, puis ajouter un commentaire avec la totalité de la phrase
Pour info je ne veux pas de retour à la ligne, la hauteur de la ligne A1 devant rester fixe.
J'ai essayé de faire une correspondance entre le nombre de caractères et la largeur de la colonne mais sans grand succès.
Si quelqu'un a une idée ?
Cordialement
Ci-joint mon code actuel (sans l'ajout du commentaire)
Sub ContenuSelonLargeur()
Dim c As Range
Range("A1:A10").Select
For Each c In Selection
X = Len(c.Text)
Y = c.ColumnWidth
If Y < X Then
Range("A1").Value = Left(Range("A1"), (X - Y)) & "..."
End If
Next
End Sub