Rechercher et remplacer des retours chariots...

[tanguy029]

Bonjour à tous,

Je suis débutant dans excel et je m'adresse à vous car je n'ai pas trouvé de réponse sur internet. 🙁

Je cherche à trouver les "retours chariots" qui se trouvent dans des cellules Excell (dont le contenu est du texte), et les remplacer automatiquement par une virgule suivi d'un espace.

Ceci soit par le rechercher-remplacer d'excel ou par une macro.

Auriez-vous une piste à m'indiquer?

Merci

Bonne journée

 

[Tibo]

Re : Rechercher et remplacer des retours chariots...

Salut Tanguy,

Essaye avec le rechercher - remplacer :

Rechercher : taper Alt 010
Remplacer : taper , suivi d'un espace

Possibilité si ça fonctionne d'utiliser l'enregistreur de macro pour automatiser par la suite.

Reviens si pb

@+

 

[jp14]

Re : Rechercher et remplacer des retours chariots...

Bonjour

Le code ascii correspondant au saut de ligne est 10

Voici une macro qui recherche ce code et le remplace par une virgule dans la cellule active.

Sub remplace()
Dim data As String
Dim data1 As String
Dim i As Integer
Dim xadresse1 As String

xadresse1 = ActiveCell.Address
data = Sheets("Feuil1").Range(xadresse1)
data1 = ""
For i = 1 To Len(data)

If Mid(data, i, 1) = Chr(10) Then
data1 = data1 + "," ' recherche du code ascii 10
Else
data1 = data1 + Mid(data, i, 1)
End If
Next i
Sheets("Feuil1").Range(xadresse1) = data1
End Sub

JP

 

[tanguy029]

Re : Rechercher et remplacer des retours chariots...

Merci Tibo, jp14, jmps 🙂

C'est tout à fait ce que je cherchais, je vous dit un grand merci à tous.

Tanguy