Discussion :

[still02]

Bonjour tout le monde,

je rencontre un petit problème.

Présentation de mon Excel :

Actuellement dans mon fichier Excel j'ai deux pages une page "Table" et une page "Rapport"

Dans ma ma page Table j'ai une table avec beaucoup de colonnes (100) et de lignes (500) ma première colonne est la colonne ID chaque ligne complète de la table représente un projet.

Dans ma page Rapport j'ai un petit rapport sur le contenu d'un projet (une ligne de ma table).

Actuellement pour afficher les informations dans ma page Rapport je tape l'id du projet dans une case et ensuite tout le rapport s'affiche grâce à des VLOOKUP lié avec la table de ma page Table.

Ce que je souhaiterai faire :

Réaliser un petit programme VBA qui puisse mettre des liens Hyperlink sur tous les ID de ma table. Lorsque je clique sur l'ID il faudrait que j'arrive sur la page Rapport et que l'ID change automatiquement pour afficher les bonne informations.

Est ce que c'est possible de réaliser cela en VBA ou par un autre moyen ?

J'espere avoir été claire.

Bonne soirée à tous et bon week-end

[mercatog]

Bonsoir

Tu crée tes lien par ce code (j'ai supposé que la cellule qui reçoit l'Id est B4 de la feuille Rapport)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub CreateHyperlink()
Dim LastLig As Long
Dim c As Range
 
With Worksheets("Table")
    LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row
    For Each c In .Range("A2:A" & LastLig)
        .Hyperlinks.Add Anchor:=c, Address:="", SubAddress:="Rapport!B4", TextToDisplay:=c.Value
    Next c
End With
End Sub

Ensuite dans le module de la feuille Table, on utilise l'évènement FollowHtperlink

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
 
Worksheets("Rapport").Range("B4").Value = Target.Name
End Sub

[still02]

Merci beaucoup Mercatog pour ta réponse.

j'ai un probleme avec la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Hyperlinks.Add Anchor:=c, Address:="", SubAddress:="Rapport!B4", TextToDisplay:=c.Value

j'ai une erreur

Run-time error '5':

Invalide procedure call or argument

Avez vous une idée ?

Bonne journée à tous

Salut,

ce qui semble poser problème est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TextToDisplay:=c.Value

Ensuite autre problème quand je vais dans le module de la feuille Table quand je sélectionne Worksheet puis FollowHyperlink j'ai un message d'erreur (boite de dialogue)

A module is not a valid type

?
C'est déconcertant