Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Supprimer \"Enter\" dans chaine de caractere

  • Initiateur de la discussion Initiateur de la discussion @Bobby
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

@

@Bobby

Guest
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
 
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 +
 
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
 
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+ 😉
 
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 +
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…