VBA:augmenter la zone de donnee d'un graphe
Résolu
aymenrafik
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
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
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Vba range avec variable ✓ - Forum VB / VBA
