Macro Boucle sur l'ensemble du fichier Excel

Bonjour,

J'ai actuellement un fichier avec de nombreux onglets.

J'ai réalisé une macro par onglet qui réalise un calcul par onglet (avec un bouton pour la déclencher) que voici :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub goalseek()   Application.MaxChange = 0.00001   Range("ChangeCell").ClearContents Range("ChangeCell").Value = "50000"   Range("GoalSeekCell").goalseek Goal:=0, ChangingCell:=Range("ChangeCell")   End Sub

---

Avec la volumétrie, je voudrais mettre un bouton qui me permettent d'actualiser une macro générale avec un bouton sur l'onglet "Récap" pour tous le fichier sauf les onglets "Recap" et "Notes".

Mes deux questions sont :
-Est ce que je dois renommer l'ensemble des cases concernées par la macro soit "ChangeCell" et "GoalSeekCell" sur l'ensemble des onglets ?

-Avez vous une solution pour moi ?

Merci d'avance

Il suffit de faire une boucle For Each sur la collection Worksheets.
Dans la boucle, commencer par vérifier que la Worksheet courante a un nom différent de Recap" et "Notes".
Ensuite, il suffit de faire précéder tes Range de la référence à la Worksheet.

Citation:

---

Envoyé par Menhir

Il suffit de faire une boucle For Each sur la collection Worksheets.
Dans la boucle, commencer par vérifier que la Worksheet courante a un nom différent de Recap" et "Notes".
Ensuite, il suffit de faire précéder tes Range de la référence à la Worksheet.

---

merci pour votre réponse rapide, cependant j'ai essayé cela qui s'affiche dans l'onglet module du VBA project :

Code:

---

1 2 3 4 5 6 7 8 9

Sub testmacroboucle() Dim Ws As Worksheet For Each Ws In ThisWorkbook.Worksheets Application.MaxChange = 0.00001 Ws.Range("ChangeCell").ClearContents Ws.Range("ChangeCell").Value = "50000" Ws.Range("GoalSeekCell").goalseek Goal:=0, ChangingCell:=Range("ChangeCell") Next Ws End Sub

---

Et lors du lancement de la macro il y a une erreur d’exécution '1004' la méthode "Range de l'objet "_Worksheet" a échoué.