Création automatique de liens hypertexte dans Excel Fermé

Question

Bonjour, 

Et par avance merci...

J'ai une feuille Excel composé de 2 feuillets :

- Dans le premier, des valeurs distinctes (une ligne par valeur) en colonne A
- Dans le second, on retrouve ces mêmes valeurs mais sur plusieurs lignes

Feuillet 1 :
Colonne A
 
12001
12003
12005

Feuillet 2
Colonne A

12001
12001
12003
12003
12003
12005

(Bien sur, il y a d'autres colonnes)

J'aimerai que quand on clique sur une valeur du premier feuillet, on arrive automatiquement sur la première des valeurs identiques du second (j'ai matérialisé le lien voulu en gras)

L'enregistrement macro m'a permis de voir la syntaxe d'une création de lien hypertexte mais MA logique et MA méconnaissance m'empêchent de voir comment en VBA identifier des valeurs identiques... 

Donc je m'adresse à vous... Merci


Configuration: Windows XP / Firefox 19.0

f894009 · Answer

Bonjour,

un exemple de fichier:

https://www.cjoint.com/?CDkn4RLJEoQ

Bon courage

Marmottas007 · Answer

Le fichier ne contient aucune macro... ?

f894009 · Answer

Re,
Si, dans VBA feuil1:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Application.Intersect(Target, Range("A:A")) Is Nothing And Target <> "" Then
        lig = 1
        With Worksheets("feuil2")
            lig = .Columns(1).Find(Target, .Cells(lig, "A"), , , xlWhole).Row
            .Activate
            .Range("A" & lig).Select
        End With
    End If
End Sub