Titre des axes sous conditions excel 2007 Résolu/Fermé

Question

Bonjour à tous, 

J'ai besoin d'un petit coup de main, pour ceux qui ne sont pas encore en vacances :) 
Sur Excel 2007, j'ai 

bouton 1 : masque tableau 1 
Bouton 2 : masque tableau 2 

Un histogramme qui affiche les valeurs non masqués, donc soit : 
- tableau 1 
- tableau 2 
- tableau 1+2 
- rien :) 

La taille et l'échelle du graphique s'ajuste en fonction des quantités de données; 

Un seul tableau, trois barres, si il y a tableau 1 et 2, j'ai donc six barres. 

Question : Est il possible de mettre des titres d'axes correspondant au tableau respectif ? 

Exemple, si il n'y a que les valeurs du tableau 1 sur l'histogramme, j'aimerais un titre en abscisse : Toto. Si que tableau 2 : Chuck Norris. Si tableau 1 et 2 : et bien les deux titres toto et Chuck Norris. 

Merci pour votre aide. 




Configuration: Windows XP / Safari 536.11

f894009 · Answer

Bonjour,

Voir ce lien.

https://forums.commentcamarche.net/forum/affich-24323639-titre-des-axe-d-un-graphique-excel-2007

f894009 · Answer

Re,

Quelque lignes plus explicites:

Sub change_nomaxes()
'axe absice
With Charts("Graph1").Axes(xlCategory)
    .HasTitle = True
    .AxisTitle.Text = Worksheets(1).Range("A1") 'ou ="AZERTY"
End With

'axe Ordonnees
With Charts("Graph1").Axes(xlValue)
    .HasTitle = True
    .AxisTitle.Text = Worksheets(1).Range("A3") 'ou ="QSDFGH"
End With
End Sub


Bonne suite

Clark...kent · Answer

Bonjour F894009 :)

La méthode de Raymond sur l'autre post me permet effectivement de
nommer plusieurs axes. J'avais déjà tester cette méthode mais en passant par un autre chemin. Seulement, il me laissait une zone vide et conservait les titres d'axes lorsque je masque un des tableaux.

J'ai tout de même ressayer et c'est mon code pour masquer mes lignes qui ne fonctionne plus, bizarre.
Message d'erreur : "Membre de méthode ou de données introuvable"

Sub Masque1_Clic()
Worksheets("Graphique").Select
Rows("4:8").Select
If Selection.EntireRow.Hidden = True Then
Selection.EntireRow.Hidden = False
Else: Selection.EntireRow.Hidden = True
End If
End Sub

Sub Masque2_Clic()
Worksheets("Graphique").Select
Rows("9:13").Select
If Selection.EntireRow.Hidden = True Then
Selection.EntireRow.Hidden = False
Else: Selection.EntireRow.Hidden = True
End If
End Sub

J'ai testé ton code vb, mais ça ne fonctionne pas, peut être est ce du au fait que j'ai plusieurs graphiques dans la même feuille, et qu'il doit identifier sur lequel effectuer ces changements.

PHILOU10120 · Answer

Bonjour

un exemple sans macro commande

https://www.cjoint.com/?3Gfn5vyd1fn

Clark...kent · Answer

Bonjour Philou et merci de ton aide, 

c'est presque ça effectivement, tu as les titres en condition sur des des cellules, mais je les voudrais SUR le graphique car comme je l'ai dit, mon graphique se redimensionne selon si on sélectionne un ou deux tableaux. 

Le lieu ou s'affiche l'un des deux titres (toto ou chuck) est donc la même si il n'y a qu'un tableau d'affiché (en bas au centre) mais est différent si il y a les deux tableau d'affichés et donc les six barres d'histogrammes (a gauche centré sous les 3 premières barres pour toto et à droite centré sous les 3 dernières barres pour Chuck).

Et ce qui m'embête aussi maintenant, c'est que le code vba ne veut plus masquer mes lignes...

Titre des axes sous conditions excel 2007

5 réponses

Discussions similaires