Redirection vers page graphique

Résolu
ath80 Messages postés 234 Statut Membre -  
ath80 Messages postés 234 Statut Membre -
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.

4 réponses

  1. Raymond PENTIER Messages postés 58211 Date d'inscription   Statut Contributeur Dernière intervention   17 480
     
    La photo étant sélectionnée, insérer un lien hypertexte vers le graphique.
    0
    1. Mytå Messages postés 4246 Date d'inscription   Statut Contributeur Dernière intervention   957
       
      Salut le forum

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

      Mytå
      0
    2. ath80 Messages postés 234 Statut Membre 9
       
      Oui c'est ça le soucis, apparemment il faut faire du VBA. Mais je ne vois pas comment faire.
      0
    3. Mytå Messages postés 4246 Date d'inscription   Statut Contributeur Dernière intervention   957
       
      Re le forum

      La réponse est juste en dessous

      Mytå
      0
  2. Mytå Messages postés 4246 Date d'inscription   Statut Contributeur Dernière intervention   957
     
    Re le forum

    Affecte cette macro à ton image
    Sub Goto_Graphe()
        Sheets("Graph1").Select
    End Sub
    

    Mytå
    0
  3. Raymond PENTIER Messages postés 58211 Date d'inscription   Statut Contributeur Dernière intervention   17 480
     
    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 ...
    0
  4. ath80 Messages postés 234 Statut Membre 9
     
    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.
    0
    1. Mytå Messages postés 4246 Date d'inscription   Statut Contributeur Dernière intervention   957
       
      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å
      0
    2. Mytå Messages postés 4246 Date d'inscription   Statut Contributeur Dernière intervention   957
       
      Code de ta première macro qui te pose problème
      Selection.OnAction = "ex1.xlsx!Module1.Goto_Graphe"
      0
    3. ath80 Messages postés 234 Statut Membre 9
       
      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.
      0
    4. Mytå Messages postés 4246 Date d'inscription   Statut Contributeur Dernière intervention   957
       
      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å
      0
    5. ath80 Messages postés 234 Statut Membre 9
       
      Merci c'était juste pour info, je vous remercie beaucoup de m'avoir aidé.
      0