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

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

Rabeto

XLDnaute Occasionnel

Phil69970

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency