Lien dynamique avec modification

Version imprimable

08/03/2013, 15h27
still02

Lien dynamique avec modification

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

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:

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:

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

11/03/2013, 14h26
still02

Merci beaucoup Mercatog pour ta réponse.

j'ai un probleme avec la ligne

Code:

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

j'ai une erreur

Citation:

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:

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)

Citation:

A module is not a valid type

?
C'est déconcertant :(