Bonsoir Guillaume,
Guillaume Durieux a écrit :
Bonjour francois,
peux tu m'en dire un peu plus sur ta macro. En effet je ne maitrise pas trop ce
genre d'outils.
L'idéal pour moi serait meme que tu écrive la macro car je vais y passer deux
heures.
Heu ... les intervenants sur ces listes ne sont pas là pour çà !
J'ose donc te demander cela !!
Ma feuille sur laquelle se trouve la cellule a repiquer se nommme "résultats
tableaux" et la cellule contenant l'info est la C10. La feuille sur laquelle se
trouve le graphique s'appelle "graphiques".
Je voudrais que le titre se présente sous cette forme : Résultats de la vitesse
pour 'contenu de la cellule'.
Je vais regarder de plus près le contenu de ta macro et voir ce que je peux en
faire,
mais si tu as qqs minutes a m'accorder ca m'aiderait beaucoup.
Comme la macro précédemment présentée de s'applique pas exactement
(telle qu'elle) à ton besoin, et ne souhaitant pas laisser dans
l'embarra un utilisateur débutant, voici une proposition que j'espère
assez claire et compréhensible :
Sub RenameChartTitle
Dim oSheetSrc 'Feuille source (les données)
Dim oSheetDst 'Feuille destination (le graphique)
Dim oChart 'Le graphique
Dim oTitle 'Le titre du graph
'référence la feuille par son nom
oSheetSrc = ThisComponent.getSheets().getByName("résultats tableaux")
'référence la feuille par son nom
oSheetDst = ThisComponent.getSheets().getByName("graphiques")
'référence le graphique par son index
'[*** On admet ici qu'il n'y a qu'un seul graph ***]
oChart = oSheetDst.getCharts().getByIndex(0)
'référence le titre du graph
oTitle = oChart.getEmbeddedObject.getTitle()
'on affecte au titre le texte souhaité + le contenu de la cellule C10
oTitle.String = "Résultats de la vitesse pour " &
oSheetSrc.getCellRangeByName("C10").String
'on attribue une couleur de caractère au titre
oTitle.CharColor = rgb(155,123,100)
End Sub
Cet exemple pourrait valablement être complété de certains contrôles
dont notamment la présente du graphique.
Tu pourras visualiser l'exemple et récupérer la macro dans le fichier
ci-joint : http://www.cijoint.fr/cij8731679892814.ods
Merci bien,
Guillaume Durieux
Bonne chance.
PS :
1°) pour toute question relative aux macros je t'invite à poster sur la
liste prog@fr.openoffice.org
2°) pour un bon apprentissage des macros je te recommande vivement
l'excellent ouvrage de Bernard Marcelly et Laurent Godard :
http://www.eyrolles.com/Informatique/Livre/9782212117639/livre-programmation-openoffice-org-2.php
... en plus tu feras une B.A. ;)
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]