Graphique modulable par macro

[Jacqo]

Hello world,

Mon problème concerne un graphique en nuage de point. Par appui sur un bouton, je créé un graphique qui prend les valeurs de la case A2 (toujours) jusqu'à la case BX avec X la valeur inscrite par l'utilisateur dans UserForm1.Textbox2
Je ne parviens pas à isolé cette valeur X dans ma macro ! help
En rouge, le code à erreur : X as Range ne fonctionne pas non plus

Sub macrograph()
Dim X As CellFormat
X = "B" & UserForm1.TextBox2.Value + 2
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("A2:X")
ActiveChart.ChartType = xlXYScatterSmooth
ActiveChart.SeriesCollection(1).Select
Selection.Delete
ActiveChart.ChartWizard _
Title:="Acquisition", CategoryTitle:="", _
ValueTitle:="", ExtraTitle:="", _
HasLegend:=False
End Sub

 

[pierrejean]

Re : Graphique modulable par macro

bonjour Jacqo

Teste:

Sub macrograph()
[COLOR=red][I]Dim X As integer[/I][/COLOR]
[COLOR=red][I]X = Cint(UserForm1.TextBox2.Value ) + 2[/I][/COLOR]
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("A2:B" & [I][COLOR=red]X[/COLOR][/I])
ActiveChart.ChartType = xlXYScatterSmooth
...............

 

[Jacqo]

Re : Graphique modulable par macro

impec'

Merci Pierrejean