Bonjour,
en supposant que tu mettes pour l'axe des abscisses, la valeur dans la cellule D1, et pour l'axe des ordonnées, dans la cellule E1, et que ton graphique s'appelle "Graphique 1", essaie ce code :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("D1:E1")) Is Nothing Then
If Target <> "" Then
With ActiveSheet.ChartObjects("Graphique 1").Chart
.Axes(xlCategory).CrossesAt = [D1]
.Axes(xlValue).CrossesAt = [E1]
End With
End If
End If
End Sub
regarde le fichier