Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Je vous le jure, j'ai cherché partout et nez rien vu venir !

Je vous le jure, j'ai cherché partout et nez rien vu venir !

19 réponses
Avatar
garnote
Bonjour tout le monde,

Toujours plongé dans mes obsessions graphiques,
j'utilise cette macro pour «passer» des valeurs
à un nuage de points en utilisant Array (pas Potter!).

Sub PasserPetitNombreDeValeurs()
With ActiveChart.SeriesCollection(1)
.XValues = Array(1, 2, 3, 4, 5)
.Values = Array(1, 4, 9, 16, 25)
End With
End Sub

Tout ça, c'est formidable; mais ...
si je veux «passer» des milliers de valeurs,
comment faire pour définir mon Array pas Potter, Hein ! ?

Ma pauvre tentative :

Sub PasserUneTonneDeValeurs()
Dim X(1 to 32000) As Double
Dim Y(1 to 32000) As Double
For vx = -1 To 1 Step 0.01
i = i + 1
X(i) = vx
Y(i) = vx ^ 2
Next vx
With ActiveChart.SeriesCollection(1)
' Et c'est ici que mes bas me blessent !!!
.XValues = X
.Values = Y
End With
End Sub


Merci bien de vous pencher sur ma quête,

Serge, le quêteux !
Signaler un problème avec ce contenu

9 réponses

Supprimer
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
1 2
Avatar
isabelle
salut Serge,

je n'arrive pas à le faire directement avec .XValues = X et .Values = Y
mais cela fonctionne correctement lorsque que c'est égal à une plage de
cellule.

Sub ConstruireGraphe()
Dim Tableau(1 To 401, 1 To 2) As Single
Dim I As Integer
Dim J As Integer
Dim x
ici = ActiveSheet.Name
For I = 1 To 401
For J = 1 To 2
If J = 1 Then
Tableau(I, J) = -2 + x
Else:
Tableau(I, J) = (-2 + x) ^ 2
End If
Next
x = x + 0.01
Next
Range("A1:B401").Value = Tableau
Charts.Add
With ActiveChart
.ChartType = xlXYScatter
.Location Where:=xlLocationAsObject, Name:=ici
End With
Set ns = ActiveChart.SeriesCollection.NewSeries
With ns
.XValues = Range("A1:A401")
.Values = Range("B1:B401")
End With
End Sub

isabelle


Bonsoir Isabelle et tous les autres,

Mais où est donc mon erreur là-dedans ?
Commence à en avoir marre !!!

Sub ConstruireGraphe()
Application.ScreenUpdating = False
ici = ActiveSheet.Name
Dim X(1 To 32000) As Double
Dim Y(1 To 32000) As Double
For vx = -2 To 2 Step 0.01
i = i + 1
X(i) = vx
Y(i) = vx ^ 2
Next vx
Charts.Add
With ActiveChart
.ChartType = xlXYScatter
.Location Where:=xlLocationAsObject, Name:=ici
End With
Set ns = ActiveChart.SeriesCollection.NewSeries
With ns
' Problème, gros problème :
.XValues = X
.Values = Y
End With
Application.ScreenUpdating = True
End Sub

