macro excel: graphique

macro excel: graphique - Logiciels - Windows & Software

Marsh Posté le 08-07-2008 à 12:06:28    

Bonjour,
 
j'ai besoin d'aide avant de devenir dingue sur mes macros que je fais sur excel.
Voilà, à chaque fois que je lance ma macro, je veux qu'elle me compte mon nombre de ligne que je connais pas (ca c OK),qu'elle me classe toutes mes lignes et je veux qu'elle me réalise tous mes graph automatiquement.
Le PB, lorsque j'écris ma macro, je ne connais pas le N° de ma dernière ligne et dc ma macro plante à chaque fois (la ligne Pb va apparaitre en gras)
 
Ci dessous un petit bout de ma macro
 
   Set Nbdecase = Range("A6", [A6].End(xlDown))
   Nbdeligne = Nbdecase.Count
    MsgBox ("le nombre de ligne est:" & Nbdeligne)
    Range("A6:S" & Nbdeligne + 5).Select
 
Charts.Add
    ActiveChart.ChartType = xlXYScatterSmooth
    ActiveChart.SetSourceData Source:=Sheets("DATA" ).Range("A6" )
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).Values = "=DATA!K6:K & Nbdeligne +5"
    ActiveChart.SeriesCollection(1).Name = "=K5"
 
 
Si quelqu'un a une réponse, Merci d'avance :)

Reply

Marsh Posté le 08-07-2008 à 12:06:28   

Reply

Marsh Posté le 08-07-2008 à 13:30:03    

Bonjour,
j'aurais  écrit:  "=DATA!K6:K" & Nbdeligne +5
Cordialement

Reply

Marsh Posté le 26-06-2009 à 14:42:58    

titi822 a écrit :

Bonjour,
 
j'ai besoin d'aide avant de devenir dingue sur mes macros que je fais sur excel.
Voilà, à chaque fois que je lance ma macro, je veux qu'elle me compte mon nombre de ligne que je connais pas (ca c OK),qu'elle me classe toutes mes lignes et je veux qu'elle me réalise tous mes graph automatiquement.
Le PB, lorsque j'écris ma macro, je ne connais pas le N° de ma dernière ligne et dc ma macro plante à chaque fois (la ligne Pb va apparaitre en gras)
 
Ci dessous un petit bout de ma macro
 
   Set Nbdecase = Range("A6", [A6].End(xlDown))
   Nbdeligne = Nbdecase.Count
    MsgBox ("le nombre de ligne est:" & Nbdeligne)
    Range("A6:S" & Nbdeligne + 5).Select
 
Charts.Add
    ActiveChart.ChartType = xlXYScatterSmooth
    ActiveChart.SetSourceData Source:=Sheets("DATA" ).Range("A6" )
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).Values = "=DATA!K6:K & Nbdeligne +5"
    ActiveChart.SeriesCollection(1).Name = "=K5"
 
 
Si quelqu'un a une réponse, Merci d'avance :)


 
 
Bonjour Titi,
 
as tu trouvé comment faire ?
 
car j'ai le même problème, et je ne trouve pas ...
 
Merci  :hello:

Reply

Marsh Posté le 29-06-2009 à 16:16:56    

Bonjour
 
La réponse de seniorpapou repond au probleme mis en gras dans ton quote...
 
Ou alors donne nous ton code qu'on regarde plus precisement. C'est plus pratique que sur un bout de code datant d'un an qui ne t'appartient pas.
 
Cordialement


---------------
Soyez malin, louez entre voisins !
Reply

Sujets relatifs:

Leave a Replay

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