Macro lien entre deux feuilles

Bonjour,

Dans un classeur, j’ai deux feuilles, la feuille 1 un tableau avec des produits (ligne10 produit 1, ligne11 produit 2, ligne12 produit 3…..) et une feuille 2 détail de distribution d’un produit de la feuille 1(colonne 4 détail produit 1, colonne 5 détail produit 2, colonne 6 détail produit 3 …).

Je cherche une macro Sous VBA,

lorsque je clique ou double clique sur la première cellule de la ligne11 produit 2 (par exemple) de la feuille 1 d’aller sur la feuille 2 et sur la colonne 5 détail du produit 2.

En fait créer un lien entre deux feuilles avec comme critère ("feuille1, colonne A et cellule xx" aller sur "feuille 2, colonne XX, ligne 4)

Merci de votre aide.

fichier en PJ

J'utilise Excel version 2010

Cordialement

Bonjour

Code Feuille "Produits"

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A2", Range("A2").End(xlDown))) Is Nothing Then
Call Test
End If
End Sub

Codes dans Module standard

Sub Test()
Dim j
j = ActiveCell.Value
Sheets("Detail_Produits").Activate
i = Application.WorksheetFunction.Match(j, Sheets("Detail_Produits").Range("A4:UZ4"), 0)
Range("D4:UZ4").EntireColumn.Hidden = True
Columns(i).Hidden = False
End Sub

Et pour tout réafficher (Bouton)

Sub Affiche()
    Cells.Select
    Selection.EntireColumn.Hidden = False
    Range("A1").Select
End Sub

Cordialement

Bonjour,

Super et merci

Cordialement