Worksheet_FollowHyperlink et lancement recherche

[almoha]

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

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.

 

[MJ13]

Re : Worksheet_FollowHyperlink et lancement recherche

Bonjour Almoha

Il suffit d'écrire:

MaVar = Cells(activecell.row, 1).Value

 

[almoha]

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

 

[Paf]

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 :

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+

 

[MJ13]

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.

 

[almoha]

Re : Worksheet_FollowHyperlink et lancement recherche

Merci à tous les deux ! ça marche impec

 

[Paf]

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