J jacques Guest 4 Janvier 2005 #1 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.
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.
J Jimmy Guest 4 Janvier 2005 #2 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 Vote positif 0 Vote négatif
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 Rénato Guest 4 Janvier 2005 #3 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 Vote positif 0 Vote négatif
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