Macro création de graphe suivant les données rentrées
Bonjour,
Je souhaite créer une macro permettant de créer un graphe. Les données de ce graphe commenceront dans la colonne A avec un numéro de ligne à définir et finiront dans la colonne C avec un numéro de ligne à définir.
En fait mon tableau de données comprends des infos pour les 52 semaines de l'année et je veux que le graphe se crée de la semaine 5 à 15 par exemple (je le demanderai dans une boite de dialogue).
Voici mon code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
| Sub Macro2()
Dim CelluleDebut As Range
Dim CelluleFin As Range
Dim Debut As Integer
Dim Fin As Integer
Dim LigneDebut As Integer
Dim LigneFin As Integer
Debut = Range("Tableau!E2")
Fin = Range("Tableau!F2")
Set CelluleDebut = Range("Tableau!A2:A52").Find(Debut, lookat:=xlWhole)
Set CelluleFin = Range("Tableau!A2:A52").Find(Fin, lookat:=xlWhole)
LigneDebut = CelluleDebut.Row
LigneFin = CelluleFin.Row
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Range("Tableau!$A$LigneDebut:$C$LigneFin")
End Sub |
Cependant, pour le moment il ne fonctionne pas, j'ai une erreur 91 à
Code:
LigneDebut = CelluleDebut.Row
Je vous remercie d'avance.
