Suppression Retour à la ligne

[cdric78]

Bonjour à tous,

Je souhaite pouvoir supprimer le retour à la ligne de chaque cellule via une VBA.

Je vous remercie par avance pour votre aide

 

[Grand Chaman Excel]

Re : Suppression Retour à la ligne

Bonjour cdric78,

Un exemple, la plage est à adapter bien sûr :
Note : le retour de ligne correspond au caractère ascii no.10.

Sub Twidelatwit()
    Dim c As Range
    
    Application.ScreenUpdating = False
    For Each c In Range("a1:B37")
        c = Replace(c, Chr(10), "")
    Next c
    Application.ScreenUpdating = True
End Sub

A+