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
|