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 !
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 !
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 !
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 !
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 !
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 !
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 !
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 !
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 !
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 !
Bonjour Isabelle,
Non, sur Office 2000. Pourquoi ?
Et les photos du souper que j'ai raté ???
Serge
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de news:
3F943BF6.38996B24@videotron.ca...
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 !
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 !
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 !
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" <as.isabellevIE@videotron.ca> a écrit dans le message de
news:3F943BF6.38996B24@videotron.ca...
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 !
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 !
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 !
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" <as.isabellevIE@videotron.ca> a écrit dans le message de
news:3F943BF6.38996B24@videotron.ca...
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 !
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 !
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&nombre=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 !
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&nombre=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" <as.isabellevIE@videotron.ca> a écrit dans le message de
news:
3F943BF6.38996B24@videotron.ca...
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 !
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&nombre=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 !
Ca manque jsute des légendes !
c'est qui c'est qui ?
--
Misange http://www.excelabo.net
Attention disciplus a déménagé ! mettez vos favoris à jour
"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&nombre=3&first=trueIdentifiant : 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 !
Ca manque jsute des légendes !
c'est qui c'est qui ?
--
Misange http://www.excelabo.net
Attention disciplus a déménagé ! mettez vos favoris à jour
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de
news:3F94416E.A404B0E9@videotron.ca...
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&nombre=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" <as.isabellevIE@videotron.ca> a écrit dans le message de
news:
3F943BF6.38996B24@videotron.ca...
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 !
Ca manque jsute des légendes !
c'est qui c'est qui ?
--
Misange http://www.excelabo.net
Attention disciplus a déménagé ! mettez vos favoris à jour
"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&nombre=3&first=trueIdentifiant : 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 !
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
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 !
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
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" <as.isabellevIE@videotron.ca> a écrit dans le message de
news:
3F943BF6.38996B24@videotron.ca...
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 !
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
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 !