Bornes d'un graphique!!!

[Icedarts]

Bonjour à tous,
Je souhaite créer un graphique avec des bornes que j'aurais défini.
Je ne veux pas q'il débute à 0 car mes premiéres valeures sont aux alentours de 15.

J'ai trouvé ce vba mais je ne peux pas dire ou ce situe le min et le max car le tableau d'ou sont extraites les données évolue en permanence!!!

bonjour voh_jb, porcinet82, salut forum,

je propose la solution suivante :

en D1 =MAX(A1:A6)
en D2 =MIN(A1:A6)

+ un p'tit code vba :

Sub echelle()
ActiveSheet.ChartObjects(1).Activate
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScale = Range("D2")
.MaximumScale = Range("D1")
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
End With


Range("A1").Select

End Sub



albert

Si quelqu'un a une solution je suis preneur.
Merci d'avance.

 

[Icedarts]

Re : Bornes d'un graphique!!!

J'ai oublié de préciser que j'aimerai aussi définir la borne supérieur du graphique et qu'il se crait dans une nouvelle feuille du classeur.
Voila maintenant vous savez tout!!!

 

[Catrice]

Re : Bornes d'un graphique!!!

Bonsoir,

voir dans le fichier ci-joint, 2 solutions basées sur l'evemement Change.
Si changement de valeur dans les cellules de la colonne 2 => mise à jour du graphique.

 

[Icedarts]

Re : Bornes d'un graphique!!!

Re,
J'ai essayé d'adapter à mon tableau mais je ne comprends pas pourquoi ton graphique commence à la valeur la plus basse alors que le mien commence un peu avant 😕 16 au lieu de 17 et des pousières...
Du fait que mon tableau contient plusieurs colonnes de données comment faire pour les insérer dans le tableau car j'ai vu dans la formule que tu choisis une colonne pour les valeurs min et max alors que mes valeurs min et max ne se trouvent pas forcément dans la même colonne???
Merci encore.

 

[Catrice]

Re : Bornes d'un graphique!!!

Bonjour,

Le fichier ci-joint fait le Max et le min sur l'ensemble des données du tableau.

 

[Icedarts]

Re : Bornes d'un graphique!!!

Bonjour à tous, bonjour et merci Catrice,
Sur ton fichier joint ça fonctionne très bien!
j'ai mis ce code dans ma feuille ou se trouve le tableau:

Private Sub Worksheet_Change(ByVal Target As Range)
Echelle2 'Mettre ici Echelle ou Echelle2 suivant la solution choisie
End Sub

Puis celui-ci dans un nouveau module:

Sub Echelle2()
With ActiveSheet.ChartObjects(1).Chart.Axes(xlValue)
.MinimumScale = Application.Min(Range("B4:I17"))
.MaximumScale = Application.Max(Range("B4:I17"))
End With
End Sub

Et lorsque je veux faire un graphique cela ne focntionne pas!!!
J'ai essayé de faire un second graphique sur ton fichier en supprimant le premier maisune fois de plus ça ne fonctionne pas le graph commence à zéro... 😕

Faut-il activer quelque chose?

Autre petite question y a-t-il une solution pour que cela fonctionne si l'emplacement du graph est sur une nouvelle feuille?

Merci d'avance.

 

[Icedarts]

Re : Bornes d'un graphique!!!

Bon c'est bon il suffisait effectivement d'ativer la macro... 🙄
Par contre cela ne fonctionne pas pour mettre le graph sur une nouvelle feuille???

 

[Catrice]

Re : Bornes d'un graphique!!!

Bonsoir,

Que faut il faire exactement ?
A quel moment faut il copier le graphe dans uen autre feuille ?

 

[Icedarts]

Re : Bornes d'un graphique!!!

Au moment de la création du graph tout à la fin on te propose 2 emplacement pour le graph.
En tant qu'objet dans la feuille
Dans une autre feuille

 

[Catrice]

Re : Bornes d'un graphique!!!

Bonjour,

Voici une version qui permet de créer un graphique dans une nouvelle feuille et qui met à jour l'échelle Y à chaque saisie de nouvelle valeur dans le tableau.

 

[Icedarts]

Re : Bornes d'un graphique!!!

Merci exactement ce que je voulais!!!
J'ai plus qu'à le mettre dans ma feuille en espèrant que ça fonctionne 😉

Merci encore!