Supprimer \"Enter\" dans chaine de caractere

[@Bobby]

Bonjour

J'ai le probleme suivant j'ai dans une cellule une chaine de caractère ce qui donne ceci

'BLA BLA BLA BLA BLA BLA ########
'

J'essaye en VBA de la supprime, j'ai utilisé le code suivant : Range('N122').Replace What:=Chr(13), Replacement:='' mais rien ne se passe les 'carrés' restent!


Quelqu'un sait-il comment résoudre ce problème ?
Merci d'avance :woohoo:

Message édité par: @bobby, à: 07/03/2006 14:50

 

[jp14]

Re:Supprimer "Enter" dans chaine de caractere

Bonjour

Une piste
Le code 'retour chariot' était souvent associé au code 'ligne suivante' (CR LF), il faudrait rechercher le code 10 et le code 13


A +

 

[pierrejean]

Re:Supprimer "Enter" dans chaine de caractere

bonjour @Bobby ,jp14

voici une macro pour se debarasser des ##

Sub TEST()
Dim bl As String
Dim n As Integer
bl = Range('A3').Value
For n = Len(bl) To 1 Step -1
If Asc(Mid(bl, n, 1)) = 35 Then
Range('A3').Value = Mid(bl, 1, n - 1) & Mid(bl, n + 1, Len(bl) - n)
bl = Range('A3').Value
End If
Next n
End Sub

le Range est bien sur à adapter

 

[Charly2]

Re:Supprimer "Enter" dans chaine de caractere

Bonsoir @Bobby, jp14 et pierrejean

Il y a également possibilité de le faire dans une autre cellule :

=EPURAGE(TaCellule)

A+

 

[pierrejean]

Re:Supprimer "Enter" dans chaine de caractere

bonjour Charly

Sous excel 2000 EPURAGE ne donne aucun resultat

par contre je suis allé chercher bien compliqué la ou il suffisait de

Range('A3').Replace What:=Chr(35), Replacement:=''

la nuit porte conseil assez souvent

a +

 

[Charly2]

Re:Supprimer "Enter" dans chaine de caractere

Bonjour le fil,
Bonjour le forum,
Bonjour pierrejean

Merci de l'info, c'est toujours bon à savoir

A+