XL 2016 Astuce enlevé des sauts de lignes dans une cellule

[Rabeto]

Bonjour,

Dans une colonne escel, j'ai une liste, et quand on double clic sur chaque cellule, certaine cellule contient des à la ligne.
Je souhaite enlever les à la ligne.

Merci

 

[Phil69970]

Bonjour @Rabeto

Je te propose ceci :
Tu sélectionnes la colonne en question et tu lances la macro

Sub SupSautLigne()
Application.ScreenUpdating = False
Dim Cel As Range
For Each Cel In Selection
    Cel.Value = Replace(Cel.Value, Chr(10), "")
Next
End Sub

*Merci de ton retour

Bonne fêtes

@Phil69970

 

[mapomme]

Bonjour à tous 🙂,

Un autre :

Sub SansSautLigne()
Dim Cellule As Range
   On Error Resume Next
   Set Cellule = Application.InputBox(prompt:="Sélectionner une cellule de la colonne à traiter...", Type:=8)
   On Error GoTo 0
   If Cellule Is Nothing Then MsgBox "Abandon.", vbCritical: Exit Sub
   Cellule.Cells(1, 1).EntireColumn.Replace what:=vbLf, replacement:="", lookat:=xlPart
End Sub