Discussion :

[Jason91]

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

[Invité]

Bonjour Jason91

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

A+

[Jason91]

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

[jurassic pork]

Hello,

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 :



Ami calmant, J.P

[Jason91]

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 :



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

[jurassic pork]

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 :

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

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 :

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