Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Macro Saut de ligne

Rabeto

XLDnaute Occasionnel
Bonjour,

Je vous sollicite afin de trouver une solution via macro pour enlever des sauts de ligne dans chaque cellule d'une feuille excel (Colonne A jusqu'en AG)
Le but étant de selectionner les colonnes de A jusqu'en AG et d'enlever les sauts de ligne dans chaque cellule.

Juste un code macro, je me débrouille pour le reste.

Si possible, est ce qu'on peut aussi utiliser la macro sur un fichier Google Sheet ?

Merci d'avance,
 

Pièces jointes

  • Saut de ligne.xlsx
    8.5 KB · Affichages: 4
Solution
Bonjour à tous,
sinon en VBA:
VB:
Sub SansVblf()
Dim aChercher As String, RemplacerPar As String
   aChercher = vbLf     ' on remplace les sauts de ligne
   RemplacerPar = ""    ' on les remplace par autre chose - ici une chaine vide par exemple
   Columns("a:g").Replace what:=aChercher, Replacement:=RemplacerPar, Lookat:=xlPart
End Sub

rem : Gogole Sheet, connais pas.

edit : bonjour @chris

chris

XLDnaute Barbatruc
Bonjour

Un simple cherche et remplace puis remplacer tout le fait en 2 secondes

Taper Alt 010 dans la zone rechercher et rien dans la zone remplacer ou un espace s'il manque entre les mots de part et d'autre du retour
 

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonjour à tous,
sinon en VBA:
VB:
Sub SansVblf()
Dim aChercher As String, RemplacerPar As String
   aChercher = vbLf     ' on remplace les sauts de ligne
   RemplacerPar = ""    ' on les remplace par autre chose - ici une chaine vide par exemple
   Columns("a:g").Replace what:=aChercher, Replacement:=RemplacerPar, Lookat:=xlPart
End Sub

rem : Gogole Sheet, connais pas.

edit : bonjour @chris
 
Dernière édition:

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…