Rechercher remplacer sur toutes les feuilles d'un classeur

Question

Bonjour,

Je voudrais rechercher et remplacer des mots sur chaque feuille excel de mon classeur, et je n'arrive pas à le faire fonctionner pouvez vous m'aider!!
Par avance merci !!
Ci-joint ce que j'ai fait, mais ca ne fonctionne pas, seulement sur la 1ere page !!!!!

Sub SDEA()
'
' SDEA Macro
' Macro enregistrée le 21/07/2006 par UserCG07
'
 Dim xlsSheet As Excel.Worksheet


    Workbooks.Open FileName:="C:\BudgetM52\lis\bp2007sdea.xls"
           For Each xlsSheet In Worksheets
            ActiveWindow.ScrollRow = 1
    Cells.Replace What:="départementaux", Replacement:="syndicaux", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False
    Cells.Replace What:="DEPARTEMENTAUX", Replacement:="SYNDICAUX", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False
    Cells.Replace What:="DEPARTEMENT", Replacement:="SYNDICAT", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False
    Cells.Replace What:="Conseil", Replacement:="Comité", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False
    Cells.Replace What:="département", Replacement:="syndicat", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False
        Cells.Replace What:="général", Replacement:="syndical", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False
      Next
        
End Sub

Dolphin Boy · Answer

Salut, suis pas fort en vba excel mais un xlsSheet.Activate après ton For Each devrait faire l'affaire.

mortalino · Answer

Je me demande même s'il ne faut pas faire une boucle sur les cellules aussi !

@++

   Mortalino 
Le mystérieux chevalier, "Provençal, le Gaulois"

Merci de prendre le temps de répondre à

mortalino · Answer

Bon je viens de faire le test, c'est bien cela Dolphin, xlSheet.Select ou xlSheet.Activate !

@++

   Mortalino 
Le mystérieux chevalier, "Provençal, le Gaulois"

Molenn · Answer

Sinon, on peut aussi faire une boucle du style :

For i = 1 To ActiveWorkbook.Sheets.Count

       ' Ton code de remplacement (d'ailleurs, moi je me ferai une toute petite fonction Remplacement pour que mon code soit plus clair. Je dis ça parce que j'ai repris un fichier aujourd'hui que j'avais fait il y a 6 mois, et bien, je pige que dalle. J'aurai pas du conserver comme ça le code de l'assistant macro :p)

Next i

Molenn

Rechercher remplacer sur toutes les feuilles d'un classeur

4 réponses

Votre réponse

Discussions similaires