Discussion :

[LG-69]

Bonjour à tous,

Petite question :
- J'ai un tableau structuré : "MonTableau"
- Je détecte l'événement : Change() sur ma feuille excel

Dans ma macro que se lance je souhaite récupérer la position de la cellule modifiée dans mon tableau structuré or quand je fait un target.row il donne le numéro de la ligne dans la feuille et non dans le tableau.
J'ai trouvé un moyen d'avoir ce numéro de ligne en retranchant à mon target.row la position de mes entêtes de tableau range("MonTableau[[#headers]]").row
Mais n'y a-t-il pas moyen de récupérer directement la position de target dans le tableau ?

Merci à vous

[Patrice740]

Bonjour,

... quand je fait un target.row il donne le numéro de la ligne dans la feuille
...en retranchant à mon target.row la position de mes entêtes de tableau range("MonTableau[[#headers]]").row

C'est la méthode la plus simple ...

[boisgontierjacques]

Bonjour,

Il n'y a pas besoin de double "["

Range("MonTableau[#headers]").Row suffit

Boisgontier

[LG-69]

Merci bien pour vos retours. C'est dommage qu'il n'y ait pas de solution plus simple ou pus "propre" mais bon, au moins ça marche.

[boisgontierjacques]

Bonjour,

PosTableau=Target.Row-Range("MonTableau).Row +1 doit suffire

Exemple en PJ

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Not Intersect([tableau1], Target) Is Nothing Then
     pos = Target.Row - [tableau1].Row + 1
     MsgBox [tableau1[nom]].Item(pos, 1)
   End If
End Sub

Boisgontier

[Philippe Tulliez]

Bonjour,
Autre solution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim oList As ListObject
  Set oList = Target.ListObject
  If Not oList Is Nothing And Target.Count = 1 Then
    MsgBox Target.Row - oList.Range.Row
  End If
  Set oList = Nothing
End Sub