Lone-wolf
XLDnaute Barbatruc
Bonjour à tous
Comme énoncé dans le titre, je cherche à inserer un retour à la ligne toutes les 4 adresses mails. Au départ, j'ai fait comme ceci en pensant avoir trouvé la solution, mais je me suis planté.
deb = InStr(1, cel, ";")
If deb = 1 Then cel = Left(cel, deb) & vbLf & Right(cel, Len(cel) - deb)
cel.RowHeight = 13
En effet, comme le nombre de caractères peut varié, la solution est erronée. Et je ne sais pas comment coder, pour que Excel insère le retour à la ligne.
Merci d'avance pour votre soutien.
Comme énoncé dans le titre, je cherche à inserer un retour à la ligne toutes les 4 adresses mails. Au départ, j'ai fait comme ceci en pensant avoir trouvé la solution, mais je me suis planté.
deb = InStr(1, cel, ";")
If deb = 1 Then cel = Left(cel, deb) & vbLf & Right(cel, Len(cel) - deb)
cel.RowHeight = 13
En effet, comme le nombre de caractères peut varié, la solution est erronée. Et je ne sais pas comment coder, pour que Excel insère le retour à la ligne.
Merci d'avance pour votre soutien.