Création graphique Excel

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 legende oui.

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

merci beaucoup par avance

Rémy

Bonjour, et bienvenue sur le forum

Désolé pour ta pièce jointe mais il est vrai qu'il n'est pas permis de joindre une PJ au premier message.

Pour relancer ton post, pourrais-tu mettre le code qui te permet de créer le graphique, ce qui nous permettrais de t'aider.

Bonjour et milles excuses pour le non respect de la charte

je vais donc essayer de m'exprimer clairement avec mon code

les donnees de depart sont sous forme de colonnes (6). les trois premieres donnent le nom d'un produit. les trois dernieres donnent des montants.
le nombre de lignes peut varier.(d'ou ma boucle)

1. je veux creer un graphique en secteur 3d reprenant les trois valeurs avec les les trois legendes. normalement ca c'est bon a l'exception des legendes qui m'affichent "1,2,3". le deuxieme probleme reside, sur cette partie, dans le fait que quand une des cellules "montant" est a zero. le code n'affiche pas la part correspondante du secteur mais affiche une legende. (pour moi, pas logique)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Dim plage As Range Dim Nbre_Graphe As Byte   For g = Range("g65536").End(xlUp).Row To 1 Step -1   Set plage = Range("B" & g, "G" & g) Charts.Add With ActiveChart .ChartType = xl3DPieExploded .SetSourceData Source:=plage .SeriesCollection(1).ApplyDataLabels .SeriesCollection(1).DataLabels.Select .SeriesCollection(1).Select Selection.Explosion = 36   With ActiveSheet .SeriesCollection(1).DataLabels.Select Selection.ShowPercentage = True Selection.ShowValue = False Selection.Position = xlLabelPositionOutsideEnd   End With     End With   Next End Sub

---

la suite de mon code, une fois le secteur terminé, exporte le graph en jpg
Code Visual Basic :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub Export_jpeg() ' Archive les graphiques du classeur au format gif Dim F_file As String, ficG As String Dim graph As Chart, wbk As Workbook   ' Variables Set wbk = ThisWorkbook F_file = "jpeg" ' Desactive le rafraichissement d'écran Application.ScreenUpdating = False   ' Exporte les feuilles graphiques For Each Shapes In Worksheet 'wbk.Charts ficG = wbk.Path & "\" & graph.Name & "." & F_file graph.Export Filename:=ficG, FilterName:="jpeg" Next Shapes

---

là sur l'export, pas de souci si ce n'est que je n'ai pas trouvé le moyen de redimentionner le graph avant l'export!

la fin du code supprime le graph avant d'en creer un autre
Code Visual Basic :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub delete() Dim Compteur As Integer, toto As String Application.DisplayAlerts = False For Compteur = Worksheets.Count To 1 Step -1 toto = Sheets(Compteur).Name Select Case Nom Case "feui12", "feui14", "rangement", "total"   Case Else Sheets(Compteur).delete End Select Next Compteur Application.DisplayAlerts = True End Sub

---

Merci d'avance

Rémy