Lien Hypertexte

[Gonteur]

Bonjour,

Besoin d'aide...

Sur une feuille(1) j'ai une colonne qui contient un nombre. Ce nombre ce retrouve également dans une colonne de la feuille (2). Je fais un hyperlien avec ce nombre de la feuille (1) qui ouvre la feuille 2. Ce que je voudrais c'est que la feuille 2 soit filtrer en fonction de la valeur de l'hyperlien soit retrouver seulement les lignes qui contiennent la valeur de l'hyperlien. Merci

 

[Gonteur]

Re : Lien Hypertexte

Bonjour,

Besoin d'aide...

Sur une feuille(1) j'ai une colonne qui contient un nombre. Ce nombre peut se retrouver également dans une colonne de la feuille(2) et ce sur plusieurs lignes. Je fais un hyperlien avec ce nombre de la feuille (1) qui ouvre la feuille 2. Ce que je voudrais c'est que la feuille 2 soit filtrer en fonction de la valeur de l'hyperlien soit retrouver seulement les lignes qui contiennent la valeur de l'hyperlien. Merci

 

[JNP]

Re : Lien Hypertexte

Bonjour Gonteur et bienvenue ,
Dans ThisWorkbook

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
MsgBox Target.Range.Value
End Sub

t'affichera la valeur de la cellule où est le lien.
Maintenant, pour filtrer, il faudrait en savoir plus sur ton fichier (un fichier d'exemple serait le bienvenu ).
Ce que tu peux faire, c'est utiliser l'enregistreur de macro pour faire filtrer et modifier les valeurs, ce qui te donnera quelque chose comme cela au final

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
    Sheets("Feuil2").Range("$A$1:$F$15").AutoFilter Field:=3, Criteria1:=Target.Range.Value
End Sub

Bon courage

 

[Gonteur]

Re : Lien Hypertexte

Merci JNP

Je joins un fichier exemple. La feuil1 contient une colonne dont la valeur inscrite est modifié en hyperlien vers la feuil2. J'aimerais que sur le clique de l'hyperlien la feuil2 contienne que les lignes ayant la même valeur que l'hyperlien. Merci

 

[JNP]

Re : Lien Hypertexte

Re ,
Ton fichier en retour. J'ai juste adapté mon code comme cela

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
    Sheets("Feuil2").Range("[COLOR=red][B]$A$1:$E$500[/B][/COLOR]").AutoFilter Field:=[COLOR=blue][B]1[/B][/COLOR], Criteria1:=Target.Range.Value
End Sub

Plage allant de A1 à E500 : si tu as plus de lignes ou de colonnes, à adapter.
Colonne 1 : donc A.
Bon courage

 

[Gonteur]

Re : Lien Hypertexte

Merci JNP,

C'est bien ce que je recherchais...

Je tente le tout sur mon chiffrier excel mardi matin au bureau car nous sommes férié lundi

Je vous redonne des news...

Bye

 

[Gonteur]

Re : Lien Hypertexte

Encore une fois merci JNP,

Tout est ok, c'est exactement ce que je voulais, sympa...

Bye

 

[JNP]

Re : Lien Hypertexte

Re ,

Je tente le tout sur mon chiffrier excel mardi matin au bureau car nous sommes férié lundi

Par curiosité, où le 03/09 est-il férié .
Bonne nuit

 

[Gonteur]

Re : Lien Hypertexte

Je demeure à Québec, canada

J'ai justement entendu la semaine dernière que seulement le Canada et les USA ont ce férié, il s'agit de la fête du travail (Labour's day). Ce congé n'est pas une date fixe mais plutôt le premier lundi de septembre.

Bye