Retrouver une la source d'une cellule en réfenrence en double cliquant sur une cellule.

Le
Grégory Hilaire
Bien le bonjour le groupe.

Je sollicite votre aide sur un problème qui me préoccupe.
Dans la feuille 2 dans la cellule A1 je fais référence à la
cellule B100 de la feuille 1. J’aimerais en cliquant sur la
cellule A1 me retrouver dans la feuille 2 Cellule B100.

Toute solution ou piste de solution sera la bienvenue

Je vous remercie d’avance.

Greg
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Philippe.R
Le #20288621
Bonsoir,

Le code suivant, à coller dans le module la feuille 2, devrait convenir :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Not Intersect(Target, Range("a1")) Is Nothing Then Range("b100").Select
End Sub

du moins si j'ai compris l'exposé
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/web/mpfe
News://news.microsoft.com/microsoft.public.fr.excel
"Grégory Hilaire" news:
Bien le bonjour le groupe.

Je sollicite votre aide sur un problème qui me préoccupe.
Dans la feuille 2 dans la cellule A1 je fais référence à la
cellule B100 de la feuille 1. J’aimerais en cliquant sur la
cellule A1 me retrouver dans la feuille 2 Cellule B100.

Toute solution ou piste de solution sera la bienvenue

Je vous remercie d’avance.

Greg


Grégory H.
Le #20288901
Philippe.R wrote:
Bonsoir,

Le code suivant, à coller dans le module la feuille 2, devrait convenir :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Not Intersect(Target, Range("a1")) Is Nothing Then
Range("b100").Select
End Sub

du moins si j'ai compris l'exposé


Je vous remercie Philippe.R je crois que je peux partir de cela.
Il y a deux points que je dois clarifier les références données je les
avais données à titre d'exemple. En fait cela doit être possible pour
n'importe quelle cellule de la feuille 2 faisant référence à une cellule de
la feuille 1.

Le second point est assez simple c'est que les cellules sur lesquelles
double cliquer se trouvent dans la feuille 2 et ceux où je dois me retrouver
se trouvent dans la feuille 1.

Un Gros Merci
Hervé
Le #20289101
Bonsoir Grégory,

Si c'est la cellule à sélectionnée se trouve dans une autre feuille, coller
cette proc dans le module la feuille contenant la référence et effectuer un
double clic dans la cellule en question :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)

Dim NomFeuille As String
Dim NomCellule As String

'si double clic dans A1
If Target.Address(0, 0) = "A1" Then
'pas d'activation de la cellule
Cancel = True
'récupère le nom de la feuille et de la cellule
'dans la formule (þuil1!B100)
NomFeuille = Mid(Target.Formula, 2, InStr(Target.Formula, "!") - 2)
NomCellule = Mid(Target.Formula, InStrRev(Target.Formula, "!") + 1,
_
Len(Target.Formula) - InStrRev(Target.Formula, "!"))
'active la feuille et sélectionne la cellule
With Worksheets(NomFeuille)
.Activate
.Range(NomCellule).Select
End With

End If

End Sub

sinon (nécessité de sélectionner une cellule dans la même feuille alors que
la référence est sur une autre feuille ?), si la cellule est dans la même
feuille coller ce code et effectuer un double clic dans la cellule en
question :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)

Dim NomCellule As String

'si double clic dans A1
If Target.Address(0, 0) = "A1" Then
'pas d'activation de la cellule
Cancel = True
'récupère le nom de la cellule dans la formule (þuil1!B100)
NomCellule = Mid(Target.Formula, InStrRev(Target.Formula, "!") + 1,
_
Len(Target.Formula) - InStrRev(Target.Formula, "!"))
'active la feuille et sélectionne la cellule
Range(NomCellule).Select

End If

End Sub


Hervé.


"Grégory Hilaire" news:
Bien le bonjour le groupe.

Je sollicite votre aide sur un problème qui me préoccupe.
Dans la feuille 2 dans la cellule A1 je fais référence à la
cellule B100 de la feuille 1. J’aimerais en cliquant sur la
cellule A1 me retrouver dans la feuille 2 Cellule B100.

Toute solution ou piste de solution sera la bienvenue

Je vous remercie d’avance.

Greg


Publicité
Poster une réponse
Anonyme