Remplacer ";" par un aller à la ligne

Salut le fil,

Remplacer les points virgules par des retours lignes dans une cellule par VBA

Sub test()
Dim i As Long
For i = 1 To Range("A65536").End(xlUp).Row
Range("A" & i) = Application.Substitute(Range("A" & i), ";", vbLf)
Next i
End Sub

ou

Sub test()
Dim i As Long
For i = 1 To Range("A65536").End(xlUp).Row
Range("A" & i) = Application.Substitute(Range("A" & i), ";", Chr(10))
Next i
End Sub

bonjour,

dans la fenêtre rechercher remplacer:

-rechercher mettre ;
-remplacer ne rien mettre et dans format correspondant choisir alignement et renvoyer à la ligne automatiquement

- puis remplacer

Bonne journée

Merci pour votre réponse, mais je n'arrive pas à voir ou je peux selectionner renvoyer à la ligne automatiquement dans alignement?

Merci pour toutes vos réponses j'ai bien avancé, cela serai encore mieux si le texte pouvais aller à la ligne, et que chaque ligne sois dans une cellule différente.

Savez-vous si cela est possible?

bonjour a tous
il doit bien y avoir une formule (differente) par cellule comme dit mic13710, avec cherche etc... mais j'ai du mal
pour eviter une macro, peut etre avec une formule matricielle
1. selectionner la cellule a spliter
2. convertir en delimité ";" /Données/Convertir etc .. pour separer les mots
3. se placer a la ligne en dessous
4. selectionner autant de lignes que de mots
5. = transpose(plage_des_mots)
6. Ctrl+Maj+Entrée pour valider la formule matricielle
bonne suite

Re
à titre d'info, ce n'est peut être pas ce que vous voulez, mais on ne sait jamais
si vous utilisez directement "Convertir" avec le point virgule en séparateur, vous pouvez ensuite:
copier le champ obtenu
faire un collage spécial transposé dans un autre champ
cette opération vous donne les infos d'origine de chaque cellule décomposées et superposées, mais en ligne
par exemple:
A;B;C
D;E
F;G;H
convertit donne:
A B C
D E
F G H
et transposé
A D F
B E G
C H

à toutes fins utiles...!

crdlmnt