faire ressortir la diagonale principale d'un graphique à nuages

[hibou92000]

Bonjour,
Pouvez vous m'aider à faire ressortir la diagonale principale du graphique en PJ ?
Je voudrais également que m'on échelle soit proportionnel entre l'axe des X et Y.

Merci d'avance de votre aide.

 

[Misange]

Re : faire ressortir la diagonale principale d'un graphique à nuages

Bonjour

Pour que les deux axes soient ajustés en permanence il faut obligatoirement du VBA.
sinon pour la diagonale, voir PJ
Faute de plus d'explications, j'ai considéré que la diagonale était la droite entre les deux points (0.0) et
max(max (des X);max (des Y)) ici 574%,574%

 

[ROGER2327]

Re : faire ressortir la diagonale principale d'un graphique à nuages

Bonjour à tous.

Pour rendre orthonormée la zone de traçage, exécuter :​

Sub toto()
Dim k#, a#
    With Me.ChartObjects("Chart 1").Chart
        k = (.Axes(xlValue).MaximumScale - .Axes(xlValue).MinimumScale) / (.Axes(xlCategory).MaximumScale - .Axes(xlCategory).MinimumScale)
        With .PlotArea
            a = .InsideHeight / k
            If a > .InsideWidth Then .InsideHeight = .InsideWidth * k Else .InsideWidth = a
        End With
    End With
End Sub

Code à placer dans le "module" de Feuil1.​

ROGER2327
#6797

Mardi 24 Phalle 140 (Sainte Orchidée, aumonière - fête Suprême Quarte)
17 Fructidor An CCXXI, 5,1162h - cardière
2013-W36-2T12:16:44Z

 

[hibou92000]

Re : faire ressortir la diagonale principale d'un graphique à nuages

Bonjour,
Merci pour vos retours,
N'ayant de connaissance en VBA, je vais utiliser la méthode misange.
Par ailleurs, Misange peux-tu m'expliquer en détail comment on obtient la diagonale?

Merci d'avance

 

[hibou92000]

Re : faire ressortir la diagonale principale d'un graphique à nuages

j'ai trouvé ! En fait il suffisait de bien regarder le graphique !

Par contre je serais intéressé de savoir comment ajuster les deux axes en permanence avec un code VBA?

Merci d'avance

 

[ROGER2327]

Re : faire ressortir la diagonale principale d'un graphique à nuages

Re...

(...)
N'ayant de connaissance en VBA, je vais utiliser la méthode misange.
(...)

(...)
Par contre je serais intéressé de savoir comment ajuster les deux axes en permanence avec un code VBA?
(...)

???​

ROGER2327
#6798

Mardi 24 Phalle 140 (Sainte Orchidée, aumonière - fête Suprême Quarte)
17 Fructidor An CCXXI, 5,6387h - cardière
2013-W36-2T13:31:58Z

 

[hibou92000]

Re : faire ressortir la diagonale principale d'un graphique à nuages

???? lol
Je voulais dire par là que je ne suis pas un pro de VBA , mais je sais qu'un code vba débute par Sub et end sub !!

 

[ROGER2327]

Re : faire ressortir la diagonale principale d'un graphique à nuages

Re...

???? lol
Je voulais dire par là que je ne suis pas un pro de VBA , mais je sais qu'un code vba débute par Sub et end sub !!

Parfait !
Essayez le code proposé au message #3. Ce n'est pas parfait, tant s'en faut, mais c'est un début qu'on pourra peut-être améliorer.​

Bon courage !


ROGER2327
#6799

Mardi 24 Phalle 140 (Sainte Orchidée, aumonière - fête Suprême Quarte)
17 Fructidor An CCXXI, 5,9322h - cardière
2013-W36-2T14:14:14Z

 

[Misange]

Re : faire ressortir la diagonale principale d'un graphique à nuages

Bonjour

regarde ici pour savoir comment utiliser un code que tu trouves ou que l'on te propose sur le net :
Ce lien n'existe plus

 

[ROGER2327]

Re : faire ressortir la diagonale principale d'un graphique à nuages

Suite de #3.

En relisant, je m'aperçois d'une erreur dans le code. Au lieu de

With ActiveSheet.ChartObjects("Chart 1").Chart​

il faut mettre

With Me.ChartObjects("Chart 1").Chart​

ou simplement

With ChartObjects("Chart 1").Chart​

J'ai rectifié le susdit message.​

ROGER2327
#6800

Mardi 24 Phalle 140 (Sainte Orchidée, aumonière - fête Suprême Quarte)
17 Fructidor An CCXXI, 6,3351h - cardière
2013-W36-2T15:12:15Z