Clashme
Messages postés29Date d'inscriptionvendredi 6 juin 2008StatutMembreDernière intervention17 juillet 2008
-
26 juin 2008 à 16:53
us_30
Messages postés2065Date d'inscriptionlundi 11 avril 2005StatutMembreDernière intervention14 mars 2016
-
7 juil. 2008 à 11:00
Bonjour !!!!! xD
j'ai un tout petit probleme qui ne signifie surement rien pour vous !
voilà je voudrais automatisé le graphique d'une de mes pages de mon classeur !
simple non ? :p
ce graphique reprend les données d'un calendrier que j'ai créer 2008 2009 2010 ect
j'ai fai dans un petit module à l'aide de 3 boutons options l'automatisation des plages que je voulais en graphiques. cad que selon le boutons options que je selectionne je selection une plage d'entré soit de mon année actuelle, soit mon année + année n +1 ou toute mes années! à partir de là tout fonctionnne :p
mon probleme est dans mon code lors que je souhaite faire mon graph ) partir de ma plage préselectionné avant...
je vous montre un bou de bon code ou se trovue mon probleme
ma selection de ma plage n° avec mon 1er bouton option
sub selection1()
Dim ligne As Integer
Dim col As Integer
Sheets("blabla").Activate
ligne = Cells(1, 4).Value
col = Cells(1, 3).Value + 2
I = 6
ligne = 0
While Worksheets("blabla").Cells(I, 1).Value <> ""
I = I + 1 'changement de ligne
ligne = ligne + 1
Wend
Sheets("blabla").Select
Sheets("blabla").Range(Range("A5"), Range("A5").Offset(ligne, col).Address).Select
end sub
et mon module pour le graph
Sub Graphique()
Sheets("Graph blabbla").Activate
Dim Index As Integer
Index = 1
Charts(Index).ChartArea.Select
Charts(Index).SetSourceData Source:=Sheets("blabla").Range.Activate _
, PlotBy:=xlRows
End Sub
mon probleme se trouve au nivo
Charts(Index).SetSourceData Source:=Sheets("blabla").Range.Activate _
, PlotBy:=xlRows
il ne supporte pas que je face un range.activate
puisque un range("A1:B58") fonctionne
us_30
Messages postés2065Date d'inscriptionlundi 11 avril 2005StatutMembreDernière intervention14 mars 201610 26 juin 2008 à 22:30
Bonsoir,
Il suffit de passer l'adresse de la selection courante dans la Range par l'intermédiaire d'une variable texte :
Ce qui donne ceci :
Sub Graphique()
m$ = Selection.Address
Sheets("Graph blabbla").Activate
Dim Index As Integer
Index = 1
Charts(Index).ChartArea.Select
Charts(Index).SetSourceData Source:=Sheets("blabla").Range(m$), PlotBy:=xlRows
bigfish_le vrai
Messages postés1835Date d'inscriptionvendredi 13 mai 2005StatutMembreDernière intervention20 novembre 201315 26 juin 2008 à 22:33
...
il ne supporte pas que je face un range.activate
c'est peut etre que tu es en avance sur ton temps et qu'il te suffit de t'assoir a table pour que ce que tu voulais manger arrive
Dans notre monde (moins evolué) il faut au minum passé une commande c'est a dire demandé ce que l'on souhaite. Pour un object range c'est pareil.
Range est une fonction qui permet d'acceder a un objet et aux proprietes de ce dernier mais n'est pas l'objet en lui meme.
Maintenant peut etre veux-tu juste recuperer la plage de cellule active. Si c'est bien le cas interesse toi a CurentRegion, ActiveCell et Selection.
Mais il y aurai mieux comme methode, pour cela il te faudrait revoir ton module selection.
j'ai aussi essayer de voir en enregistrant une macro
ce qui me donne ActiveChart.SeriesCollection(1).XValues = _
"='blabla'!R5C4:R5C29"
mes seriescollection dépend de mon adresse..
si quelqu'un pourrais m'aider ! ca serrais avec un grd plaisir
Vous n’avez pas trouvé la réponse que vous recherchez ?
us_30
Messages postés2065Date d'inscriptionlundi 11 avril 2005StatutMembreDernière intervention14 mars 201610 7 juil. 2008 à 11:00
" je ne recréer pas de poste vu que c'est dans la contuinité de mon code "
Euh... Non ! Tu poses un autre problème. Le mieux serait de poser un nouveau message... Il n'y a plus grand monde qui pourra te lire vu l'ancienneté du message...