[VBA-E] Graphique indépendant des données?

Version imprimable

01/06/2006, 10h23
tinmarbusir

[VBA-E] Graphique indépendant des données?

Bonjour

Mon pb est le suivant

Je veux créer un graphique (type nuage de points) avec plusieurs séries...
la difficulté (pour un jeune paddawan comme moi) est que chaque série a ses données sources sur des lignes qui ne se suivent pas...
J'ai donc trié mon tableau afin que les séries se basent sur une suite de lignes. Jusqu'ici tout va bien, mais quand je retrie mon tableau à la fin de la macro les séries se trouvent modifiées car elles ne concernent plus les mêmes points. En effet les points se retrouvent dans le désordre!

Pour en arriver à la question:

Sauriez vous comment faire pour que les données du graphique ne dépendent plus des données du tableau (afin que je puisse modifier ce dernier?)

OU ALORS

Comment faire pour que le graphique ne se modifie pas quand je trie le tableau correspondant à ce graphique?

En vous remerçiant
01/06/2006, 10h46
Elstak

Salut,

pourquoi ne crées tu pas dans un page à part ton tableau "dans l'ordre" et qu'à partir de là tu crées ton graphique et ensuite dans ta page où se trouve actuellement ton tableau, tu modifies tes données comme bon te semble :D

Perso, plutot que chercher comment faire pour que les données d'un graph ne dependent plus (si c'est psosible, car je n'ai jamais cherché :P ) des données du tableau, je prefere en refaire un (la methode des feinéant est toujours la meilleure :mouarf: )
01/06/2006, 11h05
tinmarbusir
Le problème c'est que je suis perfectionniste!:cry:

En cherchant sur le pdf "VB-VBA : Programmer efficacement Microsoft Excel" de J-M RABILLOUD dispo sur le site je viens de trouver la procédure CopyPicture mais je sais pas m'en servir...
Code:

1 2 '...après avoir créé mon graphique... objchart.CopyPicture(xlScreen,xlPicture,xlPrinter)
apparamment excel est pas content quand je lui écrit çà, il me demande un égal!

Pour l'instant j'en suis réduit, pour avoir un graphique valable, à mettre le tableau dans le désordree!
01/06/2006, 11h17
Elstak

T'as regardé dans l'aide Excel?

Citation:

Envoyé par Aide

CopyPicture, méthode - Exemple

Cet exemple montre comment copier dans le Presse-papiers une image d'écran des cellules A1 à D4 contenues dans la feuille Sheet1, puis coller l'image en mode point ainsi obtenue à un autre emplacement de la feuille Sheet1.

Worksheets("Sheet1").Range("A1: D4").CopyPicture xlScreen, xlBitmap
Worksheets("Sheet1").Paste _
Destination:=Worksheets("Sheet1").Range("E6")

Essaye ca et dis moi? :P

En meme temps, il faut esperer qu'en copiant le graph il ne copie que le graph et pas la source des données sinon le probleme restera le meme...
01/06/2006, 11h34
tinmarbusir

yo j'ai pas l'aide Excel:pleure:
J'avais déjà regardé sur l'aide Excel en ligne (MSDN) mais y'avait pas le paste...
enfin bref

Cette solution me convient pour l'instant mais m'ennuie un peu parce que c'est une image et plus un graphique,je ne peux plus rien modifier par la suite.
je met donc un demi :resolu: (merci à toi)

Ce serai utile que je sache pour un de mes futurs projets comment faire pour créer un graphique indépendant des données.C'est à dire que les points du graphique correspondent à des valeurs et pas à des cellules!
01/06/2006, 11h45
Elstak

Recoucou,

bah oui c'est une image ==> copypicture

enfin c'est un peu normal d'apres moi car un graph a toujours besoin de valeurs et donc de données sources et perso j'ai jamais vu (je suis pas un boss en Excel non plus, ptet que c'est possible...) une autre manière de fournir des valeurs à un graphique que par une tableau.

toi tu veux que ton graphique "qui ne change pas" soit sur une feuille de type "graphique"? si ce n'est pas le cas (tu le met comme un graph integré dans une feuille de calcul) alors copie le tableau de valeurs en dessous. Non?

limite si tu veux les cacher à l'utilisateur tu les met en couleur blanche (bon ok c'est une astuce de bricoleur mais bon...)
01/06/2006, 13h23
tinmarbusir

Tu es rusé comme un renard!
J'aime me prendre la tête sur des détails et je ne veux donc pas copier le tableau sur la feuille:aie: ...

y'a t'il possibilité de copier les valeurs dans un tableau de single et de faire le graphique à partir de ces valeurs?? à partir de ce moment le problème serait résolu mais je n'ai aucune idée de la syntaxe à adopter!!

y'a t-il un autre moyen?

(Hors Sujet: le pauvre il se fait tirer dans les fesses :zekill: :hola: ouyouyouy çà fait mal lol)
01/06/2006, 13h54
Elstak

Avant de te lancer dans le VBA

as tu deja reussi à faire, manuellement, un graph sans tableau ou en faisant en sorte que ce graph ne change pas? moi j'ai jamais cherché à le faire mais si tu trouve essaye de voir avec l'enregistreur de macro pour le code ;)

Citation:

(Hors Sujet: le pauvre il se fait tirer dans les fesses :zekill: :hola: ouyouyouy çà fait mal lol)

??

Faut arreter de chercher mon gars si ca te met dans cet état !!

:mouarf3:

:vomi: :bebe:
voilà ce que çà donne
Code:

1 2 3 4 ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection(1).XValues = "={1,2,3,5}" ActiveChart.SeriesCollection(1).Values = "={1,5,44,6}" ActiveChart.SeriesCollection(1).Name = "="" yesyesyo"""
rop génial bien vu l'artiste.Tu m'aide beaucoup merci. Je savais au plus profond de moi qu'il y avait un moyen mais je n'osais pas l'espérer.
Maintenant comment que je pourrai faire pour remplacer les 1,2,3,5 par les nombres des cellules SVP

01/06/2006, 15h34
Elstak

coucou

Code:

ActiveChart.SeriesCollection(1).Name = "="" yesyesyo"""

ca doit etre remplacable par ca monsieur le perfectionniste :P

Code:

ActiveChart.SeriesCollection(1).Name = "= yesyesyo"

enfin je pense...

sinon au lieu de mettre ca, pour mettre le nombre contenu dans les cellules, j'ecrirai ca comme ca (sans aucune certitude)

Code:

ActiveChart.SeriesCollection(1).XValues = "={1,2,3,5}"

remplace apr :

Code:

.....XValues = "={" & cells(1,1) & "," & cells(1,2) & "," etc... "}"

apres jte laisse adapter, cells(1,2) contient la valeur de la ligne 1 colonne 2 (A2)

voilà et tu fait de meme pour l'autre ligne biensur... enfin ca jpense que tu l'avais deviné ;)

dis moi quoi !
02/06/2006, 01h55
ouskel'n'or

Hello,
Je crois me souvenir avoir fait ça. Si tu peux "pister" le déplacement de tes cellules, ça pourrait marcher. Pour ça, tu dois nommer toutes tes cellules de départ. Ensuite, quand tu les déplaces, si tu le fais par un copier/coller, et seulement si, le nom suit les cellules.
Pour créer ta plage de cellule, tu récupères l'adresse des noms.

Si tu fais un tri normal, le nom ne change pas d'adresse et là c'est cuit.

A toutes fins utiles
02/06/2006, 09h46
Elstak

Citation:

si tu le fais pas un copier/coller, et seulement si, le nom suit les cellules.

:roll: On a du mal à parler francais? il etait vraiment temps que tu ailles coucher didonc :mouarf: (ou alors je comprend pas... :P )
02/06/2006, 10h38
ouskel'n'or

Va falloir que tu apprennes à lire le français, Ellesetac ! Ma phrase est pourtant claire mais pour la comprendre il est nécessaire d'avoir dépassé la sixième, c'est sûr.
Explication de texte :

Citation:

Ensuite, quand tu les déplaces, si tu le fais par un copier/coller, et seulement si, le nom suit les cellules.

signifie que "si tu le fais par un copier/coller", et "seulement si tu le fais par un copier/coller", alors le nom de la cellule suit la cellule copiée puis recollée ailleurs

Tu as mauvais esprit le matin, Erzatz :mouarf:

Sauf qu'en me relisant, je vois que j'ai commis une erreur. Ce n'est pas si tu fais un copier/Coller mais si tu fais un Couper/coller