;-(((

Serge

"isabelle" a écrit dans le message de news:

parce que cela aurait été normal que ça bug sur xl97,
mais là je voie pas, je vais devoir tester
pour les photos, y en a pas beaucoup, mais elles sont tous là

http://www.wistiti.fr/AlbumsPerso/Visualisation.asp?DI=MP3sOBTKF011020&nombr

e=3&first=true
Identifiant : MPFEmontréal
Mot de passe personnel : zaza

isabelle



Bonjour Isabelle,

Non, sur Office 2000. Pourquoi ?
Et les photos du souper que j'ai raté ???

Serge

"isabelle" a écrit dans le message de
news:



salut Serge,

est ce que tu travaille sur xl97 ?

isabelle


Bonjour tout le monde,

Toujours plongé dans mes obsessions graphiques,
j'utilise cette macro pour «passer» des valeurs
à un nuage de points en utilisant Array (pas Potter!).

Sub PasserPetitNombreDeValeurs()
With ActiveChart.SeriesCollection(1)
.XValues = Array(1, 2, 3, 4, 5)
.Values = Array(1, 4, 9, 16, 25)
End With
End Sub

Tout ça, c'est formidable; mais ...
si je veux «passer» des milliers de valeurs,
comment faire pour définir mon Array pas Potter, Hein ! ?

Ma pauvre tentative :

Sub PasserUneTonneDeValeurs()
Dim X(1 to 32000) As Double
Dim Y(1 to 32000) As Double
For vx = -1 To 1 Step 0.01
i = i + 1
X(i) = vx
Y(i) = vx ^ 2
Next vx
With ActiveChart.SeriesCollection(1)
' Et c'est ici que mes bas me blessent !!!
.XValues = X
.Values = Y
End With
End Sub

Merci bien de vous pencher sur ma quête,

Serge, le quêteux !










Avatar
Sitting Hoax \(BM\)
Ne voulant pas créer de polémique avec Jean Paul,
ni tirer la couverture par devers moi ;-)
je me permets de signaler que la fameuse bouteille,
vous pourrez le vérifier sur la photo , la bouteille que Jean Paul,
encore un, (ils m'ont l'air tous portés sur la chose ceux qui ont ce
prénom;-), tient en main
http://www.wistiti.fr/AlbumsPerso/carte/email1.asp?alb=MP3sOBTKF0110201&DI=MP3sOBTKF011020&Img=MP3sOBTKF0D01102003202213393216.jpg
n'est pas une bouteille de beaujolais,
mais une bouteille de côtes de Provence,
Château Calissanne, près de Aix en Provence
(on ne voit pas bien l'étiquette, mais la forme suffit)
offerte par ...mes soins pour nos amis canadiens.
Et Jean Paul, tellement habitué aux remerciements de toutes sortes,
il en replit des DD entiers,
n'avait pas relevé ; et il était témoin pourtant;
que j'avais confié à Gaëtant le soin de vous la faire goûter.
Il est vrai que JPS lui en avait aussi donné une,
( que Gaëtant a sans doute dû
siffler dans l'avion)
il n'est pas avare sur ce point, je peux le'assurer;-),
mais ce n'était pas celle là.
Confirmation de Gaëtant ?
C'était juste pour venger un peu Philippe, que JPS
ne loupe jamais quand il s'agit de rectifier une vérité.
Et un scud de temps en temps comme un petit verre (sans abus)
ne fait jamais de mal ;-))
Bises à toutes
Amicalement
Sitting Hoax


"isabelle" a écrit dans le message de
news:
ban shur, y en a pas beaucoup, mais elles sont tous là

http://www.wistiti.fr/AlbumsPerso/Visualisation.asp?DI=MP3sOBTKF011020&nombre=3&first=true

Identifiant : MPFEmontréal
Mot de passe personnel : zaza
bisou
isabelle


coucou Isabelle
tu m'envoies l'adresse des photos de votre diner avec les bons
login/mots de


passe ?
;-))
Bisou

--
Misange http://www.excelabo.net
Attention disciplus a déménagé ! mettez vos favoris à jour

"isabelle" a écrit dans le message de
news:
salut Serge,

est ce que tu travaille sur xl97 ?

isabelle


Bonjour tout le monde,

Toujours plongé dans mes obsessions graphiques,
j'utilise cette macro pour «passer» des valeurs
à un nuage de points en utilisant Array (pas Potter!).

Sub PasserPetitNombreDeValeurs()
With ActiveChart.SeriesCollection(1)
.XValues = Array(1, 2, 3, 4, 5)
.Values = Array(1, 4, 9, 16, 25)
End With
End Sub

Tout ça, c'est formidable; mais ...
si je veux «passer» des milliers de valeurs,
comment faire pour définir mon Array pas Potter, Hein ! ?

Ma pauvre tentative :

Sub PasserUneTonneDeValeurs()
Dim X(1 to 32000) As Double
Dim Y(1 to 32000) As Double
For vx = -1 To 1 Step 0.01
i = i + 1
X(i) = vx
Y(i) = vx ^ 2
Next vx
With ActiveChart.SeriesCollection(1)
' Et c'est ici que mes bas me blessent !!!
.XValues = X
.Values = Y
End With
End Sub

Merci bien de vous pencher sur ma quête,

Serge, le quêteux !








Avatar
garnote
Bonjour isabelle,

et merci.

je n'arrive pas à le faire directement avec .XValues = X et .Values = Y
mais cela fonctionne correctement lorsque que c'est égal à une plage de
cellule.
C'est justement ce que je voulais éviter !

Je veux donner mes valeurs par tableaux, pas autrement !!!
Je continue à chercher.

xxx

Serge

Avatar
isabelle
nouvelle approche, mais y a quand même des problèmes le TableauB ne
s'incrit pas et il n'y a pas de message d'erreur, et au delà de 31 items
j'obtient le message "Mémoire insufisante" pour 256Meg de ram

