Executer macro sur toutes les feuilles du classeur

[Henriett]

Bonsoir,

J' aimerais savoir si je peux executer une même macro sur toutes les feuilles de mon classeur.

Cordialement,

 

[Gorfael]

Re : Executer macro sur toutes les feuilles du classeur

Salut Henriett et le forum
Oui, tu peux. Tu peux même l'exécuter sur toutes les feuilles de tous les classeur ouverts.
A+

 

[Henriett]

Re : Executer macro sur toutes les feuilles du classeur

Bonsoir,

Et quelle est la formule ?

Cordialement,

 

[Henriett]

Re : Executer macro sur toutes les feuilles du classeur

Bonsoir,

J' ai essayé ceci :


Sub Macro1

For Each ws In Worksheets
Ma macro
Next

End Sub


Mais ça ne marche pas ?

Bonne soirée,

Cordialement,

 

[Hippolite]

Re : Executer macro sur toutes les feuilles du classeur

Bonsoir,
Je n'ai pas de boule de cristal.
Joins un petit fichier pour qu'on puisse répondre.
A+

 

[Etienne2323]

Re : Executer macro sur toutes les feuilles du classeur

Salut le forum,
voici un exemple.

Option Explicit

Sub test()

Dim Ws As Worksheet

Application.ScreenUpdating = False
For Each Ws In Worksheets
    Ws.Select
    'Tu ajoutes ton code ici
    Cells(1, 1).Value = "Etienne"
Next Ws

End Sub

Cordialement,

Étienne

 

[Gorfael]

Re : Executer macro sur toutes les feuilles du classeur

Salut Henriett et le forum
Petit rappel : pas de devin, ou autres magiciens, ni de télépathe sur ce site. Et ma signature est suffisamment explicite.
On ne peut donner que ce qu'on a. Et c'est pas beaucoup.

Que tu ne donnes pas de code ne me gène pas : il y a d'autres sujets à répondre, qui fournissent assez d'informations. Mais quant à faire avancer ton sujet...
A+

 

[Gorfael]

Re : Executer macro sur toutes les feuilles du classeur

Salut Etienne2323 et le forum
Moi, je coderais :

Option Explicit

Sub test()
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In Worksheets
      with Ws
            .Cells(1, 1) = "Marcel"
      end with
Next Ws
Application.ScreenUpdating = true
End Sub

A+

 

[Henriett]

Re : Executer macro sur toutes les feuilles du classeur

Bonjour,

Merci Etienne2323, j' ai réussi à adapter ma macro à ton exemple :

Option Explicit
 
Sub test()
 
Dim Ws As Worksheet
 
Application.ScreenUpdating = False
 For Each Ws In Worksheets
     Ws.Select
     Call ABC
 Next Ws
 
End Sub

Par contre Gorfael je n' ai pas réussi avec la tienne, la macro s' éxécute mais seulement dans la première feuille de mon classeur. Merci quand même.

Bonne journée à tous,

Cordialement,

 

[Pierrot93]

Re : Executer macro sur toutes les feuilles du classeur

Bonjour à tous

Par contre Gorfael je n' ai pas réussi avec la tienne, la macro s' éxécute mais seulement dans la première feuille de mon classeur. Merci quand même.

sans doute ta macro fait-elle référence systèmatiquement à la feuille active, ceci expliquerait cela...

bonne journée
@+