XL 2010 Application macro dans classeur

[fouggy]

Slt le forum,

Je dispose d'une macro (ci-dessous) qui fonctionne très bien. Elle consiste à remplacer un caractère par un autre dans une colonne, ici la colonne G.
Je souhaite désormais l'appliquer sur tout un classeur ouvert, quelque soit le nombre de feuilles) avec la fonction worksheet mais je n'y arrive pas alors que ça marche avec d'autres macros.

Quelqu'un peut-il m'éclairer ?

Marci d'avance.

Sub RemplaceLesP()

Dim w As Worksheet
For Each w In Worksheets

Columns("G:G").Select
Range("G567").Activate
Selection.Replace What:="P", Replacement:="*", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Next

End Sub

 

[fouggy]

Slt le forum,

Je dispose d'une macro (ci-dessous) qui fonctionne très bien. Elle consiste à remplacer un caractère par un autre dans une colonne, ici la colonne G.
Je souhaite désormais l'appliquer sur tout un classeur ouvert, quelque soit le nombre de feuilles) avec la fonction worksheet mais je n'y arrive pas alors que ça marche avec d'autres macros.

Quelqu'un peut-il m'éclairer ?

Marci d'avance.

Sub RemplaceLesP()

Dim w As Worksheet
For Each w In Worksheets

Columns("G:G").Select
Range("G567").Activate
Selection.Replace What:="P", Replacement:="*", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Next

End Sub

 

[fouggy]

Oupssssssssssssss

Avec le W. avant "Range, c'est mieux, mais ça le fait pas non plus, lol

Sub RemplaceLesP()

Dim w As Worksheet
For Each w In Worksheets

Columns("G:G").Select
w.Range("G567").Activate
Selection.Replace What:="P", Replacement:="*", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Next

End Sub

 

[Dranreb]

Bonjour.
À priori

Sub RemplaceLesP()
Dim w As Worksheet
For Each w In Worksheets
   W.Columns("G:G").Replace What:="P", Replacement:="*", LookAt:=xlPart, _
      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
     ReplaceFormat:=False
      Next W
End Sub