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
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal c As Range, Cancel As Boolean)
Application.Goto Worksheets("Feuil2").Range(c.Address) ', True
End Sub
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
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.
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é