légende axe abscisse
#1
Aspirant XLPages

Inscription: 15/09/2009

Messages: 28

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 17-09-2009 14h12
Bonjour,

je souhaiterais savoir si il est possible que la valeur minimale sur l'axe des abscisse d' un graphique change automatiquement mais que c'est moi qui décide quelle est cette valeur.
C'est à dire que si je met par exemple 16:00 dans une cellule, automatiquement le graphique a comme valeur minimale en abscisse 16:00

cordialement
Hors Ligne
Rapport   Haut 

Re: légende axe abscisse
#2
Accro XLPages

Inscription: 23/05/2008
De La Varenne Saint-Hilaire

Messages: 356

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 17-09-2009 22h56
Bonsoir djstroubi,

Tu trouveras un essai ci-joint, avec deux listes de validation en cellule E3 et G3 qui te permettent de choisir une heure de début et une heure de fin, et le graphique en dessous qui s'adapte.
Tu verras que le graphique fait référence à deux zones nommées "Choix" et "Valeur", définies par calcul avec la fonction DECALER() et un petit coup de main de la fonction EQUIV() également.

J'espère que cela répond à ta question et pourra t'aider pour ton fichier de travail.

Bonne soirée,

Mth

Pièce jointe:
zip Classeur2.zip   [ Taille: 5.58 Ko - Téléchargements: 535 ]
Hors Ligne
Rapport   Haut 

Re: légende axe abscisse
#3
Aspirant XLPages

Inscription: 15/09/2009

Messages: 28

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 19-09-2009 15h41
Bonjour,

j'ai trouvé un programme mais il ne marche que pour un graphique qui est sur la même page que les données.

Je souhaiterais qu'il fonctionne sur plusieurs graphiques qui sont placée sur une page différentes de celles des données.

si quelqu'un pourrait m'aider 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$2" And IsDate(Target.Text) Then 'adapter au besoin
  ActiveSheet.ChartObjects("Graphique 2").Chart.Axes(xlValue).MinimumScale = Target
End If
End Sub
Pièce jointe:
xls légennde.xls   [ Taille: 48.50 Ko - Téléchargements: 605 ]
Hors Ligne
Rapport   Haut 

Re: légende axe abscisse
#4
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 19-09-2009 16h46
Bonjour djstroubi, Mth, le Forum,

Citation :
djstroubi a écrit :
j'ai trouvé un programme mais il ne marche que pour un graphique qui est sur la même page que les données.
Je souhaiterais qu'il fonctionne sur plusieurs graphiques qui sont placée sur une page différentes de celles des données.
si quelqu'un pourrait m'aider

Eh bien moi, je pense que Mth avait eu la gentillesse de t'apporter son aide dans ce fil. Sa réponse collait parfaitement à ta question d'origne... la moindre des choses était peut-être déjà de lui répondre, tu ne crois pas ? Et si toutefois, la proposition ne correspond pas tout à fait à l'attente, on a aussi le droit de dialoguer et converser avec l'interlocuteur (c'est le principe même d'un forum de "discussions" !).

Concernant cette nouvelle version de ton problème, je pense que la solution de Mth citée plus haut est forcément adaptable.
Comme je ne suis pas spécialiste Formule, je vais donc me contenter d'une variation du code que tu as récupéré ailleurs...

Ci-dessous un exemple pour un graph placé en "Feuil1" et des données en "Feuil2".

DANS LE MODULE DE CODE DE L'OBJET THISWORKBOOK (et non plus dans celui de la feuille) :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    'La donnée horaire modifiable est placée en Feuil2, cellule D2
    If Sh.Name = "Feuil2" And Target.Address = "$D$2" And IsDate(Target.Text) Then
        'Le graphique "Graphique 2" est placé sur la feuille "Feuil1"
        Sheets("Feuil1").ChartObjects("Graphique 2").Chart.Axes(xlValue).MinimumScale = Target
    End If
End Sub

Par ailleurs, je te remercie de prendre connaissance de CE LIEN.

Cordialement,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: légende axe abscisse
#5
Aspirant XLPages

Inscription: 15/09/2009

Messages: 28

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 19-09-2009 17h40
Bonjour Mth, didier, le forum,

Je voulais te remercier Mth pour ta solution mais je n'arrivait pas à l'adapter sur mon fichier c'est pour cela que sur un autre post quelqu'un ma donner ce code qui me semblait plus adapter.
En tous cas merci a vous deux pour vos réponsez et excuser moi pour cette impolitesse de ma part.

Didier, j'ai lu ton lien sur le multipost et compte sur moi pour le mettre à profit.

merci
Hors Ligne
Rapport   Haut 

Re: légende axe abscisse
#6
Aspirant XLPages

Inscription: 15/09/2009

Messages: 28

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 19-09-2009 18h04
Re,

J'ai un petit soucis parce que je ne connais pas le nom de mon graphique et si il y a plusieurs graphiques sur la page graph lundi est ce que ca pourra marcher aussi

merci
Pièce jointe:
xls légennde.xls   [ Taille: 42.00 Ko - Téléchargements: 600 ]
Hors Ligne
Rapport   Haut 

Re: légende axe abscisse
#7
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 19-09-2009 19h27
Re,

C'est entendu djstroubi, merci de ta compréhension.

Ta nouvelle demande différe encore de la précédente... Avec l'emploi d'un graphique sur une feuille dédiée (de type Graph), ce n'est plus tout à fait la même approche.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    'La donnée horaire modifiable est placée en feuille "lundi", cellule D2
    If Sh.Name = "lundi" And Target.Address = "$D$2" And IsDate(Target.Text) Then
        'Le graphique est créé directement sur une sheet de type Graph
        Charts("graph lundi").Axes(xlValue).MinimumScale = Target
    End If
End Sub
Par ailleurs, si tu ne modifies pas If Sh.Name = "Feuil1" en If Sh.Name = "lundi", ça ne pourra jamais fonctionner...

Cordialement,


Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: légende axe abscisse
#8
Aspirant XLPages

Inscription: 15/09/2009

Messages: 28

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 20-09-2009 13h33
Re,

J'ai copier le code dans thisworkbook mais ensuite ca ne fonctionne pas.
si tu peux regarder.

merci
Pièce jointe:
xls légennde.xls   [ Taille: 41.50 Ko - Téléchargements: 489 ]
Hors Ligne
Rapport   Haut 

Re: légende axe abscisse
#9
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 20-09-2009 16h48
Bonjour djstroubi, le Forum,

Je viens de tester ton classeur : chez moi, ça fonctionne sans problème.

Cordialement,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: légende axe abscisse
#10
Aspirant XLPages

Inscription: 15/09/2009

Messages: 28

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 20-09-2009 19h14
Re,

autant pour moi j'avais oublié d'activer les macro

en tous cas merci beaucoup du travail de pro

Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes