XL 2016 cliquer dans une cellule feuille 1 et me retrouver dans la meme cellule feuille 2

filouplatchaud

XLDnaute Occasionnel
Bonjour

voila j'ai deux feuilles avec des tableaux identiques quand je clique en A1 feuille1 je voudrai me retouver en A1 feuille 2. comment faire

merci
 

Paf

XLDnaute Barbatruc
Bonjour à tous,

il vaudrait mieux passer par une macro évènementielle qui se déclenche automatiquement à chaque clic d'une cellule du tableau.

Dans la feuille de code de la feuille 1:

VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:H25")) Is Nothing Then
    Application.Goto Worksheets("Feuil2").Range(Target.Address) ', Scroll:=True
End If
End Sub

A1:H25 est l'adresse du tableau ( à adapter)

A+

Edit : Bonjour DoubleZero :)
 
Dernière édition:

DoubleZero

XLDnaute Barbatruc
Bonjour, filouplatchaud, Calvus :), Paf :), le Forum,

Une autre suggestion, par clic double :
VB:
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal c As Range, Cancel As Boolean)
    Application.Goto Worksheets("Feuil2").Range(c.Address) ', True
End Sub
A bientôt :)
 

filouplatchaud

XLDnaute Occasionnel
2016-12-26.png
 

Paf

XLDnaute Barbatruc
Re tous,

J'ai copier les deux code placé directement dans la feuille pas en meme temps bien sur

Est ce à dire que le code:

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:H25")) Is Nothing Then
    Application.Goto Worksheets("Feuil2").Range(Target.Address) ', Scroll:=True
End If
End Sub

est placé dans la feuille de code de la feuille Réservations
Il faut bien sûr adapter le code proposé avec le nom de la feuille Occupation au lieu de Feuil2.

A+
 

Discussions similaires

Réponses
24
Affichages
731

Statistiques des forums

Discussions
311 733
Messages
2 082 008
Membres
101 864
dernier inscrit
elrecruiter