Rapport de message :*
 

Re: légende axe abscisse

Titre du sujet : Re: légende axe abscisse
par myDearFriend! le 19/09/2009 16:46:08

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,