Merci Elstacle
02/06/2006, 11h22
tinmarbusir
Citation:

Envoyé par elstak

coucou

Code:

ActiveChart.SeriesCollection(1).Name = "="" yesyesyo"""

ca doit etre remplacable par ca monsieur le perfectionniste

Code:

ActiveChart.SeriesCollection(1).Name = "= yesyesyo"enfin je pense...

et bein non sauf si yesyesyo est la variable de type string dans ce cas ce sera

Code:

ActiveChart.SeriesCollection(1).Name = "= """ & yesyesyo & """...

par contre je pense utiliser la méthode du

Code:

.....XValues = "={" & cells(1,1) & "," & cells(1,2) & "," etc... "}"

pour donner un truc du style
Code:

1 2 3 4 5 6 .....striyng= "={" & cells(col,2) For ligne=3 to XXX .....striyng = .....striyng & "," & cells(col, ligne) next ligne .....XValues = striyng & "},"
mais de toute façon j'ai fini par choisir la solution de l'image je suis passé à autre chose zarma.
Ce sera intéressant pour une autre fois!
par contre je comprend pas trop l'autre solution
02/06/2006, 13h00
Elstak

Citation:

Envoyé par tinmar

elstak a écrit :
coucou

Code :
ActiveChart.SeriesCollection(1).Name = "="" yesyesyo"""ca doit etre remplacable par ca monsieur le perfectionniste

Code :
ActiveChart.SeriesCollection(1).Name = "= yesyesyo"enfin je pense...

et bein non sauf si yesyesyo est la variable de type string

Yep, t'as raison :P

Citation:

Envoyé par tinmar

par contre je comprend pas trop l'autre solution

Celle d'ouskel??

normal vu comment il s'exprime... :mouarf3:

Bon ok :arrow:
02/06/2006, 13h59
tinmarbusir

ouskel'n'or ? bah facile c'est marqué sur ta boussole!!:scarymov: :roi:

bon blague à part (vous avez compris la feinte j'espère:aie:) je comprends pas trop ce que tu veux dire ouskel'n'or!
02/06/2006, 14h42
ouskel'n'or

Faut tout que j'explique. tinmar, j'ignore totalement le type de tri que tu veux faire. Ma solution n'en est une que si tu as la possibilité de connaître la ligne ou la colonne de destination d'une ligne ou d'une colonne déplacée (par un tri simple c'est exclu). Dans le cas d'un déplacement, et dans ce cas seulement, si tu déplaces ta ligne ou ta colonne par un couper/Insérer ou couper/Coller, le nom suit la ligne ou la colonne.
Bon, je sais qu'Elstak a des problèmes avec le français courant mais toi, j'espère que tu as compris... :mouarf:

A+
02/06/2006, 15h56
tinmarbusir

yo je redéplace mes lignes par un tri donc ta méthode ne s'applique pas à mon problème...
merci quand même

d'ailleurs est ce que tu saurais comment ajouter les points du graphique un par un?

bon week-end!:lahola:
à mardi!

:dehors:

Juste pour vous dire j'ai trouvé comment faire pour que les graphiques ne se basent plus sur des cellules mais sur des valeurs

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
         With .SeriesCollection(1)
            Yvaleur = "={"
            Xvaleur = "={"
            For periode = 1 To 4
               Valeur = Fcopier.Cells(ligne + periode - 1, col)
               If Valeur <> "-" Then
                  Yvaleur = Yvaleur & " " & Valeur & " ;"
                  Xvaleur = Xvaleur & " " & periode & " ;"
               End If
            Next periode
            Yvaleur = Mid(Yvaleur, 1, Len(Yvaleur) - 1) & "}" 'on remplace le dernier ; par une }
            Xvaleur = Mid(Xvaleur, 1, Len(Xvaleur) - 1) & "}"
            Yvaleur = Replace(Yvaleur, ",", ".") 'Les virgules sont rempacées par des points
            .Values = Yvaleur
            .XValues = Xvaleur
            .Name = Titre
                   End With

je vous ai pas mis le début et les déclarations mais c'est juste pour vous au K où!
:yaisse3: :resolu:

Fuseau horaire GMT +2. Il est actuellement 11h50.