Discussion :

[Bal13ski]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[Bal13ski]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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é.