Bonjour à tous,
J’utilise actuellement un script qui supprime les retours chariot. Le souci c’est que celui-ci fonctionne sur la cellule active (sélectionné). J’aimerais l’appliquer sur la feuille entière parce que j’ai plusieurs centaines de lignes, et plusieurs colonnes.
Voici le code.
Sub cg()
If InStr(ActiveCell, vbCrLf) Then
ActiveCell = Replace(ActiveCell, vbCrLf, " ")
ElseIf InStr(ActiveCell, vbCr) Then
ActiveCell = Replace(ActiveCell, vbCr, " ")
ElseIf InStr(ActiveCell, vbLf) Then
ActiveCell = Replace(ActiveCell, vbLf, " ")
End If
End Sub
Merci pour votre aide,
Amicalement
Loïc