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