Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel recherche valeur et lien hypertexte

recherche valeur et lien hypertexte

16 réponses
Avatar
Aurélien
Bonjour,

Besoin d'aide pour cas suivant. J'aimerais faire en sorte qu'une valeur
texte écrite dans une cellule recherche automatiquement, dans la même
feuille, si la même valeur existe dans une colonne et si c'est le cas,
renvoyer à la ligne correspondante par un lien hypertexte.

Je ne maîtrise pas la programmation ni les macros mais je peux suivre vos
instructions.

Dans mon langage à moi, la logique de la formule serait :
=SI("valeur C1 existe dans A1:A300;HREF ligne correspondante;laisser tel quel)

Vous pouvez m'aider ?

Merci
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Daniel
Regarde là :
http://cjoint.com/?dEndmLl0Qj
Daniel
"Aurélien" a écrit dans le message de
news:
Daniel,

Malheureusement, quand j'utilise ton tableau, j'écris toto dans la cellule
C1, je valide par entrée, et je vois apparaître "$A$3" en C2 et non pas
"Toto" souligné qui renvoie vers la cellule A3

Je me suis mal exprimé pour la casse. En fait, je veux savoir s'il est
possible de taper "To" en C1 et que lui me repère le résultat qui
correspond.

En fait dans mon tableau, la colonne C comporte des noms de type "Maison",
"Voyages"... et les sites sorrespondants sont en colonne A et sont écrits
de
la façon suivante "www.maison.com" ou "www.voyages.com". Donc j'aimerais
que
la cellule où je tape "Maison" me renvoie à la ligne où se trouve
www.maison.com.

Aurélien

"Daniel" wrote:

- est-il possible de créer le lien à aprtir de la même cellule et non
pas
la
cellule en dessous ?


C'est le cas. Entre ton texte à chercher en C1 et le lien se crée en C1.

- est-il possible de rechercher un texte sans se préoccuper de la casse
?


C'est également le cas; que tu entres "toto", "TOTO" ou "toTO", le lien
se
crée.
Daniel








Avatar
Aurélien
Daniel,

OK pour la recherche d'un morceau de texte, cela fonctionne.

Par contre, le lien hypertexte se met toujours en dessous de la cellule
initiale quand je valide par la touche entrée ou dans une cellule de
destination si j'uutilise la souris.

Aurélien


Regarde là :
http://cjoint.com/?dEndmLl0Qj
Daniel
"Aurélien" a écrit dans le message de
news:
Daniel,

Malheureusement, quand j'utilise ton tableau, j'écris toto dans la cellule
C1, je valide par entrée, et je vois apparaître "$A$3" en C2 et non pas
"Toto" souligné qui renvoie vers la cellule A3

Je me suis mal exprimé pour la casse. En fait, je veux savoir s'il est
possible de taper "To" en C1 et que lui me repère le résultat qui
correspond.

En fait dans mon tableau, la colonne C comporte des noms de type "Maison",
"Voyages"... et les sites sorrespondants sont en colonne A et sont écrits
de
la façon suivante "www.maison.com" ou "www.voyages.com". Donc j'aimerais
que
la cellule où je tape "Maison" me renvoie à la ligne où se trouve
www.maison.com.

Aurélien

"Daniel" wrote:

- est-il possible de créer le lien à aprtir de la même cellule et non
pas
la
cellule en dessous ?


C'est le cas. Entre ton texte à chercher en C1 et le lien se crée en C1.

- est-il possible de rechercher un texte sans se préoccuper de la casse
?


C'est également le cas; que tu entres "toto", "TOTO" ou "toTO", le lien
se
crée.
Daniel













Avatar
Daniel
Pigé. Le problème vient du fait que la cellule active se décale vers le bas
quand tu appuuies sur "Entrée". Remplace le code par celui-ci
(clic droit sur l'onglet, clic gauche sur "visualiser le code") :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Address <> "$C$1" Then Exit Sub
If Target.Value = "" Then Exit Sub
Dim c As Range
Set c = Range("A1:A300").Find(Target.Value, lookat:=xlPart)
If Not c Is Nothing Then
Target.Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
SubAddress:=c.Address, TextToDisplay:=c.Value
End If
End Sub

Daniel
"Aurélien" a écrit dans le message de
news:
Daniel,

OK pour la recherche d'un morceau de texte, cela fonctionne.

Par contre, le lien hypertexte se met toujours en dessous de la cellule
initiale quand je valide par la touche entrée ou dans une cellule de
destination si j'uutilise la souris.

Aurélien


Regarde là :
http://cjoint.com/?dEndmLl0Qj
Daniel
"Aurélien" a écrit dans le message de
news:
Daniel,

Malheureusement, quand j'utilise ton tableau, j'écris toto dans la
cellule
C1, je valide par entrée, et je vois apparaître "$A$3" en C2 et non pas
"Toto" souligné qui renvoie vers la cellule A3

Je me suis mal exprimé pour la casse. En fait, je veux savoir s'il est
possible de taper "To" en C1 et que lui me repère le résultat qui
correspond.

En fait dans mon tableau, la colonne C comporte des noms de type
"Maison",
"Voyages"... et les sites sorrespondants sont en colonne A et sont
écrits
de
la façon suivante "www.maison.com" ou "www.voyages.com". Donc
j'aimerais
que
la cellule où je tape "Maison" me renvoie à la ligne où se trouve
www.maison.com.

Aurélien

"Daniel" wrote:

- est-il possible de créer le lien à aprtir de la même cellule et
non
pas
la
cellule en dessous ?


C'est le cas. Entre ton texte à chercher en C1 et le lien se crée en
C1.

- est-il possible de rechercher un texte sans se préoccuper de la
casse
?


C'est également le cas; que tu entres "toto", "TOTO" ou "toTO", le
lien
se
crée.
Daniel















Avatar
Aurélien
Daniel,

On y est presque.

- Puis-je étendre la recherche à toute une colonne ? c'est-à-dire ne pas
utiliser que C1 comme cellule de recherche mais utilisée la plage E1:E300
(quand je t'ai dit la colonne C la première fois c'était comme exemple, mais
en réalité ma vraie plage dans le tableau c'est E1:E300). Par contre, je
recherche bien la valeur texte dans A1:A300

Merci pour tes efforts et ton savoir.


Pigé. Le problème vient du fait que la cellule active se décale vers le bas
quand tu appuuies sur "Entrée". Remplace le code par celui-ci
(clic droit sur l'onglet, clic gauche sur "visualiser le code") :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Address <> "$C$1" Then Exit Sub
If Target.Value = "" Then Exit Sub
Dim c As Range
Set c = Range("A1:A300").Find(Target.Value, lookat:=xlPart)
If Not c Is Nothing Then
Target.Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
SubAddress:=c.Address, TextToDisplay:=c.Value
End If
End Sub

Daniel
"Aurélien" a écrit dans le message de
news:
Daniel,

OK pour la recherche d'un morceau de texte, cela fonctionne.

Par contre, le lien hypertexte se met toujours en dessous de la cellule
initiale quand je valide par la touche entrée ou dans une cellule de
destination si j'uutilise la souris.

Aurélien


Regarde là :
http://cjoint.com/?dEndmLl0Qj
Daniel
"Aurélien" a écrit dans le message de
news:
Daniel,

Malheureusement, quand j'utilise ton tableau, j'écris toto dans la
cellule
C1, je valide par entrée, et je vois apparaître "$A$3" en C2 et non pas
"Toto" souligné qui renvoie vers la cellule A3

Je me suis mal exprimé pour la casse. En fait, je veux savoir s'il est
possible de taper "To" en C1 et que lui me repère le résultat qui
correspond.

En fait dans mon tableau, la colonne C comporte des noms de type
"Maison",
"Voyages"... et les sites sorrespondants sont en colonne A et sont
écrits
de
la façon suivante "www.maison.com" ou "www.voyages.com". Donc
j'aimerais
que
la cellule où je tape "Maison" me renvoie à la ligne où se trouve
www.maison.com.

Aurélien

"Daniel" wrote:

- est-il possible de créer le lien à aprtir de la même cellule et
non
pas
la
cellule en dessous ?


C'est le cas. Entre ton texte à chercher en C1 et le lien se crée en
C1.

- est-il possible de rechercher un texte sans se préoccuper de la
casse
?


C'est également le cas; que tu entres "toto", "TOTO" ou "toTO", le
lien
se
crée.
Daniel




















Avatar
Daniel
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E1:E300")) Is Nothing Then Exit Sub
If Target.Count > 1 Or Target.Address = "" Then Exit Sub
Dim c As Range
Set c = Range("A1:A300").Find(Target.Value, lookat:=xlPart)
If Not c Is Nothing Then
Target.Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
SubAddress:=c.Address, TextToDisplay:=c.Value
End If
End Sub

Daniel
"Aurélien" a écrit dans le message de
news:
Daniel,

On y est presque.

- Puis-je étendre la recherche à toute une colonne ? c'est-à-dire ne pas
utiliser que C1 comme cellule de recherche mais utilisée la plage E1:E300
(quand je t'ai dit la colonne C la première fois c'était comme exemple,
mais
en réalité ma vraie plage dans le tableau c'est E1:E300). Par contre, je
recherche bien la valeur texte dans A1:A300

Merci pour tes efforts et ton savoir.


Pigé. Le problème vient du fait que la cellule active se décale vers le
bas
quand tu appuuies sur "Entrée". Remplace le code par celui-ci
(clic droit sur l'onglet, clic gauche sur "visualiser le code") :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Address <> "$C$1" Then Exit Sub
If Target.Value = "" Then Exit Sub
Dim c As Range
Set c = Range("A1:A300").Find(Target.Value, lookat:=xlPart)
If Not c Is Nothing Then
Target.Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
SubAddress:=c.Address, TextToDisplay:=c.Value
End If
End Sub

Daniel
"Aurélien" a écrit dans le message de
news:
Daniel,

OK pour la recherche d'un morceau de texte, cela fonctionne.

Par contre, le lien hypertexte se met toujours en dessous de la cellule
initiale quand je valide par la touche entrée ou dans une cellule de
destination si j'uutilise la souris.

Aurélien


Regarde là :
http://cjoint.com/?dEndmLl0Qj
Daniel
"Aurélien" a écrit dans le message
de
news:
Daniel,

Malheureusement, quand j'utilise ton tableau, j'écris toto dans la
cellule
C1, je valide par entrée, et je vois apparaître "$A$3" en C2 et non
pas
"Toto" souligné qui renvoie vers la cellule A3

Je me suis mal exprimé pour la casse. En fait, je veux savoir s'il
est
possible de taper "To" en C1 et que lui me repère le résultat qui
correspond.

En fait dans mon tableau, la colonne C comporte des noms de type
"Maison",
"Voyages"... et les sites sorrespondants sont en colonne A et sont
écrits
de
la façon suivante "www.maison.com" ou "www.voyages.com". Donc
j'aimerais
que
la cellule où je tape "Maison" me renvoie à la ligne où se trouve
www.maison.com.

Aurélien

"Daniel" wrote:

- est-il possible de créer le lien à aprtir de la même cellule et
non
pas
la
cellule en dessous ?


C'est le cas. Entre ton texte à chercher en C1 et le lien se crée
en
C1.

- est-il possible de rechercher un texte sans se préoccuper de la
casse
?


C'est également le cas; que tu entres "toto", "TOTO" ou "toTO", le
lien
se
crée.
Daniel






















Avatar
Aurélien
Exceptionnel, merci beaucoup pour ta patience


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E1:E300")) Is Nothing Then Exit Sub
If Target.Count > 1 Or Target.Address = "" Then Exit Sub
Dim c As Range
Set c = Range("A1:A300").Find(Target.Value, lookat:=xlPart)
If Not c Is Nothing Then
Target.Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
SubAddress:=c.Address, TextToDisplay:=c.Value
End If
End Sub

Daniel
"Aurélien" a écrit dans le message de
news:
Daniel,

On y est presque.

- Puis-je étendre la recherche à toute une colonne ? c'est-à-dire ne pas
utiliser que C1 comme cellule de recherche mais utilisée la plage E1:E300
(quand je t'ai dit la colonne C la première fois c'était comme exemple,
mais
en réalité ma vraie plage dans le tableau c'est E1:E300). Par contre, je
recherche bien la valeur texte dans A1:A300

Merci pour tes efforts et ton savoir.


Pigé. Le problème vient du fait que la cellule active se décale vers le
bas
quand tu appuuies sur "Entrée". Remplace le code par celui-ci
(clic droit sur l'onglet, clic gauche sur "visualiser le code") :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Address <> "$C$1" Then Exit Sub
If Target.Value = "" Then Exit Sub
Dim c As Range
Set c = Range("A1:A300").Find(Target.Value, lookat:=xlPart)
If Not c Is Nothing Then
Target.Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
SubAddress:=c.Address, TextToDisplay:=c.Value
End If
End Sub

Daniel
"Aurélien" a écrit dans le message de
news:
Daniel,

OK pour la recherche d'un morceau de texte, cela fonctionne.

Par contre, le lien hypertexte se met toujours en dessous de la cellule
initiale quand je valide par la touche entrée ou dans une cellule de
destination si j'uutilise la souris.

Aurélien


Regarde là :
http://cjoint.com/?dEndmLl0Qj
Daniel
"Aurélien" a écrit dans le message
de
news:
Daniel,

Malheureusement, quand j'utilise ton tableau, j'écris toto dans la
cellule
C1, je valide par entrée, et je vois apparaître "$A$3" en C2 et non
pas
"Toto" souligné qui renvoie vers la cellule A3

Je me suis mal exprimé pour la casse. En fait, je veux savoir s'il
est
possible de taper "To" en C1 et que lui me repère le résultat qui
correspond.

En fait dans mon tableau, la colonne C comporte des noms de type
"Maison",
"Voyages"... et les sites sorrespondants sont en colonne A et sont
écrits
de
la façon suivante "www.maison.com" ou "www.voyages.com". Donc
j'aimerais
que
la cellule où je tape "Maison" me renvoie à la ligne où se trouve
www.maison.com.

Aurélien

"Daniel" wrote:

- est-il possible de créer le lien à aprtir de la même cellule et
non
pas
la
cellule en dessous ?


C'est le cas. Entre ton texte à chercher en C1 et le lien se crée
en
C1.

- est-il possible de rechercher un texte sans se préoccuper de la
casse
?


C'est également le cas; que tu entres "toto", "TOTO" ou "toTO", le
lien
se
crée.
Daniel



























1 2