1 réponse
Zoul67
Messages postés
1959
Date d'inscription
lundi 3 mai 2010
Statut
Membre
Dernière intervention
30 janvier 2023
149
24 août 2015 à 12:14
24 août 2015 à 12:14
Bonjour,
Avoir un Graphique qui s'appelle Graphique 1 et ses données associées plageGraphique2, ça commençait mal...
Une proposition :
A+
Avoir un Graphique qui s'appelle Graphique 1 et ses données associées plageGraphique2, ça commençait mal...
Une proposition :
Sub GraphiqueAires() Sheets("GraphiqueParFournisseur").Activate For Each g In ActiveSheet.ChartObjects g.Delete Next g Application.ScreenUpdating = False k = 0 Dercol = [IV1].End(xlToLeft).Column While Cells(2 + k * 8, 1).Value <> "" Set plageC = Union(Range(Cells(2 + 8 * k, 1), Cells(4 + 8 * k, Dercol)), Range(Cells(6 + 8 * k, 1), Cells(6 + 8 * k, Dercol))) Dim c As ChartObject Set c = ActiveSheet.ChartObjects.Add(10, 20, 200, 200) With c.Chart .SetSourceData Source:=plageC 'Range("A2:AW4,A6:AW6") .ChartType = xlArea .SeriesCollection(1).Select .ChartStyle = 2 .SeriesCollection(2).Select .ChartStyle = 2 .SeriesCollection(3).ChartType = xlLine End With ' Couleurs With ActiveChart.SeriesCollection(1) .Interior.Color = RGB(255, 160, 47) End With With ActiveChart.SeriesCollection(2) .Interior.Color = RGB(254, 88, 21) End With With ActiveChart.SeriesCollection(3) .Border.Color = RGB(80, 158, 47) End With k = k + 1 Wend End Sub
A+
24 août 2015 à 13:06
oui je sais, j'avais ce code pour un autre graphique unique. Je sais bien que ca ne peut pas fonctionner avec plageGraphique2 et graphique1 en nom. Je voulais juste de l'aide et un bout de code qui ressemblait un peu à ce que j'avais.
En tout cas c'est exactement ça que je recherchais. Merci beaucoup.
Bonne journée!
24 août 2015 à 13:09
Est ce que c'est possible de les placer les uns en dessous des autres, avec la même taille?
Et est ce que c'est possible de nommer mes graphique en fonctions du nom du fournisseur? Par exemple pour mon premier tableau le fournisseur c'est : GFI INFORMATIQUE dans la cellule A2. Est ce que c'est possible que mon graphique de ce tableau se nomme "GFI INFORMATIQUE"?
Merci d'avance, bonne journée!
24 août 2015 à 13:20
https://docs.microsoft.com/en-us/office/vba/api/Excel.ChartObjects.Add en utilisant k pour faire varier la position du graphique
Et oui.
https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa173287(v=office.11)?redirectedfrom=MSDN
24 août 2015 à 13:33
Bonne journée.