Macro Remplacer dans classeur

[dudumomo]

Bonjour à tous.
Je souhaiterai effectuer une macro qui remplace le mot #Missing par des 0 dans tout mon classeur.

J'ai donc fait la macro :
Cells.Replace What:="#Missing", Replacement:="0", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Malheureusement cela fonctionne seulement sur la feulle et pas dans tout le classeur.
Je dois donc selectionner manuellement dans la fonction remplacer, le mode Classeur.

Existerait il un moyen pour l'incrémenter dans ma macro ?
J'ai testé de selectionner toute les feuilles via ActiveWorkbook.Worksheets.Select
mais ca ne fonctionne pas.

Une idée ?

Merci

 

[Robert]

Re : Macro Remplacer dans classeur

Bonjour Dudumomo, bonjour le forum,

Essaie avec une boucle :

Sub Macro1()
Dim sh As Worksheet
Application.ScreenUpdating = False
For Each sh In Sheets
    sh.Select
    Cells.Replace What:="#Missing", Replacement:="0", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
Next sh
Application.ScreenUpdating = True
End Sub

 

[dudumomo]

Re : Macro Remplacer dans classeur

Merci Robert, cela fonctionne à merveille.

Super !

Merci bien.

Et juste par curioisté (Je ne suis pas bon en VBA), que signifie : Application.ScreenUpdating ?

Merci encore

 

[Robert]

Re : Macro Remplacer dans classeur

Bonjour Dudumomo, bonjour le forum,

Application.ScreenUpdating = False masque les changements à l'écran. Cela optimise l'exécution du code. Si tu supprimes cette ligne, tu verras défiler les pages et s'effectuer les remplacements.
Application.ScreenUpdating = True rétablie les choses en réaffichant les changements mais il me semble avoir lu dans le forum que c'était devenu facultatif de le remettre...

Mais mon code peut s'améliorer ainsi, en evitant le Select et par la même occasion les Application.ScreenUpdating :

Sub Macro1()
Dim sh As Worksheet
For Each sh In Sheets
    sh.Cells.Replace What:="#Missing", Replacement:="0", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
Next sh
End Sub

 

[dudumomo]

Re : Macro Remplacer dans classeur

Ah je vois.
Merci Robert.
Application.ScreenUpdating pourra peut etre mettre utile pour d'autre macro. Je vais donc les laisser.
Merci bien !