Lien hypertexte VBA plusieurs cellules

Version imprimable

16/04/2013, 17h27
Parisn

Lien hypertexte VBA plusieurs cellules

Bonjour,

Voici mon problème:

Dans une feuille intitulée "cat famille " j'ai en colonne C des numéro d'identification du type "1278" (environ 100 lignes ; C2; C3...). J'aimerais à partir de ces numéros générer des liens hypertexte qui me renverrai directement dans une autre feuille "ref frs" sur la cellule corespondante au même numéro (les numéros sont cette fois ci localisés en collone A).
je cherche donc un moyen pour éviter de tout faire manuellement.
J'ai pensé à une macro, mais je ne sais pas comment la formaliser!

Merci d'avance pour votre aide
16/04/2013, 19h43
78chris

Bonjour

Si une colonne supplémentaire ne te gène pas tu peux aussi le faire par la fonction LIEN_HYPERTEXTE.
17/04/2013, 09h43
Parisn

formule hypertexte

Merci Chris pour ta réponse.

J'ai essayé de passer par la fonction lin hypertexte par contre en cliquant sur le lien, il me renvoie toujours sur la même cellule aors que je voudrais qu'il aille directement sur la cellule correponsant à mon numéro de base!

Merci
17/04/2013, 09h54
78chris

Bonjour

A toi d'ajuster la formule selon la cible.

Si tu n'y arrives pas, poste un exemple.
17/04/2013, 10h23
Parisn

lien hypertexte

voici ma formule:

=LIEN_HYPERTEXTE("[base frs 2013.xls] 'ref frs'!A5";"ade")

le Problème c'est que j'ai plusieurs cellules. chaque cellule possède un numéro spécifique. ma formule me renvoie toujours sur la cellule A5, alors que j'aimerais qu'elle évolue en fonction des numéros.
17/04/2013, 11h21
Philippe Tulliez

Bonjour,

Citation:

e Problème c'est que j'ai plusieurs cellules. chaque cellule possède un numéro spécifique. ma formule me renvoie toujours sur la cellule A5, alors que j'aimerais qu'elle évolue en fonction des numéros.

Il faudrait être plus explicite. En fonction de quels numéros ?
Plusieurs syntaxes sont possibles
Ici fait référence à la cellule dont l'adresse est indiquée en cellule D3

Code:

=LIEN_HYPERTEXTE("[monClasseur.xls] 'Feuil1'!" & D3;"ade")

Là, fait référence à la cellule D de la même ligne où se trouve la formule

Code:

=LIEN_HYPERTEXTE("[monClasseur.xls] 'Feuil1'!D" & LIGNE();"ade")

Et ainsi de suite, il y a beaucoup de possibilités.
17/04/2013, 11h51
Parisn

lien hypertexte

Merci de votre réponse. Je vais tenter d'être plus explicite.

dans mon classeur excel, je possède deux feuilles , une intitulée "famille" et une " frs". Chaque feuille comporte une base avec plusieurs lignes et collones.
Dans ma première feuille, en collone C qui s'intitule " code tiers" j 'ai des codes ( C1 58789, C2 89641 ainsi de suite). Sur ma deuxième feuille (frs), dans ma base je retrouve en collone A les code tiers de ma première feuille.
Ce que je veux, c'est qu'en cliquant sur une des cellules de la collone C (feuille famille) cela me renvoie en collone A de l'autre feuille, directement sur la cellule correspondante au bon code tiers.
Le problème, c'est que j'ai plusieurs lignes donc je cherche à moyen pour éviter de le faire manuellement.

Merci de votre aide
17/04/2013, 12h12
Philippe Tulliez

Bonjour,
Une piste à adapter et à améliorer
Cela implique l'utilisation d'une colonne supplémentaire et que le code Tiers se trouvant dans la colonne C de la feuille [Famille] existe bien dans la colonne A de la feuille [frs]
Formule à placer dans une colonne de la feuille [Famille] se trouvant sur la même ligne que le code tiers.

Code:

=LIEN_HYPERTEXTE("[TestHyperlink.xls] 'frs'!A" & EQUIV(C2;frs!$A$2:$A$20;0)+1;C2)

Ici la colonne A a une plage limitée de A2 à A20

[EDIT]
Pour éviter le message d'erreur #N/A si le compte tiers n'existe pas.

Code:

=SIERREUR(LIEN_HYPERTEXTE("[TestHyperlink.xls] 'frs'!A" & EQUIV(C4;frs!$A$2:$A$20;0)+1;C4);"Pas trouvé " & C4)

Valable uniquement pour les versions supérieures à 2003
17/04/2013, 13h58
Parisn

1 pièce(s) jointe(s)

lien hypertexte

j'ai essayé avec votre formule, mais elle m'affiche # n/a alors que les codes sont bien la..

je vous joint le fichier.

Merci
17/04/2013, 14h25
Philippe Tulliez

1 pièce(s) jointe(s)

Bonjour,
Il y avait des problèmes du nom de la feuille avec espace
Cette formule fonctionne

Code:

=LIEN_HYPERTEXTE("[base frs 2013.xls]'frs'!A" & EQUIV(C2;frs!$A$2:$A$196;0)+1;C2)

Et avec la formule SIERREUR

Code:

=SIERREUR(LIEN_HYPERTEXTE("[base frs 2013.xls]'frs'!A" & EQUIV(C2;frs!$A$2:$A$196;0)+1;C2);"Pas trouvé " & C2)

Le classeur en retour avec une colonne contenant la formule SIERREUR
17/04/2013, 14h42
Parisn

lien hypertexte

Il me reste un dernier souci: en cliquant sur le lien, excel ne me renvoie par sur la feuille frs, rien ne se passe. Est-ce normal?

Merci encore pour votre contribution!
17/04/2013, 14h48
Philippe Tulliez

Bonjour,

Non, ce n'est pas normal.
Chez moi cela fonctionne parfaitement.
17/04/2013, 14h55
Parisn

lien hypertexte

Merci bcp votre aide!
Bonne journée!

Bonjour

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
Dim laValeur As String
Dim ligneValeur As Integer
 
laValeur = ActiveCell.Value
 
'Recherche de la valeur dans la colonne A de la feuilles Frs
Set R = Sheets("frs").Range("A:A").Find(laValeur)
 
If Not R Is Nothing Then
    ligneValeur = R.Row
    Sheets("frs").Activate
    Sheets("frs").Cells(ligneValeur, 1).Select
End If
 
End Sub