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

[filouplatchaud]

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

 

[Calvus]

Bonsoir,

Sub Machin
If Selcection = [A1] Then Sheets("Feuil2").Activate
[A1].Select
End Sub

A+

 

[Paf]

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:

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 🙂

 

[DoubleZero]

Bonjour, filouplatchaud, Calvus 🙂, Paf 🙂, le Forum,

Une autre suggestion, par clic double :

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]

bon soir

j'ai tout essayer mais cela ne fonctionne pas.

 

[filouplatchaud]

Bonsoir le forum;00,Calvus,Paf

merci a vous j'ai tout essayer mais rien ne fonctionne

 

[Paf]

Re tous,

Pour la proposition de DoubleZero et la mienne, où avez vous copier le code ?
Comment se nomment la feuille 1 et la feuille 2 ?

A+

 

[filouplatchaud]

J'ai copier les deux code placé directement dans la feuille pas en meme temps bien sur
j'ai aussi esayer dans un module
la feuille 1 Réservations
feuille 2 Occupation

 

[DoubleZero]

Bonjour, le Fil 🙂, le Forum,

Merci de bien vouloir déposer une copie du fichier de travail sans donnée confidentielle.

A bientôt 🙂

 

[filouplatchaud]

 

[DoubleZero]

Re-bonjour,

Regarde la pièce jointe 979644

Cf. #9

A bientôt 🙂

 

[Paf]

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:

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+

 

[filouplatchaud]

bonjour
voila j'ai effacé les donnés confidentiel de mon tableau mais je ne voudrais pas le laisser libre
donc je voudrais savoir si DoubleZéro ou Paf seraient intéressé de regarder mon problème en
privé

merci a vous

 

[JCGL]

Bonjour à tous,

Heureusement que beaucoup sur XLD partage leur travail...

A+ à tous

 

[filouplatchaud]

Heureusement