VBA Excel Compter nombre de barre d'un graph

Lazarey Messages postés 3793 Statut Membre -  
 Helper -
Bonjour à tous,

J'ai une petite question en VBA excel. J'aurais aimé savoir s'il était possible de compter le nombre de barres d'un graphique. En fait j'ai un graphique qui est généré automatiquement et je ne sais pas comment faire pour connaitre le nombre de barres qui le composent.

Merci beaucoup
A voir également:

2 réponses

pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 768
 
Bonjour,
Si je ne m'abuse, ton nombre de barres corresponds au nombre de données que tu mets dans ton graphe.
Pour moi, il suffit de compter ces données pour obtenir le nombre de "barres".
Exemple :
On réalise un graph à partir des cellules A1:B10
Le code :
MsgBox Sheets("Feuil1").Range("A1:B10").Cells.Count / 2
va nous donner le nombre de "barres" si toutes les cellules sont complétées bien sur.
0
Lazarey Messages postés 3793 Statut Membre 745
 
Salut Pijaku.

Merci pour ta réponse, mais j'avais déjà essayé et comme le graphique est généré à partir d'une sous-partie du tableau de données, cette méthode ne fonctionne pas. D'où mon besoin de compter le nombre de barres du graphique.
J'ai cherché dans les méthodes et les propriétés du graphique en regardant ce que je pouvais mettre après le "." du code suivant :
ActiveSheet.ChartObjects("monGraph").

Mais je n'ai rien trouvé de bien probant. Peut-être avec l'objet "seriescollection" mais je n'ai pas non plus touvé.
0
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 768
 
Peux tu nous mettre ton code complet, tout au moins la partie qui créée le graph?
0
Lazarey Messages postés 3793 Statut Membre 745
 
Salut,

Malheureusement je ne l'ai pas :(
0
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 768
 
Salut,
Curieux???
Tu as accès à : ActiveSheet.ChartObjects("monGraph"). mais pas au code complet?
0
Helper
 
Nombre de barres de la série 1 :
activesheet.chartobjects("monGraph").graph.seriescollection(1).points.count
0
Helper
 
ou alors le nombre de séries :
activesheet.chartobjects("monGraph").graph.seriescollection.count
0