Remplacement Chr(10) par
Résolu

Question

Bonjour à tous

J'ai une colonne intitulée commentaire.
Je voudrais créer une macro qui remplace Chr(10) ou vbCrLf (dans le cas d'un ALT+ENTER - saut de ligne dans une même cellule) par 
.

Voici mon code :

For i = 3 To Cells(65536, CommentCol).End(xlUp).Row
    Cells(i, CommentCol).Select
    Cells(i, CommentCol).Value = replace(Search(vbCrLf, Cells(i, CommentCol).Value), vbCrLf, "
")
Next i

Mais voilà il ne se passe pas grand chose...

Y aurait-il une âme intelligente pour me donner un coup de pouce ?

Merci

cs_Jack · Accepted Answer

Salut
Compliqué.
[*] 
 n'est pas un terme reconnu par VB, mais bon, pourquoi pas
[*] Replace fait déjà la recherche, pourquoi avoir encore inséré un Search ?
[*] Chr(10), c'est vbLf, alors pourquoi rechercher vbCrLf ? normal qu'il ne fasse rien

--> Replace(Cells(i, CommentCol).Value, vbLf, "
") 

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

bmwax · Answer

Merci Jack.

Le problème c'est qu'il faut xxx = replace(... et non pas replace directement

J'ai essayé ca:

    Dim Cel As Range
    Dim p As String
    Range(Cells(FirstRowData, cnColText), Cells(65536, cnColText).End(xlUp)).Select
    For Each Cel In Selection
        p = Cel.Value
        p = replace(p, vbLf, "
")
        Cel.Value = p
    Next

Mais rien ne se passe.

bigfish_le vrai · Answer

une demo sur la colonne A (attention pour que cela fonctionne correctement la colonne doit contenir une etiquette)

Sub demo()
    Dim cel As Range, maplage As Range
    Application.ScreenUpdating = False
    Set maplage = Range("A1:A" & Range("A" & Columns(1).Rows.Count).End(xlUp).Row)
    maplage.AutoFilter Field:=1, Criteria1:="=*" & vbLf & "*"
    Set maplage = maplage.SpecialCells(xlCellTypeConstants, 23).SpecialCells(xlCellTypeVisible)
    If Not maplage.Rows.Count = 0 Then
        For Each cel In maplage
           cel.Value = Replace(cel.Value, vbLf, "
")
        Next
    End If
    maplage.AutoFilter
    Application.ScreenUpdating = True
End Sub

A toi de faire le reste

bmwax · Answer

FAN-TAS-TIQUE !!!

Tu m'enlèves un gros cure-dent épineux du pied... 

Merci

cs_Jack · Answer

"Le problème c'est qu'il faut xxx = replace(... et non pas replace directement" Oui, je sais, mais il te suffisait de remplacer ton actuelle syntaxe du Replace par celle que je te proposais
Et tu restais bloqué la dessus ?

bmwax · Answer

Hé bien j'avoue qu'il m'arrive parfois d'oublier de réfléchir...
J'ai quand même des circonstances atténuantes : plus de café le mercredi soir après une journée de code ! 

Mille excuses Jack, ton code fonctionne aussi...

Merci beaucoup !

Remplacement Chr(10) par <BR>

6 réponses

Votre réponse