Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim L As Byte
'En cliquant sur une cellule de la colonne "Macro" du "Tableau1"
If Not Application.Intersect(Target, Range("Tableau1[Macro]")) Is Nothing Then
'Je récupère l'adresse de la cellule active
L = ActiveCell.Row 'ligne active
'L2 =
MsgBox (L)
'===AVANTAGE===
'Cela ne fonctionne QUE pour les cellules intégrées au tableau
'Je vais pouvoir récupérer la valeur de la colonne [ET_2] du "Tableau1"
V1 = Range("D" & L).Value
MsgBox (V1)
'Mais, au lieu de coder en dur la colonne "D", je souhaiterai
'utiliser la référence dynamique de la colonne du "Tableau1[ET_2]"
'V2 = Range("Tableau1[@ET_2]" & L) 'échec de la méthode Range
'V2 = Range("Tableau1[ET_2]" & L) 'échec de la méthode Range
V2 = Range("Tableau1[ET_2]")(L) 'me renvoit une sélection vide
MsgBox (V2) '===???===
'PAS TOUT A FAIT... me renvoit la Xème Ligne de la colonne!!!
'du coup, il faut que je récupère le numéro de la ligne
'non pas de la feuille 'mais de mon "tableau1"!!!
End If
End Sub