Faire un graphique (a partir de tableau)?
Je suis perdu, je suis debutant en vba et je ne comprends pas tres bien les graphiques.
Je m'explique j'emploi le code trouver dans le FAQ, pour creer un graphique au depart de deux tableaux dynamiques. Mais lorsque j'attribue des valeurs autes que numeriques a un des tableaux, une erreure arrive pourquoi ??
Voici le 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
26
27
28
29
30
31
32
33
34
35
| Sub creationGraphiqueParTableau()
Dim i As Byte
Dim Tableau(7) As Variant, Tableau2(7) As Integer
'Création du tableau pour les Abscisses
Tableau(1) = "fs"
Tableau(2) = "htrhr"
Tableau(3) = "dwrqrqr"
Tableau(4) = "bnb"
Tableau(5) = "papa"
Tableau(6) = "mlo"
Tableau(7) = "ecare"
'Création d'un tableau pour les Ordonnées
For i = 1 To 7 'Le tableau est rempli par des valeurs aléatoires pour
'cet exemple
Tableau2(i) = Int((50 * Rnd) + 1)
Next i
'Création graphique
Charts.Add
'Définit la localisation du graphique:
'dans la feuille de calcul Feuil1 pour cet exemple
ActiveChart.Location _
Where:=xlLocationAsObject, Name:="sheet1"
'Ajoute une série dans le graphique
With ActiveChart
.SeriesCollection.NewSeries
.SeriesCollection(1).XValues = Tableau() 'Abscisses
.SeriesCollection(1).Values = Tableau2() 'Ordonnées
End With
End Sub |
Merci d'avance pour votre aide. Sinon quelle est la methode la plus facile pour creer un graphique simple sur base de deux tableaux?? voici mes tableau ( a titre indicatif):
dim x(4), y(4) as variant
x(1)="sport"
x(2)="golf"
x(3)="peche"
x(4)="chasse"
y(1)= 23
y(2)=21
y(3)=12
y(4)=11
