Nom Graphique VBA Excell

Question

Bonjour, 

Pour un projet je dois coder en VBA un graphique en cliquant sur un bouton prédéfini.
Au niveau du code tout va bien le graphique prend les bonnes données.

Maintenant je veux l'agrémenter en mettant un titre de graphique et aux axes. 
Mon problème vient du fait que je ne peux créer correctement ce graphique qu'une seule fois en appuyant sur ce bouton puisque dans mon code je vais chercher le graphique 1

ActiveSheet.ChartObjects("Graphique 1").Activate

Du coup si je refait l'opération une deuxième fois je ne peux plus modifier les titres puisque je n'active pas le bon graphique.

D'où ma question.
Comment imposer un numéro ou un nom à mon graphique lors de sa création pour que la mise en page du graph soit la bonne en utilisant plusieurs fois ce bouton.

D'avance Merci.

Fabien



Configuration: Windows 7 / Firefox 3.6.16

ccm81 · Answer

bonjour  

chaque objet graphique peut etre defini par son rang dans la collection des objets ou par un nom en dur  

pour attribuer un nom au graphique n°1  
puis pour selectionner le graphique de nom "GR1"  

ChartObjects(1).Name = "GR1"  
ChartObjects("GR1").Select

RQ. tu peux attribuer un nom au graphique lors de sa creation  

bonne suite

Utilisateur anonyme · Answer

Bonjour,

En complément de ccm81, tu peux avec ce code parcourir
la liste des graphiques sur une même feuille.


Sub Parcour_Graphiques()

    Dim NomGraphique As String
    Dim objGraph As ChartObject
    Dim Texte As String
    
    Texte = ""
    For Each objGraph In ActiveSheet.ChartObjects
        If (objGraph.Name = "Graphique 1") Then
            DoEvents
            '... Code pour la manipulation
        End If
        Texte = Texte & vbCrLf & objGraph.Name
    Next objGraph
      
    MsgBox Texte
    
End Sub
'


Cdt

Lupin

Nom Graphique VBA Excell

2 réponses

Discussions similaires

Newsletters