Appliquer une macro sur toutes les feuilles Excel

Bonjour à tous,

J'utilise cette macro pour changer les liens que j'utilise, maintenant je souhaite que cette macro s'applique sur tous les onglets de mon fichier .

Est ce que vous pouvez m'aider svp ?

voici la macro :

Sub Test()

Dim Cel As Range

For Each Cel In Cells.SpecialCells(xlCellTypeFormulas)

Cel.Formula = Replace(Cel.Formula, "ab", "cd")

Next Cel

End Sub

Merci d'avance,

Bonsoir sofia do, le forum,

Peut-être ainsi...

Sub Test()
 Dim Cel As Range, sh As Worksheet
  Application.ScreenUpdating = False
   For Each sh In ThisWorkbook.Worksheets
    On Error Resume Next
     For Each Cel In sh.UsedRange.Cells.SpecialCells(xlCellTypeFormulas)
      Cel.Formula = Replace(Cel.Formula, "ab", "cd")
     Next Cel
    On Error GoTo 0
   Next sh
End Sub

Cordialement,

Bonjour,

Merci beaucoup, ça a bien fonctionné mais mon fichier comporte malheureusement plusieurs onglets et ça a pris enormement de temps à marcher.. je dois donc trouver une autre solution.

Merci encore une fois,

Re bonjour est ce que vous pouvez m'aider à appliquer cette macro à une seule colonne de toutes les feuilles du fichier ?

Merci beaucoup

Bonsoir,

Peut-être ainsi... ?

Sub Test()
 Dim Cel As Range, sh As Worksheet
  Application.ScreenUpdating = False
   For Each sh In ThisWorkbook.Worksheets
    On Error Resume Next
     For Each Cel In sh.Columns("A").SpecialCells(xlCellTypeFormulas) 'colonne à adapter
      Cel.Formula = Replace(Cel.Formula, "ab", "cd")
     Next Cel
    On Error GoTo 0
   Next sh
End Sub

Avec un fichier pour voir comment sont structurées tes données, tu obtiendrais certainement une proposition optimisée....

Cordialement,