Appliquer une macro sur une feuille et non une cellule active

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

Bonsoir,

Essaie ainsi :

Public Sub TEST()
    With ActiveSheet.UsedRange
        .Replace vbCr, Chr(32)
        .Replace vbLf, Chr(32)
        .Replace vbCrLf, Chr(32)
    End With
End Sub

Merci, ça à l'air de fonctionner

Bonjour,

Cela fonctionne ou ne fonctionne pas. Il n'y a pas d'autre alternative.

Cdlt.