Etiquette de données

[Pierrot97]

Bonjour,


Je cherche une macro mais sans succès, qui permet d'ajouter automatiquement les étiquettes de donnée pour un graphique en forme de camembert.

Merci de d'avance pour la personne qui pourra me donner la solution ou même une piste.

 

[MichD]

Re : Etiquette de données

Bonjour,

Pour les étiquettes d'un graphe camembert :

'--------------------------------------------------
Sub Étiquettes_Graphe_Camembert()

Dim Compteur As Integer, XLabel As String
Application.ScreenUpdating = False

'Nom de la feuille et nom du graphe à adapter
With Worksheets("Feuil1").ChartObjects("Chart 7").Chart
XLabel = .SeriesCollection(1).Formula
XLabel = Mid(XLabel, InStr(InStr(XLabel, ","), XLabel, _
Mid(Left(XLabel, InStr(XLabel, "!") - 1), 9)))

XLabel = Left(XLabel, InStr(InStr(XLabel, "!"), XLabel, ",") - 1)
XLabel = Application.Substitute(Mid(XLabel, 2), ",", "")

For Compteur = 1 To Range(XLabel).Cells.Count
.SeriesCollection(1).Points(Compteur).HasDataLabel = True
.SeriesCollection(1).Points(Compteur).DataLabel.Text = _
Range(XLabel).Cells(Compteur, 1).Value
Next
End With
End Sub
'--------------------------------------------------

 

[Pierrot97]

Re : Etiquette de données

Désolé du retard pour répondre mais cette macro il faut la placer où ?
Dans le graphique ou dans le tableau ?

 

[MichD]

Re : Etiquette de données

Tu ouvres la fenêtre de l'éditeur de code : Raccourci Alt + F11
Tu insères un module / barre des menus / insertion / module
Tu copies la macro dans la page blanche.

Ne pas oublier d'adapter le nom de la feuille et le nom du graphe dans la procédure
With Worksheets("Feuil1").ChartObjects("Chart 7").Chart


Et si tu veux apprendre à faire des macros, un bon livre sur le sujet est "essentiel"
regarde les livres publiés par John Walkenbach -> ses livres ont une version française.

 

[Misange]

Re : Etiquette de données

Désolé du retard pour répondre mais cette macro il faut la placer où ?
Dans le graphique ou dans le tableau ?

Bonjour (salut MichD 🙂 )
un peu de lecture (en particulier le chapitre "utiliser un code") te sera utile. J'abonde dans le sens de MichD, un bon bouquin c'est bien et les J. Walkenbach sont top

• Ce lien n'existe plus
• Ce lien n'existe plus
• Ce lien n'existe plus
• Ce lien n'existe plus
• Ce lien n'existe plus
• Ce lien n'existe plus
• Ce lien n'existe plus
• Ce lien n'existe plus
• Ce lien n'existe plus
• Ce lien n'existe plus
• Ce lien n'existe plus
• Ce lien n'existe plus
• Ce lien n'existe plus

 

[Pierrot97]

Re : Etiquette de données

Merci pour les liens Misange.
Et merci pour l'explication MichD mais toujours est-il que j'ai suivi ta macro en changeant le nom de feuille et le nom du graph mais ça ne passe pas...Il me dit: " L'élément portant ce nom est introuvable."'
J'ai vérifié et re-vérifié pour moi les noms sont correct.
Quelqu'un a une idée ?

 

[MichD]

Re : Etiquette de données

Tu mets le curseur entre la première ligne de déclaration de la procédure et
le End Sub et tu appuies sur la touche F8 et cela va te permettre d'exécuter
la macro pas à pas c'est-à-dire lire et exécuter une ligne à la fois la macro.

Comme cela, tu pourras voir quelle est la ligne de code qui bloque et tu
pourras nous la communiquer.

Est-ce possible de publier seulement la plage de donnée et ton graphe?

 

[Pierrot97]

Re : Etiquette de données

Alors le blocage se fait à la ligne With Worksheets("feuil1").ChartObjects("graph1").Chart.
Je met le document excel en PF.

 

[MichD]

Re : Etiquette de données

Voici ton fichier. Il y a quand même une différence entre un graphe dans une feuille et une feuille graphique!

 

[Modeste geedee]

Re : Etiquette de données

Bonsour®

Et si tu veux apprendre à faire des macros, un bon livre sur le sujet est "essentiel"
regarde les livres publiés par John Walkenbach -> ses livres ont une version française

😱
personnellement j'ai un petit faible pour l'original en langue anglaise
#ATTACH=CONFIG#229447#/ATTACH#😎Regarde la pièce jointe 854444

 

[MichD]

Re : Etiquette de données

Bonjour,

