Sujet Précédent Sujet Suivant

Création automatique de liens hypertexte dans Excel

Fermé
Marmottas007 - 10 avril 2013 à 13:31
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 10 avril 2013 à 14:56
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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
10 avril 2013 à 13:57
Bonjour,

un exemple de fichier:

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

Bon courage
0
Réponse 2 / 3
Marmottas007
10 avril 2013 à 14:42
Le fichier ne contient aucune macro... ?
0
Réponse 3 / 3
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
10 avril 2013 à 14:56
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