Recherchev qui renvoie lien hypertexte

[nico-14]

Bonjour,

je sollicite votre aide pour un petit problème de fonction recherchev qui renvoi une valeur qui contient un lien hypertexte.

Dans le fichier joint, dans 1ère feuille il y aura la liste des clients avec leurs numéros et toutes les autres feuilles seront les fiches clients individuelles.

Dans la 1ère feuille je désire saisir le numero du client et dans la cellule à coté le nom du client est renvoyé et le lien hypertexte avec. Le lien hypertexte m'envoie sur la fiche client individuelle.

Or quand le nom du client est renvoyé sans le lien hypertexte avec la formule recherchev.

Pouvez-vous m'indiquer comment faire pour que cela fonctionne.

D'avance merci.

 

[JeanMarie]

Re : Recherchev qui renvoie lien hypertexte

Bonjour Nico

Teste cette formule

=LIEN_HYPERTEXTE("#"&RECHERCHEV(A2;A9:B32;2)&"!A1";RECHERCHEV(A2;A9:B32;2))

@+Jean-Marie

 

[nico-14]

Re : Recherchev qui renvoie lien hypertexte

ça a l'air de fonctionner, je vais voir sur le fichier réel demain qui contient beaucoup plus de donnée client.

Si cela ne t'embête pas peux-tu m'expliquer ce que signifie les termes dans la formule:

"#", &

et pourquoi avoir fait 2 fonction de recherchev dans la même formule.

Je te remercie beaucoup d'avoir répondu avec une telle rapidité.

 

[JeanMarie]

Re : Recherchev qui renvoie lien hypertexte

Re...

Le premier argument de la fonction, transmet le texte du lien, et le deuxième permet d'afficher ce que l'on souhaite. Le deuxième argument est optionnel, si celui-ci n'est pas indiqué, la fonction affiche le texte du lien.

Le symbole # doit certainement indiqué, que le lien pointe une référence sur ce fichier.

Le symbole & est l'abréviation de la concaténation, on ajout au bout d'une première donnée texte un autre donnée, pour en récupérer qu'une seule, cela remplace la fonction CONCATENATION.

@+Jean-Marie

 

[Catrice]

Re : Recherchev qui renvoie lien hypertexte

Bonjour,

Petite modif à faire dans le RECHERCHEV pour ne pas à avoir à trier les données du champ1

=LIEN_HYPERTEXTE("#"&RECHERCHEV(A2;A9:B32;2;FAUX)&"!A1";RECHERCHEV(A2;A9:B32;2;FAUX))

 

[nico-14]

Re : Recherchev qui renvoie lien hypertexte

merci JeanMarie.

et merci aussi à toi Catrice pour le petit plus.

 

[nico-14]

Re : Recherchev qui renvoie lien hypertexte

Bonjour,

je viens de tester la formule, mais c'est dans excel 2000 et ça ne fonctionne pas.
Il y a une fenêtre qui s'ouvre avec le message "référence non valide".

pouvez-vous m'éclairer sur ce qui ne va pas?

Merci

 

[nico-14]

Re : Recherchev qui renvoie lien hypertexte

En fait ça fonctionne, c'est qu'il fallait que la valeur renvoyée s'écrive exactement comme l'onglet de la feuille.

 

[nico-14]

Re : Recherchev qui renvoie lien hypertexte

Autrement est-il possible de saisir dans une cellule la valeur recherchée et quand l'on appuye sur entrée que ça aille directement sur la destination du lien de la valeur renvoyée et donc sans avoir à cliquer dessus.

Merci

 

[JeanMarie]

Re : Recherchev qui renvoie lien hypertexte

Bonjour

Ci-joint ton fichier exemple modifié, si j'ai bien compris ta demande, cela devrait résoudre ton problème

Pour voir le code VBA, clique droit sur l'onglet donnée, puis sur "visualiser le code"
le code de la feuille "données" permet de détecter une modification du contenu d'une cellule, si c'est la cellule A2 on lance une macro qui ce trouve dans un module.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$2" Then ActiveHypertexte Target
End Sub

Cette macro permet d'activer le lien

Sub ActiveHypertexte(vMatch As Variant)
Dim vCell As String
Dim vRow As String
'Gestion d'erreur,
On Error Resume Next
'Recherche de la valeur saisie, dans la liste, retourne un n° de ligne
vRow = 0
vRow = Application.WorksheetFunction.Match(vMatch * 1, Sheets("Données").Range("A3:A100"), 0)
'Arrêt de la gestion d'erreur
On Error GoTo 0
If vRow > 0 Then
   With Cells(vRow + 2, 2).Hyperlinks(1)
      'Retourne l'adresse du lien hypertexte contenu dans la cellule
      vCell = .SubAddress
      'Trouve la cellule en référence du lien hypertexte
      vCell = Mid(vCell, InStr(1, vCell, "!") + 1)
      'Changeme de feuille
      Sheets(.Name).Activate
      'Active la référence de la cellule indiquée dans le lien hypertexte
      Range(vCell).Select
   End With
End If
End Sub

ATTENTION, ce code n'est valide que si le lien se trouve à l'intérieur même du fichier.

@+Jean-Marie

 

[nico-14]

Re : Recherchev qui renvoie lien hypertexte

je te remercie, tu as tout à fait compris ce que je désirais.

Je suis désolé de ne pas être venu plus tôt pour voir les réponses éventuels.

Et merci encore.

 

[nico-14]

Re : Recherchev qui renvoie lien hypertexte

j'ai essayé de reproduire la macro dans un nouveau fichier.

J'ai donc ouvert Visual basic, inserer un module et copier le code, mais quand je saisi la valeur dans la cellule rien ne se passe.

Peux-tu me dire ce qui peut éventuellement clocher?

Je ne comprends pas ce qui ne va pas.

Je te remercie.

 

[JeanMarie]

Re : Recherchev qui renvoie lien hypertexte

Bonsoir

Je vois deux possibilités :
- la cellule qui contient la cellule de saisie n'est pas à la référence A2 de la feuille
- la cellule est-elle fusionnée, dans ce cas, il faut indiquer la référence (exemple : $A$2:B$2)

J'espère avoir trouvé le problème

@+Jean-Marie

 

[nico-14]

Re : Recherchev qui renvoie lien hypertexte

je viens de regarder, il n'y a pas de cellule fusionnée et je fais bien référence à la cellule $A$2.

Par contre dans mon fichier, les onglets sont només par des numéros.
Quand je vais pour attribuer un lienhypertexte, dans la fenêtre "référence des cellules" le nom des onglets commencent et finissent par '.

Peut être y a-t-il un format à respecter?

 

[nico-14]

Re : Recherchev qui renvoie lien hypertexte

j'ai refais un fichier test pour essayer et ça ne fonctionne toujours pas.

je l'envoie tu as un idée JeanMarie de ce qui empêche le bon fonctionnement.

J'ai juste recopier les macro et modifier l'adresse de la cellule saisie.

Merci d'avance de m'aider et de mon coté je continue à chercher.