Comment afficher le nom d'une table ou d'un tableau croisé dynamique dans une cellule dans Excel ?
Cet article explique comment afficher le nom d'une table ou d'un tableau croisé dynamique spécifique dans une cellule dans Excel.
Afficher le nom d'une table ou d'un tableau croisé dynamique dans une cellule avec du code VBA
Afficher le nom d'une table ou d'un tableau croisé dynamique dans une cellule avec du code VBA
Le code VBA suivant peut vous aider à afficher le nom d'une table ou d'un tableau croisé dynamique spécifié dans une cellule. Veuillez procéder comme suit.
1. Appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.
2. Dans la fenêtre Microsoft Visual Basic for Applications, cliquez sur Insertion > Module. Ensuite, copiez le code VBA ci-dessous dans la fenêtre Module.
Code VBA : Afficher le nom d'une table ou d'un 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. Appuyez sur les touches Alt + Q pour quitter la fenêtre Microsoft Visual Basic for Applications.
4. Sélectionnez une cellule vide, entrez la formule =getObjName(A2) dans la Barre de formule et appuyez ensuite sur la touche Entrée. Voir capture d'écran :
Remarques :
Articles connexes :
- Comment lister tous les noms de tables dans Excel ?
- Comment garder une table extensible en insérant une ligne de table dans une feuille de calcul protégée dans Excel ?
- Comment réorganiser l'ordre des colonnes dans une table dans Excel ?
- Comment masquer les lignes de valeurs zéro dans un tableau croisé dynamique ?
Meilleurs outils de productivité pour Office
Boostez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité sans précédent. Kutools pour Excel propose plus de300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office, et facilite grandement votre travail
- Activez la modification et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de50 %, et réduit des centaines de clics de souris pour vous chaque jour !