XL 2013 [Résolu] Inserer un retour à la ligne après 4 adresses emails

[Lone-wolf]

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.

 

[Lone-wolf]

Bonjour Pierre 🙂

Depuis un certain temps je le fait toujours, mais là comme c'est pour un test, j'ai pensé qu'il n'y en avait pas besoin.

EDIT: Nickel!! 😉

Merci beaucoup Pierre.