Mettre les valeur d'un tableau dans un graphique en vba
2 réponses
Amar Lacheheb
Bonjour,
j'ai un graphique sur une feuille excel avec une variable tableau type
MyTab(0 à 10,0 à1)
je voudrais mettre en abssice (Xvalues) : Mytab(0 à 10,0) et en ordonnée
(values) : Mytab(0 à 10,1)
cela est il possible sans mettre les valeurs de mon tableau dans une feuille
excel;
merci d'avance pour votre aide
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
Bonjour. Essaie :
Sub test() Dim tabl(2, 1), tablx(2), tably(2) tabl(0, 0) = 1 tabl(1, 0) = 2 tabl(2, 0) = 3 tabl(0, 1) = 4 tabl(1, 1) = 5 tabl(2, 1) = 6 For i = 0 To 2 tablx(i) = tabl(i, 0) tably(i) = tabl(i, 1) Next i With ActiveSheet.ChartObjects(1).Chart .SeriesCollection.NewSeries .SeriesCollection(1).XValues = tablx .SeriesCollection(1).Values = tably End With End Sub
Cordialement. Daniel "Amar Lacheheb" a écrit dans le message de news: g3ahr2$7vh$
Bonjour, j'ai un graphique sur une feuille excel avec une variable tableau type MyTab(0 à 10,0 à1) je voudrais mettre en abssice (Xvalues) : Mytab(0 à 10,0) et en ordonnée (values) : Mytab(0 à 10,1) cela est il possible sans mettre les valeurs de mon tableau dans une feuille excel; merci d'avance pour votre aide
Bonjour.
Essaie :
Sub test()
Dim tabl(2, 1), tablx(2), tably(2)
tabl(0, 0) = 1
tabl(1, 0) = 2
tabl(2, 0) = 3
tabl(0, 1) = 4
tabl(1, 1) = 5
tabl(2, 1) = 6
For i = 0 To 2
tablx(i) = tabl(i, 0)
tably(i) = tabl(i, 1)
Next i
With ActiveSheet.ChartObjects(1).Chart
.SeriesCollection.NewSeries
.SeriesCollection(1).XValues = tablx
.SeriesCollection(1).Values = tably
End With
End Sub
Cordialement.
Daniel
"Amar Lacheheb" <amar.lacheheb@bipe.fr> a écrit dans le message de news:
g3ahr2$7vh$1@writer.imaginet.fr...
Bonjour,
j'ai un graphique sur une feuille excel avec une variable tableau type
MyTab(0 à 10,0 à1)
je voudrais mettre en abssice (Xvalues) : Mytab(0 à 10,0) et en ordonnée
(values) : Mytab(0 à 10,1)
cela est il possible sans mettre les valeurs de mon tableau dans une
feuille excel;
merci d'avance pour votre aide
Sub test() Dim tabl(2, 1), tablx(2), tably(2) tabl(0, 0) = 1 tabl(1, 0) = 2 tabl(2, 0) = 3 tabl(0, 1) = 4 tabl(1, 1) = 5 tabl(2, 1) = 6 For i = 0 To 2 tablx(i) = tabl(i, 0) tably(i) = tabl(i, 1) Next i With ActiveSheet.ChartObjects(1).Chart .SeriesCollection.NewSeries .SeriesCollection(1).XValues = tablx .SeriesCollection(1).Values = tably End With End Sub
Cordialement. Daniel "Amar Lacheheb" a écrit dans le message de news: g3ahr2$7vh$
Bonjour, j'ai un graphique sur une feuille excel avec une variable tableau type MyTab(0 à 10,0 à1) je voudrais mettre en abssice (Xvalues) : Mytab(0 à 10,0) et en ordonnée (values) : Mytab(0 à 10,1) cela est il possible sans mettre les valeurs de mon tableau dans une feuille excel; merci d'avance pour votre aide
Amar Lacheheb
Merci Bcp "Daniel.C" a écrit dans le message de news:
Bonjour. Essaie :
Sub test() Dim tabl(2, 1), tablx(2), tably(2) tabl(0, 0) = 1 tabl(1, 0) = 2 tabl(2, 0) = 3 tabl(0, 1) = 4 tabl(1, 1) = 5 tabl(2, 1) = 6 For i = 0 To 2 tablx(i) = tabl(i, 0) tably(i) = tabl(i, 1) Next i With ActiveSheet.ChartObjects(1).Chart .SeriesCollection.NewSeries .SeriesCollection(1).XValues = tablx .SeriesCollection(1).Values = tably End With End Sub
Cordialement. Daniel "Amar Lacheheb" a écrit dans le message de news: g3ahr2$7vh$
Bonjour, j'ai un graphique sur une feuille excel avec une variable tableau type MyTab(0 à 10,0 à1) je voudrais mettre en abssice (Xvalues) : Mytab(0 à 10,0) et en ordonnée (values) : Mytab(0 à 10,1) cela est il possible sans mettre les valeurs de mon tableau dans une feuille excel; merci d'avance pour votre aide
Merci Bcp
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
em5Rnpe0IHA.2292@TK2MSFTNGP03.phx.gbl...
Bonjour.
Essaie :
Sub test()
Dim tabl(2, 1), tablx(2), tably(2)
tabl(0, 0) = 1
tabl(1, 0) = 2
tabl(2, 0) = 3
tabl(0, 1) = 4
tabl(1, 1) = 5
tabl(2, 1) = 6
For i = 0 To 2
tablx(i) = tabl(i, 0)
tably(i) = tabl(i, 1)
Next i
With ActiveSheet.ChartObjects(1).Chart
.SeriesCollection.NewSeries
.SeriesCollection(1).XValues = tablx
.SeriesCollection(1).Values = tably
End With
End Sub
Cordialement.
Daniel
"Amar Lacheheb" <amar.lacheheb@bipe.fr> a écrit dans le message de news:
g3ahr2$7vh$1@writer.imaginet.fr...
Bonjour,
j'ai un graphique sur une feuille excel avec une variable tableau type
MyTab(0 à 10,0 à1)
je voudrais mettre en abssice (Xvalues) : Mytab(0 à 10,0) et en ordonnée
(values) : Mytab(0 à 10,1)
cela est il possible sans mettre les valeurs de mon tableau dans une
feuille excel;
merci d'avance pour votre aide
Merci Bcp "Daniel.C" a écrit dans le message de news:
Bonjour. Essaie :
Sub test() Dim tabl(2, 1), tablx(2), tably(2) tabl(0, 0) = 1 tabl(1, 0) = 2 tabl(2, 0) = 3 tabl(0, 1) = 4 tabl(1, 1) = 5 tabl(2, 1) = 6 For i = 0 To 2 tablx(i) = tabl(i, 0) tably(i) = tabl(i, 1) Next i With ActiveSheet.ChartObjects(1).Chart .SeriesCollection.NewSeries .SeriesCollection(1).XValues = tablx .SeriesCollection(1).Values = tably End With End Sub
Cordialement. Daniel "Amar Lacheheb" a écrit dans le message de news: g3ahr2$7vh$
Bonjour, j'ai un graphique sur une feuille excel avec une variable tableau type MyTab(0 à 10,0 à1) je voudrais mettre en abssice (Xvalues) : Mytab(0 à 10,0) et en ordonnée (values) : Mytab(0 à 10,1) cela est il possible sans mettre les valeurs de mon tableau dans une feuille excel; merci d'avance pour votre aide