Sub ConstruireGraphe2()
Dim I As Integer
Dim x
Dim Tableau(1 To 1, 1 To 1) As Variant
ici = ActiveSheet.Name
TableauA = -2 & ", "
TableauB = -2 ^ 2 & ", "
x = 0.01
For I = 1 To 31
If I < 31 Then
TableauA = TableauA & -2 + x & ", "
TableauB = TableauB & (-2 + x) ^ 2 & ", "
Else
TableauA = TableauA & -2 + x
TableauB = TableauB & (-2 + x) ^ 2
End If
x = x + 0.01
Next
' Range("A1") = TableauA
' Range("A2") = TableauB
Charts.Add
With ActiveChart
.ChartType = xlXYScatterLinesNoMarkers
.Location Where:=xlLocationAsObject, Name:=ici
End With
Set ns = ActiveChart.SeriesCollection.NewSeries
With ns
.XValues = Array(TableauA)
.Values = Array(TableauB)
End With
End Sub

isabelle


Bonjour isabelle,

et merci.

je n'arrive pas à le faire directement avec .XValues = X et .Values = Y
mais cela fonctionne correctement lorsque que c'est égal à une plage de
cellule.
C'est justement ce que je voulais éviter !

Je veux donner mes valeurs par tableaux, pas autrement !!!
Je continue à chercher.

xxx

Serge



Avatar
Philippe.R
Ah ! Laurent, comme la musique de ta justice est douce à mes yeux (qui n'y sont pas sourds)
:o))))
--
Amicales Salutations

Retirer A_S_ pour répondre.

"Sitting Hoax (BM)" a écrit dans le message de
news:
Ne voulant pas créer de polémique avec Jean Paul,
ni tirer la couverture par devers moi ;-)
je me permets de signaler que la fameuse bouteille,
vous pourrez le vérifier sur la photo , la bouteille que Jean Paul,
encore un, (ils m'ont l'air tous portés sur la chose ceux qui ont ce
prénom;-), tient en main

http://www.wistiti.fr/AlbumsPerso/carte/email1.asp?alb=MP3sOBTKF0110201&DI=MP3sOBTKF011020&Img=MP3sOBTKF0D01102003202213393216.jpg

n'est pas une bouteille de beaujolais,
mais une bouteille de côtes de Provence,
Château Calissanne, près de Aix en Provence
(on ne voit pas bien l'étiquette, mais la forme suffit)
offerte par ...mes soins pour nos amis canadiens.
Et Jean Paul, tellement habitué aux remerciements de toutes sortes,
il en replit des DD entiers,
n'avait pas relevé ; et il était témoin pourtant;
que j'avais confié à Gaëtant le soin de vous la faire goûter.
Il est vrai que JPS lui en avait aussi donné une,
( que Gaëtant a sans doute dû
siffler dans l'avion)
il n'est pas avare sur ce point, je peux le'assurer;-),
mais ce n'était pas celle là.
Confirmation de Gaëtant ?
C'était juste pour venger un peu Philippe, que JPS
ne loupe jamais quand il s'agit de rectifier une vérité.
Et un scud de temps en temps comme un petit verre (sans abus)
ne fait jamais de mal ;-))
Bises à toutes
Amicalement
Sitting Hoax


"isabelle" a écrit dans le message de
news:
ban shur, y en a pas beaucoup, mais elles sont tous là

http://www.wistiti.fr/AlbumsPerso/Visualisation.asp?DI=MP3sOBTKF011020&nombre=3&first=true

Identifiant : MPFEmontréal
Mot de passe personnel : zaza
bisou
isabelle


coucou Isabelle
tu m'envoies l'adresse des photos de votre diner avec les bons
login/mots de


passe ?
;-))
Bisou

--
Misange http://www.excelabo.net
Attention disciplus a déménagé ! mettez vos favoris à jour

"isabelle" a écrit dans le message de
news:
salut Serge,

est ce que tu travaille sur xl97 ?

isabelle


Bonjour tout le monde,

Toujours plongé dans mes obsessions graphiques,
j'utilise cette macro pour «passer» des valeurs
à un nuage de points en utilisant Array (pas Potter!).

Sub PasserPetitNombreDeValeurs()
With ActiveChart.SeriesCollection(1)
.XValues = Array(1, 2, 3, 4, 5)
.Values = Array(1, 4, 9, 16, 25)
End With
End Sub

Tout ça, c'est formidable; mais ...
si je veux «passer» des milliers de valeurs,
comment faire pour définir mon Array pas Potter, Hein ! ?

