VBA:augmenter la zone de donnee d'un graphe
Résolu
aymenrafik
-
michel_m Messages postés 18903 Statut Contributeur -
michel_m Messages postés 18903 Statut Contributeur -
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
A voir également:
- VBA:augmenter la zone de donnee d'un graphe
- Excel compter cellule couleur sans vba - Guide
- Dépassement de capacité vba ✓ - Forum Excel
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Vba range avec variable ✓ - Forum VB / VBA
