Discussion :

[Marsama]

Bonjour,

Je dispose d'un fichier dans lequel j'ai une trentaine d'onglets. Ces onglets ont tous exactement le même format.
Sur chacun d'entre eux, je voudrais récupérer l'équation de la courbe de tendance et ses coefficients dans un tableau déterminé.

J'ai déjà pu créer la macro qui me permet de faire ça, mais elle ne le fait que pour un seul classeur à la fois, celui qui est ouvert (on l'appellera "Graphique1_Coefficients").

J'ai également un onglet, le seul différent, qui est mon onglet Télécommande, sur lequel je voudrais mettre tous les boutons d'exécution des macros de mon fichier (dont "Graphique1_Coefficients")

Comment faire en sorte que ma macro "Graphique1_Coefficients" s'exécute sur tous les onglets de mon fichier, sauf celui de Télécommande?

J'ai essayé déjà de faire sur tous les onglets avec :

Code :

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

For Each Worksheet in Worksheets

Mais apparemment, ce n'est pas conforme avec la suite des mes instructions qui est :

Code :

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

ActiveSheet.ChartObjects("Graphique 1").Activate

(Bien sûr, le

Code :

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

ActiveSheet

est à enlever, mais en ne laissant que

Code :

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

ChartObjects("Graphique 1")

, ça ne fonctionne pas quand même)

Merci d'avance de votre aide.

[Philippe Tulliez]

Bonjour,
Dans ta boucle For Each tu dois utiliser une variable objet (par exemple sht). Comme la variable objet hérite des propriétés et méthodes de l'objet (ici WorkSheet) tu peux vérifier le nom de la feuille par sht.name
Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub ReadSheet()
 Dim sht As Worksheet
 For Each sht In Worksheets
  Debug.Print sht.Name
  If sht.Name <> "Telecommande" Then
   ' Code
  End If
 Next
End Sub

A ce moment là, tu n'utilises plus l'objet ActiveSheet mais sht

[Marsama]

Super ! Ça fonctionne parfaitement, merci beaucoup !