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

Jauster

XLDnaute Occasionnel

• 30 Novembre 2017

• #2

Bonjour,

2 Solutions :

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


Avec VBA :

VB:

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

 

Vote positif 0 Vote négatif

hypo78

XLDnaute Impliqué

• 30 Novembre 2017

• #3

Bonjour,

le code VBA fonctionne à merveille

Merci 😉

 

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 30 Novembre 2017

• #4

Bonjour

Le remplacement par Ctrl + Shift + J aussi.

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

@ plus

 

Vote positif 0 Vote négatif

Jauster

XLDnaute Occasionnel

• 30 Novembre 2017

• #5

CISCO à dit:

Bonjour

Le remplacement par Ctrl + Shift + J aussi.

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

@ plus

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif