Target et tableau structuré

Version imprimable

22/04/2020, 10h46
LG-69

Target et tableau structuré

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
22/04/2020, 12h12
Patrice740

Bonjour,

Citation:

Envoyé par LG-69

... 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 ...
22/04/2020, 13h31
boisgontierjacques

Bonjour,

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

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

Boisgontier
23/04/2020, 16h08
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.

1 pièce(s) jointe(s)

Bonjour,

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

Exemple en PJ

Code:

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

Bonjour,
Autre solution

Code:

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

24/04/2020, 08h35
LG-69

Merci à tous les deux pour ces compléments d'information.

Si je comprends bien les solutions proposées :

- Jacques propose de vérifier qu'on a bien intersection entre la target et le tableau (en gros que ma target est bien dans le tableau), si c'est le cas retranche la position (numéro de ligne) du début de tableau à la positon (numéro de ligne) de ma target
- Philippe récupère l'objet dans lequel se trouve la target et si la target est bien une cellule (1 seul élément) et retranche la position de l'objet (tableau) contenant la target à la position de la target

Dans les deux cas on aura bien la position (ligne) de la target dans le tableau