VBA Modifier format de l'axe (mapping) Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
S
Subzero
Jeune membre
Jeune membre
Messages : 41
Inscrit le : 8 novembre 2017
Version d'Excel : 2013

Message par Subzero » 1 mars 2018, 16:18

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.
Carte Perceptuelle.xlsx
(14.8 Kio) Téléchargé 12 fois
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'179
Appréciations reçues : 634
Inscrit le : 27 août 2012
Version d'Excel : 365 Personnel

Message par Jean-Eric » 1 mars 2018, 16:47

Bonjour,
Une proposition à étudier.
Cdlt.
Carte Perceptuelle.xlsm
(27.63 Kio) Téléchargé 17 fois
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
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
S
Subzero
Jeune membre
Jeune membre
Messages : 41
Inscrit le : 8 novembre 2017
Version d'Excel : 2013

Message par Subzero » 1 mars 2018, 16:55

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 :)
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'179
Appréciations reçues : 634
Inscrit le : 27 août 2012
Version d'Excel : 365 Personnel

Message par Jean-Eric » 1 mars 2018, 16:58

Re,
Quelle est la constante à prendre en compte pour l'ordonnée?
Cdlt.
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
S
Subzero
Jeune membre
Jeune membre
Messages : 41
Inscrit le : 8 novembre 2017
Version d'Excel : 2013

Message par Subzero » 1 mars 2018, 17:04

Re, c'est H11-0.05 pour le Minimum et H10 +0.05 pour le Maxi
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'179
Appréciations reçues : 634
Inscrit le : 27 août 2012
Version d'Excel : 365 Personnel

Message par Jean-Eric » 1 mars 2018, 17:31

Re,
Voir fichier révisé.
Bonne soirée.
Cdlt.
Carte Perceptuelle.xlsm
(30.24 Kio) Téléchargé 25 fois
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
S
Subzero
Jeune membre
Jeune membre
Messages : 41
Inscrit le : 8 novembre 2017
Version d'Excel : 2013

Message par Subzero » 2 mars 2018, 10:50

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). :lole:
Carte Perceptuelle V2.xlsm
(24.32 Kio) Téléchargé 12 fois
S
Subzero
Jeune membre
Jeune membre
Messages : 41
Inscrit le : 8 novembre 2017
Version d'Excel : 2013

Message par Subzero » 2 mars 2018, 11:12

En fait en me débrouillant j'ai réussi à le faire grâce à ton code Jean Eric merci !
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'179
Appréciations reçues : 634
Inscrit le : 27 août 2012
Version d'Excel : 365 Personnel

Message par Jean-Eric » 2 mars 2018, 11:31

Bonjour,
Ton fichier en retour.
Tu aurais pu trouver tout seul. :mrgreen:
Cdlt.
Carte Perceptuelle V2.xlsm
(29.52 Kio) Téléchargé 26 fois
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
S
Subzero
Jeune membre
Jeune membre
Messages : 41
Inscrit le : 8 novembre 2017
Version d'Excel : 2013

Message par Subzero » 2 mars 2018, 11:41

Jean-Eric a écrit :
2 mars 2018, 11:31
Bonjour,
Ton fichier en retour.
Tu aurais pu trouver tout seul. :mrgreen:
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 ! :)
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message