Retrouver une la source d'une cellule en réfenrence en double cliquant sur une cellule.
3 réponses
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
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
Philippe.R
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" a écrit dans le message de 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
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" <ghilaire@usa.net> a écrit dans le message de
news:4AC8BE8A.5080507@usa.net...
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
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" a écrit dans le message de 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.
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
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.
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é
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" a écrit dans le message de 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
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" <ghilaire@usa.net> a écrit dans le message de
news:4AC8BE8A.5080507@usa.net...
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
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" a écrit dans le message de 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