Masquer colonne tableau référence structurée [macro Excel]

L

Lolote83

XLDnaute Barbatruc

• 22 Novembre 2019

• #2

Salut ALEX BOU,
En mettant entre crochet les colonnes que tu souhaites cacher comme : Range("Tab_Client[[Adresse1]:[Ville]]").Columns.Hidden = True

@+ Lolote83

 

Vote positif 0 Vote négatif

A

Alex Bou

XLDnaute Nouveau

• 22 Novembre 2019

• #3

Merci, ça ne marche pas, voici la ligne exacte que j'utilise pour ce tableau:

VB:

Range("VI[[Mener une recherche et une veille d'information]:[Protéger les données personnelles et la vie privée]]").Columns.Hidden = True

Est-ce que cela vien des noms trop longs avec accents et espaces ?

Je souhaite masquer de N jusque T inclus

 

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 22 Novembre 2019

• #4

Re bonjour,
Je ne sais pas répondre à ta question, mais sur les test que j'ai fait sur mon fichier, cela fonctionnait.
Essaye avec un tableau plus petit et des noms plus courts, mais j'y crois pas trop.
Sinon, tu as toujours la possibilité de masquer les colonnes à la mano, ou de faire un données->Grouper et tu auras tes colonnes masquées avec un petit + pour afficher/masquer
Clic sur le + et cela affiche les colonnes


@+ Lolote83

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 24 Novembre 2019

• #5

Bonjour le fil, Alex Bou, Lolote83

Fonctionne chez moi
(1ere exécution Masque , 2ième exécution => Démasque)

VB:

Sub MasqueDemasque_NT()
Dim tbl As ListObject
Set tbl = ActiveSheet.ListObjects(1) 'ici adapter selon besoin
tbl.DataBodyRange(, 14).Resize(, 7).EntireColumn.Hidden = Not tbl.DataBodyRange(, 14).Resize(, 7).EntireColumn.Hidden
End Sub

Je te laisse faire les adaptation au niveau du tableau (nom)

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 24 Novembre 2019

• #6

Re

Celle-ci aussi (et elle prend un peu moins de place)

VB:

Sub MasqueDemasque_NT_v2()
Dim tbl As ListObject, rng As Range
Set tbl = ActiveSheet.ListObjects(1): Set rng = tbl.DataBodyRange(, 14).Resize(, 7)
rng.EntireColumn.Hidden = Not rng.EntireColumn.Hidden
End Sub

 

Vote positif 0 Vote négatif

A

Alex Bou

XLDnaute Nouveau

• 26 Novembre 2019

• #7

Staple1600 à dit:

Re

Celle-ci aussi (et elle prend un peu moins de place)

VB:

Sub MasqueDemasque_NT_v2()
Dim tbl As ListObject, rng As Range
Set tbl = ActiveSheet.ListObjects(1): Set rng = tbl.DataBodyRange(, 14).Resize(, 7)
rng.EntireColumn.Hidden = Not rng.EntireColumn.Hidden
End Sub

Cliquez pour agrandir...

Merci ça marche parfaitement !

 

Vote positif 0 Vote négatif