Discussion :

[Mr_JF]

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

[SilkyRoad]

bonsoir

une erreure arrive pourquoi ??

quelle erreur? la procédure fonctionne sans problème chez moi


michel

[Mr_JF]

Merci de ta reponse pourtant une erreure se produit belle et bien

runtime error '1004':
application-Defined or object-defined error

Je viens encore d'essayer et la meme erreure se produit alors aue si je remplace les lettres du tableau par des nombres ca fonctionne!

JE suis perdu...