XL 2010 Application macro dans classeur

fouggy

XLDnaute Junior
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

XLDnaute Junior
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

XLDnaute Junior
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

XLDnaute Barbatruc
Bonjour.
À priori
VB:
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
 

Discussions similaires

Statistiques des forums

Discussions
311 741
Messages
2 082 058
Membres
101 883
dernier inscrit
Don esteban