Création automatique de liens hypertexte dans Excel

Marmottas007 -  
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   -
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


A voir également:

3 réponses

Réponse 1 / 3
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 715
 
Bonjour,

un exemple de fichier:

https://www.cjoint.com/?CDkn4RLJEoQ

Bon courage
0
Réponse 2 / 3
Marmottas007
 
Le fichier ne contient aucune macro... ?
0
Réponse 3 / 3
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 715
 
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
0