Bonjour,
J'ai recuperer un bout de code ( ci joint ) que j'ai adapté a mon projet, il determine la derniere ligne d'une plage de donné et ainsi me creer un graphique en fonction.
Je fais demarrer la plage a partir de la cellule 2 cela ne change jamais.
J'aimerais sur ce modele realiser un autre graphique en definissant cette fois la premiere ligne et la derniere ligne de ma plage de donnée mais je n'y arrive pas.
La premiere ligne du Graphique serai defini par = "transporteur 1" premiere valeur qu'il rencontre dans la colonne.
Pour la derniere ligne cela serai = "On time" dans la colonne C + "transporteur 1 " dans la colonne B
Si vous avez une idée ça serai cool.
Dim Name As String
Dim Colone As Integer
Dim Derniere_Ligne As Integer
Dim selection As String
Dim graph As Object
Application.ScreenUpdating = False
ActiveWorkbook.Worksheets("NetPerf_Global").Activate
Derniere_Ligne = 9
If Cells(9, 2) = "On Time" Then
Derniere_Ligne = 8
ElseIf Cells(8, 2) = "On Time" Then
Derniere_Ligne = 7
ElseIf Cells(7, 2) = "On Time" Then
Derniere_Ligne = 6
ElseIf Cells(6, 2) = "On Time" Then
Derniere_Ligne = 5
ElseIf Cells(5, 2) = "On Time" Then
Derniere_Ligne = 4
ElseIf Cells(4, 2) = "On Time" Then
Derniere_Ligne = 3
ElseIf Cells(3, 2) = "On Time" Then
Derniere_Ligne = 2
End If
Range(Cells(2, 2), Cells(Derniere_Ligne, 3)).Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range(Cells(2, 2), Cells(Derniere_Ligne, 3))
ActiveChart.ChartType = xl3DPieExploded
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ApplyLayout (6)
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartTitle.Select
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartTitle.Text = "Accountability"
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartArea.Select
Merci d'avance
J'ai recuperer un bout de code ( ci joint ) que j'ai adapté a mon projet, il determine la derniere ligne d'une plage de donné et ainsi me creer un graphique en fonction.
Je fais demarrer la plage a partir de la cellule 2 cela ne change jamais.
J'aimerais sur ce modele realiser un autre graphique en definissant cette fois la premiere ligne et la derniere ligne de ma plage de donnée mais je n'y arrive pas.
La premiere ligne du Graphique serai defini par = "transporteur 1" premiere valeur qu'il rencontre dans la colonne.
Pour la derniere ligne cela serai = "On time" dans la colonne C + "transporteur 1 " dans la colonne B
Si vous avez une idée ça serai cool.
Dim Name As String
Dim Colone As Integer
Dim Derniere_Ligne As Integer
Dim selection As String
Dim graph As Object
Application.ScreenUpdating = False
ActiveWorkbook.Worksheets("NetPerf_Global").Activate
Derniere_Ligne = 9
If Cells(9, 2) = "On Time" Then
Derniere_Ligne = 8
ElseIf Cells(8, 2) = "On Time" Then
Derniere_Ligne = 7
ElseIf Cells(7, 2) = "On Time" Then
Derniere_Ligne = 6
ElseIf Cells(6, 2) = "On Time" Then
Derniere_Ligne = 5
ElseIf Cells(5, 2) = "On Time" Then
Derniere_Ligne = 4
ElseIf Cells(4, 2) = "On Time" Then
Derniere_Ligne = 3
ElseIf Cells(3, 2) = "On Time" Then
Derniere_Ligne = 2
End If
Range(Cells(2, 2), Cells(Derniere_Ligne, 3)).Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range(Cells(2, 2), Cells(Derniere_Ligne, 3))
ActiveChart.ChartType = xl3DPieExploded
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ApplyLayout (6)
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartTitle.Select
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartTitle.Text = "Accountability"
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartArea.Select
Merci d'avance