Appliquer une macro sur une feuille et non une cellule active


#1

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


#2

Hello
Essaye ceci (boucle a travers toutes les cellules de la feuille)

Sub cg_all()
    For each cell in ActiveSheet.Cells
        Call cg
    next cell
End Sub