Ma pauvre tentative :

Sub PasserUneTonneDeValeurs()
Dim X(1 to 32000) As Double
Dim Y(1 to 32000) As Double
For vx = -1 To 1 Step 0.01
i = i + 1
X(i) = vx
Y(i) = vx ^ 2
Next vx
With ActiveChart.SeriesCollection(1)
' Et c'est ici que mes bas me blessent !!!
.XValues = X
.Values = Y
End With
End Sub

Merci bien de vous pencher sur ma quête,

Serge, le quêteux !












Avatar
sabatier
y en a bien qu'ont vraiment rien à f..... dans ce pays§...est-ce qu'ici,
nous, on cherche à savoir d'où ce qu'elle vient la bouteille, hein?
l'essentiel est qu'on la boit, comme disait le professeur de français
dont auquel je vous ai déjà causé
jps

Philippe.R a écrit:
Ah ! Laurent, comme la musique de ta justice est douce à mes yeux (qui n'y sont pas sourds)
:o))))


Avatar
Sitting Hoax \(BM\)
L'intérêt dans cette affaire était que les bisous dont t'a indûment
gratifié Isabelle et autres gentilles québécoises me revenaient de droit.
Je ne te demanderai pas de me les rendre, mais s'il leur en reste un peu,
qu'elles m'en envoient un ou deux;-))
J'attends !;-)
Quant à nous Jean Paul, nous calmerons tout ça
devant nos verres le 13 décembre comme d'hab, n'est ce pas ? :-))
Amicalement
Sitting Hoax
"sabatier" a écrit dans le message de
news:
y en a bien qu'ont vraiment rien à f..... dans ce pays§...est-ce qu'ici,
nous, on cherche à savoir d'où ce qu'elle vient la bouteille, hein?
l'essentiel est qu'on la boit, comme disait le professeur de français
dont auquel je vous ai déjà causé
jps

Philippe.R a écrit:
Ah ! Laurent, comme la musique de ta justice est douce à mes yeux (qui
n'y sont pas sourds)


:o))))






Avatar
sabatier
:-)))))
jps

Sitting Hoax (BM) a écrit:
L'intérêt dans cette affaire était que les bisous dont t'a indûment
gratifié Isabelle et autres gentilles québécoises me revenaient de droit.
Je ne te demanderai pas de me les rendre, mais s'il leur en reste un peu,
qu'elles m'en envoient un ou deux;-))
J'attends !;-)
Quant à nous Jean Paul, nous calmerons tout ça
devant nos verres le 13 décembre comme d'hab, n'est ce pas ? :-))
Amicalement
Sitting Hoax
"sabatier" a écrit dans le message de
news:

y en a bien qu'ont vraiment rien à f..... dans ce pays§...est-ce qu'ici,
nous, on cherche à savoir d'où ce qu'elle vient la bouteille, hein?
l'essentiel est qu'on la boit, comme disait le professeur de français
dont auquel je vous ai déjà causé
jps

Philippe.R a écrit:

Ah ! Laurent, comme la musique de ta justice est douce à mes yeux (qui


n'y sont pas sourds)


:o))))









--
NB. mes admiratrices voudront bien supprimer "delaile" avant de m'écrire
en bal perso....merci



Avatar
e.lecrenier
Bon, moi je veux bien jouer à l'ONU (pas eau nue, ni aux nues), mais je
prends une petite commission de 10% au passage ....du garçon.

--
Bonne chance et bonne fin de journée.
Jacquouille qui lit http://www.excelabo.net

"Sitting Hoax (BM)" a écrit dans le message de
news:
L'intérêt dans cette affaire était que les bisous dont t'a indûment
gratifié Isabelle et autres gentilles québécoises me revenaient de droit.
Je ne te demanderai pas de me les rendre, mais s'il leur en reste un peu,
qu'elles m'en envoient un ou deux;-))
J'attends !;-)
Quant à nous Jean Paul, nous calmerons tout ça
devant nos verres le 13 décembre comme d'hab, n'est ce pas ? :-))
Amicalement
Sitting Hoax
"sabatier" a écrit dans le message de
news:
y en a bien qu'ont vraiment rien à f..... dans ce pays§...est-ce qu'ici,
nous, on cherche à savoir d'où ce qu'elle vient la bouteille, hein?
l'essentiel est qu'on la boit, comme disait le professeur de français
dont auquel je vous ai déjà causé
jps

Philippe.R a écrit:
Ah ! Laurent, comme la musique de ta justice est douce à mes yeux (qui
n'y sont pas sourds)


:o))))










1 2