Bornes graphique histogramme VBA

Bonjour

Je cherche à ajuster automatiquement les bornes d'un graphique de type histogramme.

J'y arrive sur l'axe Y avec mes cellules j3 et K3 et l'unité en j4 mais pas en X....

Mes cellules j2 et k2 gèrent les bornes en X. Ce sont des valeurs numériques

Pouvez-vous m'aider ?

Private Sub Worksheet_Change(ByVal target As Range)
If target.Count > 1 Then Exit Sub
    ActiveSheet.ChartObjects(1).Activate

    With ActiveChart
        .Axes(xlValue).MinimumScale = Range("j3").Value
        .Axes(xlValue).MaximumScale = Range("k3").Value
        .Axes(xlValue).MajorUnit = Range("j4").Value
        .Axes(xlCategory).MinimumScale = Range("j2").Value
         Axes(xlCategory).MaximumScale = Range("k2").Value

    End With
End Sub

Bonjour

Bonjour

Voici un fichier exemple

Bonjour et merci,

Je n'ai pas fait attention, mais sur les abscisses il n'est pas possible de mettre une valeur minimum et maximum,

il suffit de regarder le paramétrage et d'ailleurs quel intérêt

@+

Bonjour

Cela me permettrait de zoomer sur le graphique au niveau des zones désirées mais aussi le plus important d'avoir un graph qui s'auto ajuste à n'importe quelle valeur et plage de données.

J'ai essayé avec le gestionnaire de nom avec le cumul d'une fonction "Decaler" et "Index" mais si je remplace ma série de départ le gestionnaire de nom perd les pédales

Si quelqu'un à une piste

Bonjour

J'ai fait le choix de bosser en nuage de point pour contourner le pb.

Merci pour l'aide

bonsoir

ce que je t'avais proposé ne te convient plus?

Bonsoir

Si si cela fait le job mais qd j'ai voulu l'adapter avec le gestionnaire de noms....j'ai certaines series qui peuvent être effacées suite à une importation machine à mon boulot.

Cela provoque des erreurs importantes sur les noms.

J'ai utilisé ta version sur une autre appli qui est très simple....

Et pour l'autre j'ai changé la méthode graphique qui m'évite le gestionnaire de nom...et donc gestion par les bornes..

Merci pour l'aide..