Discussion :

[Sveta]

Bonjour !

Je me permets de vous poser une petite question de programmation VBA que je n'arrive pas à résoudre.

J'ai tenté de créer une macro me permettant de générer, à partir d'un tableau à deux entrées, un graphique linéaire changeant selon la cellule sélectionnée. Concrètement, si je sélectionne n'importe quelle cellule sur le plage B22:N22, j'aimerais que les données de la plage utilisées pour générer mon graphique linéaire soient celles figurant sur la plage C22:N22.

J'ai pour l'instant écrit ces lignes de code qui ne fonctionnent pas, et je pense que cela vient de la méthode de sélection des données à partir de la cellule active.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Worksheet_SelectionChange()
 
    Dim MyChart As Chart
    Dim DataRange As Range
 
    Set DataRange = ActiveCell.Row
    Set MyChart = Sheets("Chart 1").Shapes.AddChart.Chart
    MyChart.SetSourceData Source:=DataRange
    MyChart.ChartType = xlXYScatterLines
 
End Sub

J'espère que quelqu'un sera en mesure de m'aider, merci d'avance !

[EricDgn]

ActiveCell.Row donne pour résultat le n° de la ligne (row) où se trouve la cellule active. Ce n'est donc absolument pas une "plage" (range).
Il faudrait donc compléter avec qq chose de ce genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
   Dim kR As Long, kC As Long
   kR = ActiveCell.Row
   kC = ActiveCell.Column
   Set DataRange = Range(Cells(kR, kC + 1), Cells(kR, 14))   '--- 14 = colonne N

Bonne continuation