Lister les feuilles Graphiques

[siocnarf]

Bonjour,

J'ai plusieurs feuilles Graphiques. La premières fois que je les créés, celles-ci s'appele Graph1, Grap2, etc... Actuellement, je passe cela en paramètre dans mon programme et cela fonctionne. Sauf que maintenant, je dois faire une modification qui m'oblige à les supprimer et à les recréer. En les recréant, le nom change pour Graph3, Graph4, etc.. J'aimerais ne plus coder dur le nom de la feuille graphique mais à la place déterminer dynamiquement le nom de celle-ci.

Est-il possible de déterminer dynamiquement le nom de toutes les feuilles graphiques en les listants et en stockant le nom dans un array?



Merci,

François

 

[Pierrot93]

Re : Lister les feuilles Graphiques

Bonjour,

pas tout compris du problème et sans voir le code utilisé... utilise peut être une variable objet lors de la création de la feuille graphique :

Dim c As Chart
Set c = Sheets.Add(Type:=xlChart)

ensuite partout dans ton code, lorsque tu veux faire référence à cette feuile graph, tu utilises la variable...

bon après midi
@+

 

[siocnarf]

Re : Lister les feuilles Graphiques

Bonjour,

Bon, je me réessaie.
Comment, je fais pour connaître dynamiquement tous les noms des feuilles graphiques présents dans un classeur. Comment puis-je les lister?


Merci,

 

[Pierrot93]

Re : Lister les feuilles Graphiques

Re,

comme ceci, te donnera uniquement les feuilles graph :

Dim ws As Object
For Each ws In Sheets
    If ws.Type = 3 Then MsgBox ws.Name
Next ws

 

[siocnarf]

Re : Lister les feuilles Graphiques

Bonjour

Et maintenant, comment le ferais-je pour la seconde feuille graphique avec une comme For?

Merci

 

[Pierrot93]

Re : Lister les feuilles Graphiques

Re,

vois pas ce que tu veux faire exéctement.... Pourquoi as tu besoin du nom de la feuille ? en utilisant la variable objet tu devrais t'en sortir... sans voir le code complet difficile d'en dire plus...

 

[pierre le grand]

Re : Lister les feuilles Graphiques

Bonsoir,

Le code suivant te permettra de lister toutes les feuilles de ton classeur

    Dim wk1 As Workbook
    Dim feuille as String
    Dim i as integer

    Set wk1 = ActiveWorkbook
    For i = 1 To wk1.Sheets.Count
        Feuille = wk1.Sheets.Item(i).Name
        msgbox Feuille,0,"Nom de la feuille"
    Next i

Feuille contiendra le nom de la feuille et la boucle de retrouver toutes les feuilles de ton classeur.

Maintenant à toi de voir ce que tu veux en faire

Bonne soirée et bon courage.🙂

 

[siocnarf]

Re : Lister les feuilles Graphiques

Bonjour,

Sub Graphique(Gra_VFeuilStatData, Gra_IntLigneDebutAlertesparServeurs, Gra_IntColDebutAlertesparServeurs, Gra_FeuilleNomDefaut, Gra_FeuilleNomFinal)

'Feuil3
'Gra_IntLigneDebutAlertesparServeurs, Gra_IntColDebutAlertesparServeurs Vaut en fait 1,42
Sheets(Gra_VFeuilStatData(0)).Cells(Gra_IntLigneDebutAlertesparServeurs, Gra_IntColDebutAlertesparServeurs).Select

Charts.Add

ActiveChart.ChartType = xlColumnStacked
ActiveChart.Location Where:=xlLocationAsNewSheet

'Gra_FeuilleNomDefaut Graph1 peut prendre les noms Graph1 .... 3
'
Sheets(Gra_FeuilleNomDefaut).Select
Sheets(Gra_FeuilleNomDefaut).Name = Gra_FeuilleNomFinal

End sub

Si j'utilise Excel.Workbooks(1).ActiveSheet.Name alors le nom retourné est celui d'une autre feuille.


Merci,

 

[Pierrot93]

Re : Lister les feuilles Graphiques

Bonjour,

peut être voir comment sont initialisées les variables "Gra_FeuilleNomDefaut" et "Gra_FeuilleNomFinala" que tu passes en paramètre...

bonne journée
@+