Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Worksheet_FollowHyperlink et lancement recherche

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion almoha
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

almoha

Guest
Bonjour,

Dans le fichier joint, je recherche des montants présents dans le 1er onglet grâce au code suivant (code rattaché au 2nd onglet) :

Code: 
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
MaVar = Cells(2, 1).Value
Application.Dialogs(xlDialogFormulaFind).Show MaVar
End Sub

Le clic sur un lien du 2nd onglet provoque l'ouverture de la boîte de recherche dans laquelle le montant recherché provient de la variable "Ma Var". Actuellement la valeur de cette variable est "fixe" car elle pointe sur la cellule Cells(2, 1). Pour rendre cette variable "variable", je voudrais récupérer la valeur de la cellule se trouvant à côte de la cellule dans laquelle figure le lien sur lequel je viens de cliquer. J'ai essayé avec ActiveCell.Offset mais je récupère la valeur de la cellule du 1er onglet.
Voyez-vous comment arriver à ce résultat ? Merci.
 

Pièces jointes

Trier par date Trier par votes
Re : Worksheet_FollowHyperlink et lancement recherche

Merci, mais malheureusement cela ne fonctionne pas car cela me renvoie toujours la valeur de la cellule A1 ("MONTANTS").
 
Vote positif 0 Vote négatif
Re : Worksheet_FollowHyperlink et lancement recherche

Bonjour à tous,

une solution qui supprime l' utilisation du lien hypertexte => l'utilisation de l'évènement double clic de la feuille LISTE MONTANTS :

Code: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Worksheets("MONTANTS RECHERCHES").Activate
  Application.Dialogs(xlDialogFormulaFind).Show Target.Value
End Sub

Il faudrait gérer les plages "double cliquable"

On aurait pu utiliser l'évènement clic droit

A+
 
Vote positif 0 Vote négatif
Re : Worksheet_FollowHyperlink et lancement recherche

Re, Bonjour Paf

C'est vrai qu'il y a d'autres façons de faire:

Dans ton exemple, les liens n'était pas lié à la bonne cellule.

Voici ton fichier corrigé avec le double-click de Paf en même temps.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Worksheet_FollowHyperlink et lancement recherche

re

Sous Excel 2003, avec la solution du lien hypertexte si l'on clic sur <suivant> de la boite de recherche, au deuxième clic il a plantage d'Excel .

Bonne soirée
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

S
  • Résolu(e)
Microsoft 365 Recherche de date en VBA
Réponses
6
Affichages
767
sylvanu
J
  • Question Question
Autres Supprimer une ligne dans une feuille à partir d'une valeur rentrée dasn une cellule d'une autre feuille
2
Réponses
25
Affichages
2 K
jmc78
J
M
  • Résolu(e)
Microsoft 365 Formulaire recherche qui plante - VBA
Réponses
3
Affichages
691
Mcmaldo
M
C
  • Question Question
XL 2019 Tableau- creation de lignes: probleme de hauteur de lignes
Réponses
6
Affichages
823
Cheyenne_2021
C
H
  • Question Question
XL 2019 Filtrer un tableau après avoir cliqué sur un lien hypertexte
Réponses
6
Affichages
2 K
Hebus15
H
F
  • Question Question
XL 2019 Recherche en ligne dans matrice et ramener cellule de la même ligne
Réponses
12
Affichages
1 K
TooFatBoy
G
  • Question Question
Microsoft 365 Recherche v + VBA
Réponses
3
Affichages
2 K
Grelune
G
G
  • Question Question
XL 2016 Ecrire une boucle pour afficher ensemble dans un userform, toutes ses textbox complétées par la boucle! Voir mon code et photos feuilles joints !
Réponses
8
Affichages
1 K
vgendron
H
  • Résolu(e)
XL 2016 Chercher valeur dans colonne(s) variable(s)
Réponses
11
Affichages
1 K
Staple1600
F
  • Question Question
XL 2016 Formatage fichier TXT sans séparateur et longueur ligne variable
Réponses
0
Affichages
3 K
Flx1er
F
N
  • Suggestion Suggestion
Recherche & référence RECHERCHE2D
Réponses
8
Affichages
2 K
Etoto
N
  • Question Question
problème avec .find
Réponses
2
Affichages
812
ninajams
N
A
  • Résolu(e)
Microsoft 365 Lookup (Recherche) me rapporte un mauvais résultat pour un seul client.
Réponses
3
Affichages
1 K
AlicePrince
A
N
  • Question Question
If/then/else combiné avec Find
Réponses
8
Affichages
2 K
Staple1600
N
  • Question Question
Macro à améliorer
Réponses
1
Affichages
963
Pounet95
P
B
  • Question Question
XL 2016 Afficher les résultats d'un tableau dans un autre
2
Réponses
16
Affichages
2 K
Bobleesouf
B
F
  • Résolu(e)
XL 2013 Recherche et Copie de lignes d'un classeur vers un autre
Réponses
10
Affichages
1 K
fgdfgg
F
  • Question Question
Listbox qui ne se rempli pas ????
Réponses
4
Affichages
1 K
Menibelus
N
  • Question Question
insertion d'un nombre variable de données dans une boucle
2
Réponses
17
Affichages
3 K
ninajams
N
A
  • Question Question
XL 2016 Recherche d'une chaine de mots dans un tableau, et voir si ça matche
Réponses
2
Affichages
867
Axsis93
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…