OVH Cloud OVH Cloud

créer un Lien hypertexte en mode de recherche

3 réponses
Avatar
Mélanie _au_travail
J'ai un nombre "x" dans une cellule de la feuille 1, et je veux créer un lien
hypertexte dans la feuille 2 qui renvoie sur se même nombre.

j'aimerais qu'au clic de la cellule sur la feuille 1, le nombre inscrit dans
cette cellule trouve le même nombre dans la feuille 2 et établisse un lien.

Comment faire ?

3 réponses

Avatar
Patrick BASTARD
Bonjour, *Mélanie _au_travail*

Cellule source en feuil2, cellule A7 - à adapter
Recherche dans la feuil1 :

Sub(RechercheCelluleA7DansFeuil1)
Sheets("Feuil1").Select
Cells.Find(What:=Sheets("Feuil2").Range("A7").Value, After:¬tiveCell,
LookIn:=xlValues, LookAt:= xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, MatchCase:úlse , SearchFormat:úlse).Activate
End Sub

De Cells... jusqu'à ...Activate sur la même ligne.
Affecter soit à un bouton, soit déclarer comme procédure événementielle
(Private Sub Worksheet_Change)

--
Bien amicordialement,
P. Bastard

J'ai un nombre "x" dans une cellule de la feuille 1, et je veux créer
un lien hypertexte dans la feuille 2 qui renvoie sur se même nombre.

j'aimerais qu'au clic de la cellule sur la feuille 1, le nombre
inscrit dans cette cellule trouve le même nombre dans la feuille 2 et
établisse un lien.

Comment faire ?


Avatar
Mélanie _au_travail
Il m'indique des erreur dans la formule !


Bonjour, *Mélanie _au_travail*

Cellule source en feuil2, cellule A7 - à adapter
Recherche dans la feuil1 :

Sub(RechercheCelluleA7DansFeuil1)
Sheets("Feuil1").Select
Cells.Find(What:=Sheets("Feuil2").Range("A7").Value, After:¬tiveCell,
LookIn:=xlValues, LookAt:= xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, MatchCase:úlse , SearchFormat:úlse).Activate
End Sub

De Cells... jusqu'à ...Activate sur la même ligne.
Affecter soit à un bouton, soit déclarer comme procédure événementielle
(Private Sub Worksheet_Change)

--
Bien amicordialement,
P. Bastard

J'ai un nombre "x" dans une cellule de la feuille 1, et je veux créer
un lien hypertexte dans la feuille 2 qui renvoie sur se même nombre.

j'aimerais qu'au clic de la cellule sur la feuille 1, le nombre
inscrit dans cette cellule trouve le même nombre dans la feuille 2 et
établisse un lien.

Comment faire ?







Avatar
Patrick BASTARD
Bonsoir, *Mélanie _au_travail*

Il m'indique des erreur dans la formule !



Quelle(s) erreur(s) ?
Erreurs d'orthographe ?

Quelle formule ?
Formule de politesse, peut-être ?


--
P. Bastard



Bonjour, *Mélanie _au_travail*

Cellule source en feuil2, cellule A7 - à adapter
Recherche dans la feuil1 :

Sub(RechercheCelluleA7DansFeuil1)
Sheets("Feuil1").Select
Cells.Find(What:=Sheets("Feuil2").Range("A7").Value,
After:¬tiveCell, LookIn:=xlValues, LookAt:= xlPart,
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:úlse ,
SearchFormat:úlse).Activate End Sub

De Cells... jusqu'à ...Activate sur la même ligne.
Affecter soit à un bouton, soit déclarer comme procédure
événementielle (Private Sub Worksheet_Change)

--
Bien amicordialement,
P. Bastard

J'ai un nombre "x" dans une cellule de la feuille 1, et je veux
créer un lien hypertexte dans la feuille 2 qui renvoie sur se même
nombre.

j'aimerais qu'au clic de la cellule sur la feuille 1, le nombre
inscrit dans cette cellule trouve le même nombre dans la feuille 2
et établisse un lien.

Comment faire ?