L'image sauf erreur fait référence à ce volume (version anglaise) pour ceux qui voudraient s'y retrouver
Il doit exister en français.
'---------------------------------
Excel Charts
Published by
Wiley Publishing, Inc.
10475 Crosspoint Boulevard
Indianapolis, IN 46256
Wiley: Journals, books, and online products and services
Copyright © 2003 by Wiley Publishing, Inc., Indianapolis, Indiana
Published simultaneously in Canada
Library of Congress Control Number: 2002110312
ISBN: 0-7645-1764-3
'---------------------------------

La section "VBA et Graphe" n'est pas très développée et elle est décevante pour ceux que la chose
intéresse, puisqu'il n'y consacre qu'un chapitre (16).
J'y ai jeté un œil rapidement et je n'ai rien vu qui ressemblait à ce que j'ai publié. Comme tu as
vu cette procédure dans ce bouquin, j'apprécierais si tu pouvais me donner le chapitre, voir la page
où tu l'as vu. Cela m'a peut-être échappé. C'est sûrement accompagné d'informations que j'aimerais
lire. On est sérieux ici, on ne peut pas seulement se contenter de publier la page couverture d'un
bouquin et d'y faire toutes sortes d'affirmations. ;-))

Afin d'assouvir ta curiosité, j'ai retrouvé l'endroit à partir duquel j'avais archivé ce code, il y a déjà
un moment.

How to use a VBA macro to add labels to data points in an XY (scatter) chart or in a bubble chart in Excel 2007

Le code original :

-------------------------------------------------

Sub AttachLabelsToPoints()

'Dimension variables.
Dim Counter As Integer, ChartName As String, xVals As String

' Disable screen updating while the subroutine is run.
Application.ScreenUpdating = False

'Store the formula for the first series in "xVals".
xVals = ActiveChart.SeriesCollection(1).Formula

'Extract the range for the data from xVals.
xVals = Mid(xVals, InStr(InStr(xVals, ","), xVals, _
Mid(Left(xVals, InStr(xVals, "!") - 1), 9)))
xVals = Left(xVals, InStr(InStr(xVals, "!"), xVals, ",") - 1)
Do While Left(xVals, 1) = ","
xVals = Mid(xVals, 2)
Loop

'Attach a label to each data point in the chart.
For Counter = 1 To Range(xVals).Cells.Count
ActiveChart.SeriesCollection(1).Points(Counter).HasDataLabel = _
True
ActiveChart.SeriesCollection(1).Points(Counter).DataLabel.Text = _
Range(xVals).Cells(Counter, 1).Offset(0, -1).Value
Next Counter

End Sub
'--------------------------------------------------

Il ne reste plus qu'à l'adapter! Le copier-coller n'est pas suffisant!

 

[Misange]

Re : Etiquette de données

Modeste GeeDee est gentiment remercié par John Walkenbach dans ce bouquin 🙂

 

[Modeste geedee]

Re : Etiquette de données

Bonsour®

Pas que...
notre ami canadien "Garnote" également 😎

il y eut plusieurs échanges épistolaires quand l'homme de Tucson fréquentait encore les newsgroups.

Seul dans ce bouquin l'interactivité et animations de Hypocycloids.xls ont été retenus.

mais il y eut aussi :
un "pong" automatique.
l'animation et sonorisation de “Guitar Scales and modes”
que l'on peut retrouver là :

ainsi qu'un VirtualDrummer resté sans écho

😎 ma modestie est bien écornée...

 

[MichD]

Re : Etiquette de données

Bonjour Misange,

| Modeste GeeDee est gentiment remercié par John Walkenbach dans ce bouquin

Était-ce le propos de son message initial sur ce fil?

 

[MichD]

Re : Etiquette de données

As-tu lu le bouquin au-delà des "acknowledgements"?

Et pour ceux qui n'auraient pas eu l'occasion de lire le bouquin, voici le paragraphe où
M. Walkenbach mentionne l'illustre contributeur Modeste (GeeDee) dans les
acknowledgements de son livre.

'-------------------------------------------------------------------------------------------------------
Many folks throughout the world have sent me charting examples. Although
there wasn’t room for most of them, many of the general ideas were incorporated
into my examples. I send a special thanks to the following: Fernando Cinquegrani,
John Crane, Modeste (GeeDee), Thierry Fahmy, Serge Garneau, Steve
Kearley, Gary Klass, Bill Koran, Linda Mabree, Ken Mahrer, Joan Maslin, Sanjay S.
Mundkur, Michael O’Callaghan, and Tony Sleigh.
'-------------------------------------------------------------------------------------------------------

Sur demande, il se fera un plaisir de vous faire parvenir la traduction française de ce paragraphe ainsi que son autographe!

;-))))))))))))))))))