Bonjour,
Je créé un graphique depuis la sélection d'une plage de cellules. Cette plage de cellule est définie depuis une cellule active d'un array (A9 puis J9...).
le programme bug au niveau de la sélection de la cellule active ou de la sélection des cellules avec maplage.
pouvez vous m'aider svp ?
merci beaucoup,
jasserin
Je créé un graphique depuis la sélection d'une plage de cellules. Cette plage de cellule est définie depuis une cellule active d'un array (A9 puis J9...).
le programme bug au niveau de la sélection de la cellule active ou de la sélection des cellules avec maplage.
pouvez vous m'aider svp ?
merci beaucoup,
jasserin
Code:
Option Explicit
Dim titre As Variant
Dim MonGraphe As ChartObject
Dim maplage As Range
Dim selection As Variant
Dim horizontal As Integer
Dim vertical As Integer
Public Sub CreationGraphe1()
horizontal = 10
vertical = 50
Dim i As Byte
titre = ThisWorkbook.Worksheets("données mensuelles").Range("h7") & " - " & ThisWorkbook.Worksheets("données mensuelles").Range("a5") & ThisWorkbook.Worksheets("données mensuelles").Range("c8")
selection = Array("A9", "j9", "s9", "a97", "j97", "s97", "a185", "j185", "s185", "a273", "j273", "s273")
For i = 0 To UBound(selection, 1)
ThisWorkbook.Worksheets("données mensuelles").Range(selection(i)).Select
Set maplage = ThisWorkbook.Worksheets("données mensuelles").Range(ActiveCell.Offset(14, 0), ActiveCell.Offset(0, 6))
maplage.Select
Set MonGraphe = ThisWorkbook.Sheets("Obj. mensuels PT").ChartObjects.Add(horizontal, vertical, 500, 300) '(position x ds la feuille, position y dans la feuille, hauteur, largeur)
MonGraphe.Chart.SetSourceData maplage
With MonGraphe.Chart
.HasTitle = True
With .ChartTitle
.Characters.Text = titre.Text
End With
End With
horizontal = horizontal + 500
Next i
End Sub