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

Rabeto · 29 Décembre 2021

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 · 29 Décembre 2021

Bonjour @Rabeto

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

VB:

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

Phil69970 · 29 Décembre 2021

Bonjour @Rabeto

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

VB:

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 · 29 Décembre 2021

Bonjour à tous ,

Un autre :

VB:

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

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

Rabeto

XLDnaute Occasionnel

Phil69970

Phil69970

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Discussions similaires