Recherchev qui renvoie lien hypertexte

JeanMarie

XLDnaute Barbatruc

• 13 Mai 2007

• #2

Re : Recherchev qui renvoie lien hypertexte

Bonjour Nico

Teste cette formule

Code:

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

@+Jean-Marie

 

Vote positif 0 Vote négatif

N

nico-14

Guest

• 13 Mai 2007

• #3

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é.

 

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 13 Mai 2007

• #4

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

 

Dernière édition: 24 Mars 2008

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 13 Mai 2007

• #5

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))

 

Vote positif 0 Vote négatif

N

nico-14

Guest

• 13 Mai 2007

• #6

Re : Recherchev qui renvoie lien hypertexte

merci JeanMarie.

et merci aussi à toi Catrice pour le petit plus.

 

Vote positif 0 Vote négatif

N

nico-14

Guest

• 14 Mai 2007

• #7

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

 

Vote positif 0 Vote négatif

N

nico-14

Guest

• 14 Mai 2007

• #8

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.

 

Dernière modification par un modérateur: 15 Mai 2007

Vote positif 0 Vote négatif

N

nico-14

Guest

• 15 Mai 2007

• #9

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

 

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 18 Mai 2007

• #10

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.

Code:

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

Code:

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

 

Pièces jointes

• FicheClient.zip

  14.1 KB · Affichages: 98

Dernière édition: 18 Mai 2007

Vote positif 0 Vote négatif

N

nico-14

Guest

• 20 Mai 2007

• #11

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.

 

Vote positif 0 Vote négatif

N

nico-14

Guest

• 21 Mai 2007

• #12

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.

 

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 21 Mai 2007

• #13

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

 

Vote positif 0 Vote négatif

N

nico-14

Guest

• 22 Mai 2007

• #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?

 

Vote positif 0 Vote négatif

N

nico-14

Guest

• 23 Mai 2007

• #15

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.

 

Pièces jointes

• mon_essai.xls

  30 KB · Affichages: 100

Vote positif 0 Vote négatif