|
|
|
|
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
Configuration: Windows XP Firefox 3.5.3
Ajouter donnée excel liste déroulante vba Ajouter donnée feuille excel liste déroulante vba Augmenter graphique intel Augmenter ventilateur carte graphique Augmenter zone de swap Carte graphique pc portable grillée données Client graphique linux bases de donnees Comment augmenter la carte graphique intégrée Donner plus de memoire a une carte graphique partage Dpkg: la zone de la base de données d'état est verrouillée par un autre processus Excel vba graphique Faire un graphique sous excel à partir de données La zone donné à un appel systeme insuffisant Une seule colonne des données est prise en compte dans le graphe sur excel Vba copier les données d un hyperlink Vba créer graphique Vba definir zone d'impression Vba initialiser une zone de liste access
