Graphique Excel - axe des abscisses (X) - automatique

[jbdubreuil]

Bonjour,

J'ai une base de données que je reprends dans un TCD synthétique.
J'utilise ce Tableau pour faire un graph tout simple, dont les valeurs sont des variables.
Je souhaiterais que l'axe des abscisses (X) soit egal à une valeur (variable) qui est sur une cellule $D$11.
A mon grand etonnement sur excel, je ne peux mettre que des valeurs dans l'échelle.
Comment faire dans ce cas?

Merci par avance !!

JB

 

[CB60]

Re : Graphique Excel - axe des abscisses (X) - automatique

Bonsoir
tu peux tester cela

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range("D7,B11")) Is Nothing Then
    ActiveSheet.ChartObjects(1).Activate
    With ActiveChart
        .Axes(xlValue).CrossesAt = [D7].Value
    End With
End If
End Sub

faire un click droit sur l'onglet
visualisé le code et coller la macro

 

[jbdubreuil]

Re : Graphique Excel - axe des abscisses (X) - automatique

Bonjour CB60,
Je viens de remarquer que ma reponse n'a pas été prise en compte la semaine derniere.
Merci donc pour cette reponse rapide. C'est vraiment super.
Seule question: je remarque que le graph ne se met à jour uniquement apres avoir appuyer sur 'entrée' dans la cellule [D7].
Ce n'est pas vraiment un probleme, mais est il possible d'y remedier?

Merci

 

[CB60]

Re : Graphique Excel - axe des abscisses (X) - automatique

re
Je pense qu'avec un worksheet calculate à la place de change cela devrais fonctionner? ( je n'ai pas testé)