XL 2010 Application macro dans classeur

  • Initiateur de la discussion Initiateur de la discussion fouggy
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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
 
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
277
Réponses
2
Affichages
461
Réponses
3
Affichages
543
Retour