Nom Graphique VBA Excell

Fermé

wolf3470 - 21 avril 2011 à 14:37
Utilisateur anonyme - 21 avril 2011 à 15:55

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

A voir également:

Nom Graphique VBA Excell
Changer carte graphique - Guide
Comment faire un graphique sur excel - Guide
Graphique camembert excel - Guide
Graphique sparkline - Guide
Incompatibilité de type vba ✓ - Forum Programmation

2 réponses

Réponse 1 / 2

ccm81 Messages postés 10908 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 mai 2025 2 431
Modifié par ccm81 le 21/04/2011 à 15:51

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

Réponse 2 / 2

Utilisateur anonyme
21 avril 2011 à 15:55

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

Discussions similaires

Annuaire portable gratuit à partir d'un nom

"Nom de l'adresse" lors d'une inscription sur une site

Nom sonnerie appel par defaut

"Nom de l'adresse" lors d'une inscription sur une site

Ça veut dire quoi intitulé d’une adresse ??