VBA:augmenter la zone de donnee d'un graphe
Résolu
Bonjour,
j'essaye de faire augmenter la zone de donnée d'un graphe automatiquement en fonction du mois lors de l'execution de la macro
j'ai essayée ceci mais sans resultat:
Sub Macro1()
Dim D As Date
Dim R As Integer
Dim L As String
D = Date
R = DatePart("m", D)
R = R - 1
Select Case R
Case 1
L = C8
Case 2
L = D8
Case 3
L = E8
Case 4
L = F8
Case 5
L = G8
Case 6
L = H8
Case 7
L = I8
Case 8
L = J8
Case 9
L = K8
Case 10
L = L8
Case 11
L = M8
Case 12
L = N8
End Select
'test=14
Worksheets("Telephonie").Select
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.ChartArea.Select
ActiveChart.SetSourceData Source:=Sheets("Telephonie").Range("B3:" & L), _
PlotBy:=xlRows
End Sub
cette requete mr envoie un code erreur.
Merci d'avance
j'essaye de faire augmenter la zone de donnée d'un graphe automatiquement en fonction du mois lors de l'execution de la macro
j'ai essayée ceci mais sans resultat:
Sub Macro1()
Dim D As Date
Dim R As Integer
Dim L As String
D = Date
R = DatePart("m", D)
R = R - 1
Select Case R
Case 1
L = C8
Case 2
L = D8
Case 3
L = E8
Case 4
L = F8
Case 5
L = G8
Case 6
L = H8
Case 7
L = I8
Case 8
L = J8
Case 9
L = K8
Case 10
L = L8
Case 11
L = M8
Case 12
L = N8
End Select
'test=14
Worksheets("Telephonie").Select
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.ChartArea.Select
ActiveChart.SetSourceData Source:=Sheets("Telephonie").Range("B3:" & L), _
PlotBy:=xlRows
End Sub
cette requete mr envoie un code erreur.
Merci d'avance
Configuration: Windows XP Firefox 3.5.3
