Tableau structuré VBA - Ligne active, colonne active

Bonjour,

Dans un tableau structuré, je n'arrive pas à trouver les propriétés permettant de renvoyer la colonne et/ou la ligne d'une cellule sélectionnée.
N'y-a-t'il pas d'autre choix que de passer par Activcell.Column et Activecell.Row de la feuille Excel?
Merci d'avance.

Jason91

Bonjour Jason91

Tout ce qu'il faut est ici ;)
https://excel.developpez.com/cours/?...-base#tableaux

A+

Hello,

Citation:

---

Envoyé par Jason91

Dans un tableau structuré, je n'arrive pas à trouver les propriétés permettant de renvoyer la colonne et/ou la ligne d'une cellule sélectionnée.
N'y-a-t'il pas d'autre choix que de passer par Activcell.Column et Activecell.Row de la feuille Excel?

---

Quel est l'intérêt ? Que souhaiterais-tu récupérer par exemple dans l'exemple suivant si la cellule D7 est la cellule active :

Pièce jointe 627227

Ami calmant, J.P

Salut Bruno45,

Merci d'avoir pris le temps de me répondre, mais je maîtrise bien la manipulation des tableaux structurés dans les feuilles Excel. Ce que je ne trouve pas, et apparement cela ne semble pas exister, c'est l'équivalent de Activecell d'un tableau structuré en VBA.
Merci. Cordialement

Citation:

---

Envoyé par jurassic pork

Hello,

Quel est l'intérêt ? Que souhaiterais-tu récupérer par exemple dans l'exemple suivant si la cellule D7 est la cellule active :

Pièce jointe 627227

Ami calmant, J.P

---

Salut,

J'ai besoin de connaître le nom de la colonne et le numéro de la ligne du tableau structuré pour tracer une modification dans une feuille annexe (comme un journal). C'est important car c'est pour un document officiel traitant de la sécurité des machines industrielles, et on doit tracer toute modification d'une analyse de risque, c'est un requis juridique.
S'il n'existe pas le moyen de récupérer ces information, je passerai par Activecell en extrapolant la position relative du tableau dans la feuille, ce que je voulais éviter.
Merci d'avance. Cordialement

Citation:

---

Envoyé par Jason91

S'il n'existe pas le moyen de récupérer ces information, je passerai par Activecell en extrapolant la position relative du tableau dans la feuille, ce que je voulais éviter.
Merci d'avance. Cordialement

---

Je ne sais pas le code que tu utilises pour cela mais avec le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Test() Dim r As Range, lo As ListObject Dim ColumnName Set r = ActiveCell Set lo = r.ListObject If Not lo Is Nothing Then ColumnName = Intersect(lo.HeaderRowRange, r.EntireColumn).Value Debug.Print "Table : " & lo.Name Debug.Print "Colonne : " & ColumnName Debug.Print "N° Ligne de données : " & r.Row - lo.Range.Row End If End Sub

---

J'obtiens ceci pour ma cellule D7 sélectionnée dans ma table :

Citation:

---

Table : sales
Colonne : Customer ID
N° Ligne de données : 3

---