Basculer d'une feuille à une autre par un clic dans une cellule

[celine]

Bonjour,
Alors là j'ai tout essayé mais cela dépasser allègrement mes compétences.
Je souhaiterai, d'un simple clic sur A1 de ma feuil1 basculer directement sur ma cellule B3 de la feuil2....

Avis aux amateurs, c'est certainement simple mais je n'ai pas trouvé...

Merci !

 

[Pierrot93]

Re : Basculer d'une feuille à une autre par un clic dans une cellule

Bonjour,

essaye ceci à placer dans le module de la feuille "feuil1" :

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then Application.Goto Sheets("Feuil2").Range("B3")
End Sub

mais tu ne pourras plus aller dans A1... peut être utiliser l'événement "double click" :

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then Cancel = True: Application.Goto Sheets("Feuil2").Range("B3")
End Sub

bon après midi
@+