VBA Modifier format de l'axe (mapping)

Bonjour

J'ai créé un Mapping sous forme de graphique sur excel, malheureusement je suis confronté à un problème avec les limites des axes.

Je m'explique lorsque je choisis de mettre les limites de l'axe en automatique et que je modifie les valeurs des cercles ça modifie complètement mon graphique et la plupart de mes cercles se retrouvent "tassé" ce qui dégrade la vision de mes villes.

Je ne peux pas choisir des valeurs manuellement car les valeurs de mes points vont être amené à varier assez fortement.

L'idéal serait de pouvoir créer une macro qui détermine le minimum et le maximum de mes axes, par exemple:

En abscisse, prendre la cellule G11- 0,2 pour définir le minimum de l'axe et en maximum la cellule G10+ 0,2.

Je sais pas si je suis très clair,

Voilà le fichier en PJ

Merci à l'avance pour vos réponses.

Bonjour,

Une proposition à étudier.

Cdlt.

Public Sub Graphic_scale()
Dim cht As Chart
Dim dMin As Double, dMax As Double
Const T As Double = 0.2
    With ActiveSheet
        dMin = .Cells(11, 7).Value - T: dMax = .Cells(10, 7).Value + T
        Set cht = .ChartObjects(1).Chart
        With cht.Axes(xlCategory)
            .MinimumScale = dMin
            .MaximumScale = dMax
            .MajorUnit = T / 2
            .MinorUnit = T / 5
        End With
    End With
End Sub

C'est parfait merci !

Juste une dernière question quelle partie je dois modifier pour que ça fasse la même chose pour l'axe des ordonnées ?

Encore merci

Re,

Quelle est la constante à prendre en compte pour l'ordonnée?

Cdlt.

Re, c'est H11-0.05 pour le Minimum et H10 +0.05 pour le Maxi

Re,

Voir fichier révisé.

Bonne soirée.

Cdlt.

C'est parfait merci !

Cependant il y a un autre problème les axes ne se croisent pas au bon endroit ...

Il faudrait que l'intersection de l'axe vertical se fasse en la case G12 et l'horizontal en H12 (désolé de poster plusieurs fois sur le même sujet).

En fait en me débrouillant j'ai réussi à le faire grâce à ton code Jean Eric merci !

Bonjour,

Ton fichier en retour.

Tu aurais pu trouver tout seul.

Cdlt.

Bonjour,

Ton fichier en retour.

Tu aurais pu trouver tout seul.

Cdlt.

Carte Perceptuelle V2.xlsm

En effet, c'est le cas j'ai réussi tout seul en étant pas fort en VBA ^^

Mais merci encore !

Re,

Rechercher des sujets similaires à "vba modifier format axe mapping"