R
Raphael
Guest
Hello à tous,
Je suis en train d'écrire une procédure afin de lancer un graf, mais j'ai un problème pour le sélection de ma plage.
Voici mon code :
Sub Graf1()
Set Ref = Sheets("Macros").Range("PERIODE")
Set Ref2 = Sheets("Macros").Range("F2")
For Row = 2 To 12000
Set TheCell = Range("A2").Offset(Row + 1, 0)
Set TheCell2 = Range("B2").Offset(Row + 1, 0)
If Ref.Value = TheCell.Value And Ref2.Value = TheCell2.Value Then
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("Stats2").TheCell2.Offset ...
ActiveChart.Location Where:=xlLocationAsObject, Name:="Bulletin"
Exit For
End If
Next Row: End Sub
Mon problème réside dans la définition de ma plage à partir de Offset (Cf. TheCell2.Offset ...). En effet, je souhaite sélectionner une plage en fonction de TheCell2.
Si TheCell2 était B6, la plage voulue serait "C3:G6".
Voilà tout.
En espérant que qq'un puisse m'aider, je vous remercie par avance et vous souhaite un bon courage à tous.
Raphaël
Je suis en train d'écrire une procédure afin de lancer un graf, mais j'ai un problème pour le sélection de ma plage.
Voici mon code :
Sub Graf1()
Set Ref = Sheets("Macros").Range("PERIODE")
Set Ref2 = Sheets("Macros").Range("F2")
For Row = 2 To 12000
Set TheCell = Range("A2").Offset(Row + 1, 0)
Set TheCell2 = Range("B2").Offset(Row + 1, 0)
If Ref.Value = TheCell.Value And Ref2.Value = TheCell2.Value Then
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("Stats2").TheCell2.Offset ...
ActiveChart.Location Where:=xlLocationAsObject, Name:="Bulletin"
Exit For
End If
Next Row: End Sub
Mon problème réside dans la définition de ma plage à partir de Offset (Cf. TheCell2.Offset ...). En effet, je souhaite sélectionner une plage en fonction de TheCell2.
Si TheCell2 était B6, la plage voulue serait "C3:G6".
Voilà tout.
En espérant que qq'un puisse m'aider, je vous remercie par avance et vous souhaite un bon courage à tous.
Raphaël