Supprimer des retour à la ligne dans des cases

[jacques]

Bonjour,

je possède un fichier excel ou toutes les cases comportes des retour à la lignes (alt + entrée).

Qur faut il faire pour tous les supprimer d'un coup.

Merci d'avance pour toute aide.

J.

 

[Jimmy]

Bonsoir Jacques ,



Tu peux essayer cela en chan.geant les cellules ou colonne si necessaire.


Sub Suppr_Retour()
'
Range("A2:A3").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub

Bonne soirée
Jimmy

 

[Rénato]

Salut Jacques,

Une autre solution possible :

Sub KillLinefeedShort()
Application.ScreenUpdating = False

With ActiveSheet.UsedRange
.Replace Chr(10), Chr(32), 2
End With
Application.ScreenUpdating = True

End Sub

Cdt

Rénato