Convertir les données d'une cellule

[Cutbill1234]

Bonjour le forum,

Je cherche depuis un moment pour répondre à mon problème de la façon la plus simple mais je n'y arrive pas. Je cherche à convertir les données de cellules non pas séparées par un caractère (ce serait assez simple) mais par des entrées à la ligne.

Exemple, dans ma cellule A1, j'ai une liste comme celle-ci :
Chat
Chien
Oiseau
lapin

dans un autre cellule (A2 par exemple) une liste différente, etc ..

La fonction convertir en délimité ne me permet pas de transposer vers d'autres cellules ou alors il faudrait me dire quoi remplir dans la case du séparateur "Autre" pour ces fameuses entrées à la ligne. J'ai essayé également en largeur fixe, mais cela ne marche que pour une cellule et non plusieurs cellules.

Merci de m'aider car je ne trouve vraiment pas.

Cutbill

 

[jp14]

Re : Convertir les données d'une cellule

Bonjour

Ci joint le fichier avec une fonction personnalisé qui supprime le code ascii 10.

Si on désire remplacer le caractère ascii(10) par un séparateur il faut modifier la fonction
comme ci dessous
supprimerretourligne = Replace(Cellule.Value, Chr(10), "-")

A tester

JP

 

[Cutbill1234]

Re : Convertir les données d'une cellule

Bonjour,

Une petite macro qui finalement aide bien :

Sub quelcaractere()
Dim old_text As String
Dim new_text As String

For i = 2 To 15444

If Range("A" & i).Value <> "" Then
old_text = Range("A" & i).Value
new_text = Replace(old_text, Chr(10), ";")
new_text = Replace(new_text, Chr(13), ";")
new_text = Replace(new_text, " ", " ")
Range("A" & i).Value = new_text
End If
Next
End Sub

Cutbill

 

[abcd]

Re : Convertir les données d'une cellule

Bonjour,

Dans "autre" tu saisis Alt+010 (tenir la touche clavier Alt enfoncée et saisir 010), puis Terminer.

abcd

 

[Cutbill1234]

Re : Convertir les données d'une cellule

Bonjour abcd,

Cette méthode est étrange car rien n'apparait lorsque l'on tape "010" mais ça marche vraiment bien, merci à toi pour cette aide.

Cutbill