Comment afficher le nom d'un tableau ou d'un tableau croisé dynamique dans une cellule dans Excel?

Cet article parle de l'affichage d'un nom de tableau ou de tableau croisé dynamique spécifié dans une cellule dans Excel.

Afficher le nom du tableau ou du tableau croisé dynamique dans une cellule avec le code VBA

Afficher le nom du tableau ou du tableau croisé dynamique dans une cellule avec le code VBA

Le code VBA suivant peut vous aider à afficher un nom de tableau ou de tableau croisé dynamique spécifié dans une cellule. Veuillez faire comme suit.

1. appuie sur le autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module. Copiez ensuite le code VBA ci-dessous dans la fenêtre Module.

Code VBA: afficher le nom du tableau ou du tableau croisé dynamique dans une cellule

Function getObjName(rng As Range) As String
‘Updated by Extendoffice 20180420
    Dim xTable As ListObject
    Dim xPivotTable As PivotTable
    Dim xTableName As String
    Dim xPtName As String
    On Error Resume Next
    xTableName = ""
    xPtName = ""
    Set xTable = rng.Cells(1).ListObject
    xTableName = "Table[" & xTable.Name & "]"
    If xTable Is Nothing Then
        Set xPivotTable = rng.Cells(1).PivotTable
        xPtName = "Pivot [" & xPivotTable.Name & "]"
    End If
    getObjName = xTableName & xPtName
End Function

3. appuie sur le autre + Q touches pour quitter Microsoft Visual Basic pour applications fenêtre.

4. Sélectionnez une cellule vide, entrez la formule =getObjName(A2) dans la barre de formule, puis appuyez sur la touche Entrée. Voir la capture d'écran:

Florales:

Articles Liés:

• Comment lister tous les noms de table dans Excel?
• Comment garder le tableau extensible en insérant une ligne de tableau dans une feuille de calcul protégée dans Excel?
• Comment réorganiser la position des colonnes dans un tableau dans Excel?
• Comment masquer les lignes de valeur zéro dans le tableau croisé dynamique?