XL 2010 remplacer une virgule "," par un retour chariot

[hypo78]

Bonjour à tous,

Dans une même cellule, j'ai du texte sur une seule ligne séparé à plusieurs reprises par une virgule, je souhaiterai remplacer ces virgules par un retour à la ligne (retour chariot).
Solution en VBA ou rechercher / remplacer.

J'ai cherché avant de poster, mais la solution qui consiste à remplacer par Alt 0010 ou 0013 ne fonctionne pas.

Merci d'avance

 

[Jauster]

Bonjour,

2 Solutions :

Avec Rechercher et Remplacer :
Dans rechercher : , (la virgule)
Dans Remplacer : Ctrl + Shift + J


Avec VBA :

Sub RplcerVirgule()
Dim CelSelect As Range
  For Each CelSelect In Selection
    CelSelect.Value = Replace(CelSelect, ",", vbLf)
  Next
End Sub

Pour ce code VBA il faut sélectionner les cellules où vous souhaitez faire le changement

Bonne journée

 

[hypo78]

Bonjour,

le code VBA fonctionne à merveille

Merci

 

[CISCO]

Bonjour

Le remplacement par Ctrl + Shift + J aussi.

@ Jauster : Où est-ce qu tu as trouvé cette correspondance avec Alt+enter ?

@ plus

 

[Jauster]

Bonjour

Le remplacement par Ctrl + Shift + J aussi.

@ Jauster : Où est-ce qu tu as trouvé cette correspondance avec Alt+enter ?

@ plus

J'ai eu le même problème il y a un petit moment déjà et je l'avais trouvé sur internet (@CISCO ).