Bonjour à tous,
Voici un petit probleme qui m'occupe actuellement et je séche ,...
Je viens donc vous demander un petit coup de main si possible.
Mon idée est donc de créer un graphique avec 2séries avec une macro
cependant d'abord la macro demande un point de départ et un point de fin pour monter les séries.
c'est la que je calle en fait.
Bref il reprend pas du tout le range que je veux.
Les messages box on comme reponse le numéro de la semaine et donc je veux qu'il retrouve cette valeur dans la collone attribuée. une fois la valeur trouvée je reprend la ligne de la valeur et c'est cette ligne que j'utilise comme parametre de début ou de fin de série.
Je vous remercie d'avance pour vos idées.
modif : J'ai ajouté un exemple avec le code en simplifié.
Voici un petit probleme qui m'occupe actuellement et je séche ,...
Je viens donc vous demander un petit coup de main si possible.
Mon idée est donc de créer un graphique avec 2séries avec une macro
cependant d'abord la macro demande un point de départ et un point de fin pour monter les séries.
c'est la que je calle en fait.
Sub GraphLT()
'
Dim D As Object
Dim F As Object
Dim rowD As Integer
Dim rowF As Integer
début = InputBox("Semaine de départ de la période ", "Question")
Fin = InputBox("Semaine de fin de la période", "question")
Set D = Worksheets("sheet2").Range("Ae:Ae").Find(début).Activate
rowD = ActiveCell.Row
Set F = Worksheets("sheet2").Range("Ae:Ae").Find(début).Activate
rowF = ActiveCell.Row
Range("AE1 :AE" & rowF, "ag1 :ag" & rowF).Select
Range("AG1").Activate
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("Sheet2").Range("AE1 :AE" & rowF, "ag1 :ag" & rowF) _
, PlotBy:=xlColumns
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).Values = "=Sheet2!R1C59:R21C59"
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet2"
ActiveChart.HasDataTable = False
sonnom = ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Name
ActiveSheet.Shapes(sonnom).ScaleWidth 0.46, msoFalse, msoScaleFromTopLeft
ActiveSheet.Shapes(sonnom).ScaleHeight 0.5, msoFalse, msoScaleFromTopLeft
ActiveSheet.ChartObjects(sonnom).Left = Range("A1").Left
ActiveSheet.ChartObjects(sonnom).Top = Range("A1").Top
ActiveChart.Legend.Select
Selection.Delete
ActiveWindow.Visible = False
Bref il reprend pas du tout le range que je veux.
Les messages box on comme reponse le numéro de la semaine et donc je veux qu'il retrouve cette valeur dans la collone attribuée. une fois la valeur trouvée je reprend la ligne de la valeur et c'est cette ligne que j'utilise comme parametre de début ou de fin de série.
Je vous remercie d'avance pour vos idées.
modif : J'ai ajouté un exemple avec le code en simplifié.
Pièces jointes
Dernière édition: