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 : Sélectionner tout - Visualiser dans une fenêtre à part
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