Manipulation graphique

Bonjour,

Je suis encore en lutte avec mes graphiques...

J'aimerais, dans le graph simplifié que j'ai mis en PJ, pouvoir déplacer la zone des données directement en cliquant sur les cellules

S01 S02 S03 S04 S05 S06 S07 etc... au lieu de cliquer sur la courbe dans l'araignée, et en déplaçant la zone bleue sur la feuille.

J'espère que je m'explique bien...

Je ne sais pas si c'est possible à faire, et si oui, si c'est pas trop compliqué....

Merci d'avance pour votre aide

Bonsoir,

Avec ce code VBA, ça devrait le faire...

Clic droit sur le nom de l'onglet, "Visualiser le code", et colle ce code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ChObj As ChartObject
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("B3:BB3")) Is Nothing Then
    Set ChObj = ActiveSheet.ChartObjects("Graphique 1")
    ChObj.Chart.SeriesCollection(1).Formula = _
        "=SERIES(,'9380'!$A$4:$A$8,'9380'!" & Cells(4, Target.Column).Address & ":" & Cells(8, Target.Column).Address & ",1)"
End If
Target.Select
End Sub

bonne soirée

Tout à fait ce que j'espérais ! Merci !