Onglet non repéré par ma macro (graphe)

[Fab117]

Hello,
Ma macro génère un graphique.
Ce graphique est ensuite déplacé dans son propre onglet

ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Gantt-Chart"

Si je répète la macro, il doit en premier lieu effacer l'onglet "Gantt-Chart" (sinon il plante).

=> je lui fais faire une boucle sur tous les onglets de mon classeur et s'il voit "Gantt-Chart" il doit l'effacer:

    Dim Sh As Variant
    For Each Sh In Worksheets
        If Sh.Name = "Gantt-Chart" Then
            If MsgBox("Delete previous chart?", vbYesNo, "Gantt Chart") = vbYes Then
                Sheets("Gantt-Chart").Select
                ActiveWindow.SelectedSheets.Delete
                Sheets("Gantt-Task").Select
            End If
        End If
    Next

Problème, il ne reconnait pas l'onglet "Gantt Chart". Si je lui fais lister les onglets qu'il croise, il les indique tous sauf celui-ci.

Quelqu'un saurait-il pourquoi et surtout comment résoudre ce problème ?

Merci d'avance et bon après-midi.

Fab

 

[pierrejean]

Re : Onglet non repéré par ma macro (graphe)

Bonjour Fab117

A tester:

For Each Sh In Sheets
au lieu de
For Each Sh In Worksheets

 

[Fab117]

Re : Onglet non repéré par ma macro (graphe)

Bonjour Fab117

A tester:

For Each Sh In Sheets
au lieu de
For Each Sh In Worksheets

Bonjour Pierre Jean,
Merci beaucoup pour la solution.
Elle fonctionne parfaitement.

Excellente soirée.

Fab