Macro lien hypertexte+recherche de cellule

[gama]

Bonjour,
Je suis toute débutante dans le monde des macros Excel

J'ai deux fichiers Excels par exemple je vais les nommer : Excel_1 et Excel_2.

Dans Excel_1 j'ai une colonne qui contient des numéros dans ses cellules, mon besoin c'est que quand je selectionne une cellule cette derniere doit représenter un lien hypertexte vers le fichier Excel_2 (ceci est facile suffit de selectionner, cliquer à droite et selectioner lien hypertexte...) mais quand le fichier Excel_2 s'ouvre j'aimerais bien qu'il selectionne directement la cellule du Excel_2 qui contient la même valeur que la cellule selectionnée dans le Excel_1.

J'espère que je suis claire

Je vous remercie

Cordialement

 

[job75]

Re : Macro lien hypertexte+recherche de cellule

Bonjour gama,

Mettez les 2 fichiers joints dans le même répertoire (sur le bureau par exemple) et voyez.

Dans Excel_1(1).xls tous les liens hypertextes sont identiques.

Cette macro dans le code de la feuille conduit à la cellule cible dans Excel_2.xls :

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim cible As Range
'---le nom de la feuille et la colonne de cible sont à adapter---
Set cible = Sheets("Ma feuille").[B:B].Find(Target.Parent, , xlValues, xlWhole)
If Not cible Is Nothing Then Application.Goto cible
End Sub

A+

 

[gama]

Re : Macro lien hypertexte+recherche de cellule

Bonjour Job 75,

Je vous remercie beaucoup pour votre aide. J'ai oublié de préciser que ma recherche dans Excel_2 concerne plusieur feuilles... donc est ce que c'est possible de faire la recherche dans tous le classeur ou il faut absolument lui donner le nom de la feuille? avec l'outil recherche Ctrl+F il y a bien une option pour sélectionner : classeur, j'aimerais bien l'avoir lier au lien hypertexte.

Je vous remercie

A+

 

[job75]

Re : Macro lien hypertexte+recherche de cellule

RE,

J'ai oublié de préciser que ma recherche dans Excel_2 concerne plusieur feuilles...

Joignez vos 2 fichiers, allégés sans données confidentielles, avec quelques liens hypertextes dans le 1er fichier et les feuilles concernéees dans le 2ème.

A+

 

[gama]

Re : Macro lien hypertexte+recherche de cellule

Re,

Je vous envoie les deux fichiers, j'ai mis les deux colonnes des deux excels en jaune.

Je voue remercie vivement 🙂

A+

 

[job75]

Re : Macro lien hypertexte+recherche de cellule

Re,

La macro dans Excel_1(2).xls :

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim w As Worksheet, cible As Range
For Each w In Worksheets
Set cible = w.[B:B].Find(Target.Parent, , xlValues, xlWhole)
If Not cible Is Nothing Then Application.Goto cible: Exit Sub
Next
End Sub

Elle conduit à la 1ère cellule cible trouvée (il pourrait y avoir la même valeur sur d'autres feuilles).

A+

 

[job75]

Re : Macro lien hypertexte+recherche de cellule

Re,

Je n'avais pas fait attention : la date, donc le mois, sont indiqués à droite du lien hypertexte.

Alors c'est encore plus simple :

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
On Error Resume Next 'si la feuille ou la valeur n'existent pas sur Excel_2
With Sheets(Format(Target.Parent(1, 2), "mmmm"))
  .Activate
  .[B:B].Find(Target.Parent, , xlValues, xlWhole).Select
End With
End Sub

Fichier (3).

A+

 

[gama]

Re : Macro lien hypertexte+recherche de cellule

Bonjour Job75,
Je vous remercie infiniment pour votre aide précieuse.

ça marche à merveille 😀

Bonne journée

A bientôt