Suppression des espaces dans une colonne des feuilles d'un classeur

Bonsoir,

Voila mon code VBA et je comprends pas, il ne s'applique pas à toute les feuilles de mon classeur :

Sub SUPP()

'

' SUPP ESPACE D'UNE SELECTION DANS TOUTES LES FEUILLES

'

Dim f1 As Worksheet

For Each f1 In Worksheets

Range("A1:A8").Select

Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

Next f1

End Sub

En vous remerciant pour votre aide.

Boss92

Bonsoir Boss92,

essaye ceci :

Sub SUPP()
  '
  ' SUPP ESPACE D'UNE SELECTION DANS TOUTES LES FEUILLES
  '
  Dim f1 As Worksheet
  For Each f1 In Worksheets
    f1.[A1:A8].Replace What:=" ", Replacement:="", LookAt:=xlPart
  Next f1
End Sub

dhany

Bonjour,

essaie ainsi :

Sub SUPP()
Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        ws.Range("A1:A8").Replace What:=" ", Replacement:=""
    Next ws
End Sub

Top. Merci beaucoup Dhany.

Bonne soirée.

merci pour ton retour ! bonne soirée à toi aussi !

dhany

Jean-Eric a écrit :

Bonjour,

essaie ainsi :

Sub SUPP()
Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        ws.Range("A1:A8").Replace What:=" ", Replacement:=""
    Next ws
End Sub

Merci beaucoup. Ca fonctionne bien.

Bonne soirée.