SOS !! Pb code VBA+Excel !!!

SOS !! Pb code VBA+Excel !!! - Windows & Software

Marsh Posté le 16-07-2001 à 16:31:27    

Bonjour,
 
J'ai un graphique sur Excel avec évidemment ses données sources sur une autre feuille. Je cherche un fonction VBA me permettent de récupérer dans une variable ces données sources pour faire par la suite une modification sur celles-ci.
 
J'attends vos suggestions.
Merci beaucoup

Reply

Marsh Posté le 16-07-2001 à 16:31:27   

Reply

Marsh Posté le 16-07-2001 à 17:07:27    

Je ne crois pas qu'un graphique peut avoir comme source de données autre chose qu'une plage de cellules. Si c'est bien le cas, tu es obligé de modifier les valeurs des cellules sources (c'est possible par macro) pour que le graphique change.
J'espère avoir compris ta question.

Reply

Marsh Posté le 17-07-2001 à 08:37:13    

En effet un graphique a pour données sources une plage de cellules mais je voudrait automatiser une manipulation sur excel pour qu'à chaque fois qu'on lance le programme, la plage de cellules soit modifiées. Bien entendu si celle-ci se déplaçaient tjs de 5 ou 10 cellules plus bas, ce serait simpe, mais ce n'est pas le cas!
J'ai généré une macro en créant un graphique avec une certaine plage de cellules. Voici le code qu'il a généré concernant celles-ci :
ActiveChart.SeriesCollection(1).XValues = "=Feuil1!R1C1:R6C1"
 
Moi je voudrait une fonction pour récupérer dans une variable cette partie là : "=Feuil1!R1C1:R6C1" (que je ne dois pas connaître d'avance) et ensuite je me démerde pour faire mon code pour l'incrémenter.
 
Alors si quelqu'un a une idée, j'attends toutes les suggestions !!
Merci !!  :jap:

Reply

Marsh Posté le 18-07-2001 à 10:26:30    

je renouvèle ma question!

Reply

Marsh Posté le 18-07-2001 à 13:53:53    

up

Reply

Marsh Posté le 18-07-2001 à 13:59:02    

utilise la fonction INDIRECT()

Reply

Marsh Posté le 18-07-2001 à 14:17:09    

Merci mais pourrais tu me donner plus de renseignement sur cette fonction car j'ai trop peu d'élément en main et j'ai du mal à trouver des renseignements là dessus dans les aides.

Reply

Marsh Posté le 18-07-2001 à 15:03:55    

Apparement cette fonction retourne la valeur d'une cellule donnée. Si celle ci fait référence à une autre cellule alors cette fonction va chercher la valeur de cette dernière§.
Donc cela ne résoud pas mon problème.
 
Si quelqu'un a une idée qu'il me la donne par pitié, je craque!!!! :cry:

Reply

Marsh Posté le 18-07-2001 à 15:23:56    

J'essayerai de regarder cela ce soir chez moi. Tu as quelle version d'excel ?

Reply

Marsh Posté le 18-07-2001 à 16:28:22    

chez moi g 2000 et au travail g 97, donc considère que g 97 !!
 
Moi ca fait 2 jours que je me galère sur ce pb je commence a péter les plombs!  
Je dois pas être très douée avec les aides car g un bouquin de VB 6.0, MSDN et les aides VBA et je trouve rien de concluant!
 
J'espère que tu pourra m'aider   :hello:

Reply

Marsh Posté le 18-07-2001 à 16:28:22   

Reply

Marsh Posté le 19-07-2001 à 11:36:54    

up

Reply

Marsh Posté le 19-07-2001 à 13:35:06    

:bounce:    Aidez moi s'il vous plait!!!!!    :bounce:

Reply

Marsh Posté le 19-07-2001 à 13:51:33    

Dim Var as object
 
Var = F!r1c1....
 
Maintenant comment récupére l'objet !!!

Reply

Marsh Posté le 19-07-2001 à 14:09:36    

avv> Je ne vois pas où tu veux en venir exactement  :sarcastic:
 
je répète :
ça c le code pour rentrer une plage de cellule dans les données sources d'un graphique, sur l'axe des abcisses:
ActiveChart.SeriesCollection(1).XValues = "=Feuil1!R1C1:R6C1"  
 
Moi je voudrait une fonction pour récupérer dans une variable cette partie là : "=Feuil1!R1C1:R6C1". La question que je me pose c'est : "quelle est la plage de cellules qui forme l'axe des abcisses ?". Et je veux que le prog me renvoi : "=Feuil1!R1C1:R6C1"
 
Voilà, je pense avoir replacé dans le contexte mon problème, alors aidez moi siouplé!!!  :cry:
 
 
VBA+EXCEL            :gun:

Reply

Marsh Posté le 19-07-2001 à 14:55:54    

Ah zut, je t'ai oublié hier soir.
Sinon, tu as essayé simplement de faire un truc genre :
mavariable = ActiveChart.SeriesCollection(1).XValues
Ca pourrait peut etre marché.

Reply

Marsh Posté le 19-07-2001 à 16:06:43    

Oh oui!!!! C'est la première chose que g essayé! ca me semblait logic que ce soit ça mais apparemment non !
 
A tout les coups c'est une fonction toute bête qui va me sembler évidente quand je l'aurais sous la main!  :hap:

Reply

Marsh Posté le 20-07-2001 à 09:57:17    

up

Reply

Marsh Posté le 20-07-2001 à 12:06:06    

Bon bah j'ai pas trouvé de fonctions qui renvoient ce que tu veux. Il te reste sinon comme possibilité de stocker la chaine de texte dans une variable globale, tu fais tes manips dessus et tu réappliques a chaque fois cette chaine dans Values.
Tu arriveras au meme résultat.

Reply

Marsh Posté le 20-07-2001 à 13:43:23    

Oui je commence à penser que ce que je cherche n'existe pas alors je vais passer par un moyen détourné.
 
Merci de t'être penché sur mon problème!!!
 
:hello: :hello: :hello: :hello: :hello:

Reply

Marsh Posté le 20-07-2001 à 18:03:29    

J'ai trouvé !
MaVariable = ActiveChart.SeriesCollection(1).Formula
 
MaVariable égale à "=SERIES(,,Feuil1!$A$1:$D$1,1)"
 
Je pense qu'avec ca, tu vas pouvoir te débrouiller

 

[edtdd]--Message édité par Faxone--[/edtdd]

Reply

Marsh Posté le 20-07-2001 à 18:19:10    

C génial, ça marche!!!!!  :hap: :hap: :hap: :hap: :hap:
 
Merci beaucoup c'est super sympa de ta part d'avoir pris de ton temps pour résoudre mon problème.
 
J'avais vu la propriété formula mais je sais plus pourquoi j'avais cru que ct pas ça!! si j'avais su! :(
 
Encore merci et à plus tard!!
 
:bounce: :bounce: :bounce: :bounce: :bounce: :bounce: :bounce:

Reply

Marsh Posté le    

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed