Redirection vers page graphique

Résolu/Fermé

ath80 Messages postés 208 Date d'inscription dimanche 15 juillet 2007 Statut Membre Dernière intervention 15 mars 2018 - 19 déc. 2011 à 00:34
ath80 Messages postés 208 Date d'inscription dimanche 15 juillet 2007 Statut Membre Dernière intervention 15 mars 2018 - 20 déc. 2011 à 10:38

Bonjour,

J'ai un petit soucis et je ne trouve pas la réponse sur le site.
Sur une page d'un document excel j'ai une photo. En cliquant dessus je voudrais aller sur une autre page (une feuille graphique).
J'ai joint un document qui servira d'exemple, je voudrais que lorsque l'on clique sur la photo de la feuil1 on soit dirigé vers graph1.

http://cjoint.com/11dc/ALtaDP0dutv.htm

Merci.

A voir également:

Redirection vers page graphique
Supprimer une page word - Guide
Changer carte graphique - Guide
Windows 7 vers windows 10 - Accueil - Mise à jour
Graphique excel - Guide
Word numéro de page 1/2 - Guide

4 réponses

Réponse 1 / 4

Raymond PENTIER Messages postés 58800 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 7 janvier 2025 17 264
19 déc. 2011 à 00:57

La photo étant sélectionnée, insérer un lien hypertexte vers le graphique.

Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 950
19 déc. 2011 à 01:10

Salut le forum

Raymond, c'est pas possible pour une feuille Graphique.

Mytå

ath80 Messages postés 208 Date d'inscription dimanche 15 juillet 2007 Statut Membre Dernière intervention 15 mars 2018 9
19 déc. 2011 à 01:13

Oui c'est ça le soucis, apparemment il faut faire du VBA. Mais je ne vois pas comment faire.

Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 950
19 déc. 2011 à 01:14

Re le forum

La réponse est juste en dessous

Mytå

Réponse 2 / 4

Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 950
19 déc. 2011 à 01:12

Re le forum

Affecte cette macro à ton image

Sub Goto_Graphe()
    Sheets("Graph1").Select
End Sub

Mytå

Réponse 3 / 4

Raymond PENTIER Messages postés 58800 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 7 janvier 2025 17 264
19 déc. 2011 à 01:38

Ah oui, Mytå, tu as raison !
Encore une fois, j'ai eu tort de ne pas tester, même si cela me semblait une évidence ...

Réponse 4 / 4

ath80 Messages postés 208 Date d'inscription dimanche 15 juillet 2007 Statut Membre Dernière intervention 15 mars 2018 9
19 déc. 2011 à 10:49

Bonjour,

- J'ai essayé et quand j'affecte la macro à l'image j'ai un message qui s'affiche et qui me met:
Impossible d'effectuer l'opération requise
Mais après ce message quand je clique sur le bouton ça marche, déjà est ce que c'est normal ce message ?

- Ensuite, je voudrais que lorsque l'on clique sur un autre bouton on aille vers une autre page de graphique. J'ai fait une autre macro, j'ai mis graph2 au lieu de graph1, une fois validé ça ne marche pas et l'ancienne non plus.
Voici le fichier: http://cjoint.com/11dc/ALtkRkBG4Td.htm

- Pour finir, quand j'enregistre le fichier je l'enregistre en .xlsm puisque ça prend en compte les macros mais une fois que je ferme le fichier, lorsque que je le rouvre les macros ne sont plus là et ça ne fonctionne plus, quand je clique sur le bouton ça ne fait plus rien.

Merci de votre aide.

Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 950
19 déc. 2011 à 13:53

RE le forum

Tu as deux fois le même nom pour tes macros, et ,la première fait appelle à un
autre classeur.

Sub Goto_Graphe1()
    Sheets("Graph1").Select
End Sub

Sub Goto_Graphe2()
    Sheets("Graph2").Select
End Sub

Mytå

Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 950
19 déc. 2011 à 13:55

Code de ta première macro qui te pose problème

Selection.OnAction = "ex1.xlsx!Module1.Goto_Graphe"

ath80 Messages postés 208 Date d'inscription dimanche 15 juillet 2007 Statut Membre Dernière intervention 15 mars 2018 9
20 déc. 2011 à 01:00

Merci beaucoup ça marche. Au passage, comment faire dans le cas où je dois cliquer sur une case par exemple A1 ça me renvoi vers une page graphique.
Merci.

Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 950
Modifié par Mytå le 20/12/2011 à 02:17

Re le forum

Code à copier dans le module de la feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then  
Sheets("Graph1").Select  
End If  
End Sub

Mytå

ath80 Messages postés 208 Date d'inscription dimanche 15 juillet 2007 Statut Membre Dernière intervention 15 mars 2018 9
20 déc. 2011 à 10:38

Merci c'était juste pour info, je vous remercie beaucoup de m'avoir aidé.

Discussions similaires

recherche d'u

Colis en cours de transport vers votre site de livraison ?

ventilateur carte graphique ne tourne pas