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

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+
 

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
283 682
Messages
1 853 490
Membres
152 184
dernier inscrit
LegVal10
Haut Bas