Creation graphique

[enzo]

bonjour a tous

voici mon probleme

je veux creer des graphiques en prenant des donnees dans un tableau. jusque là cela se passe bien! je n'arrive pas, une fois créé, a mettre en legende le bon libelle. de plus en cas de libelle vide et de valeur 0, la part de camenbert ne se met pas par contre la le gende oui.

j espere avoir ete clair sinon je recommencerai. ci joint ce que j'ai deja fait.

merci beaucoup par avance. et bonjour a tous ceux que je connais meme si cela fait longtemps que je ne suis pas venu. brigitte par ex

 

[enzo]

Re : Creation graphique

bonjour a tous

personne a une idée? je galere

merci

 

[PMO2]

Re : Creation graphique

Bonjour,

Essayez avec votre procédure graphs modifiée

Sub graphs()
Dim plage As Range

For g = Range("g65536").End(xlUp).Row To 2 Step -1
  Set plage = Range("e1:g1," & "E" & g & ":G" & g & "")   '/// modif pmo

'/// ajout pmo
Dim Titre$
Dim i&
  Titre$ = ""
  For i& = 2 To 4 'colonnes B à D
    Titre$ = Titre$ & Range(Cells(g, i&), Cells(g, i&)) & Space(1)
  Next i&
'///

  Charts.Add
  With ActiveChart
    .ChartType = xl3DPieExploded
    .SetSourceData Source:=plage
    .SeriesCollection(1).ApplyDataLabels
    .SeriesCollection(1).DataLabels.Select
    .SeriesCollection(1).Select
     Selection.Explosion = 36
                
'/// ajout pmo
    .HasTitle = True
    .ChartTitle.Characters.Text = Titre$
'///

      With ActiveSheet
        .SeriesCollection(1).DataLabels.Select
         Selection.ShowPercentage = True
         Selection.ShowValue = False
         Selection.Position = xlLabelPositionOutsideEnd
      End With
  End With
      
  Worksheets("toto").Activate
  Call Export_jpeg
  Call delete
Next
End Sub

Cordialement.

PMO

 

[enzo]

Re : Creation graphique

bonjour PMO2, le forum

merci pour cette solution que je vais m'empresser d'essayer. je reviens pour donner le resultat des courses