XL 2010 Formater Colonne d'un Listobject

[cathodique]

Bonjour,

Je voudrais formater une colonne d'un tableau structuré sur la base de ce qui suit:

Dim LO As ListObject

Set LO = Sheets("bd").ListObjects(1)
LO.Columns("Id").Range.NumberFormat = "#,##0"  'plante'
LO.DataBodyRange.Columns("Id").Range.NumberFormat = "#,##0"  'plante'
'je ne trouve pas la bonne syntaxe'

Je ne veux pas utiliser la ligne ci-dessous
Range("NomTableau[Id]").NumberFormat = "#,##0"

Je voudrais apprendre et comprends l’utilisation du ListObject.

Bon 1er Mai.

 

[Staple1600]

Bonjour @cathodique

Test OK chez moi avec cette syntaxe

Sub test_OK()
Dim LO As ListObject
Set LO = ActiveSheet.ListObjects(1)
LO.ListColumns("Id").DataBodyRange.NumberFormat = "#,##0"
End Sub

 

[cathodique]

Bonjour @cathodique

Test OK chez moi avec cette syntaxe

Sub test_OK()
Dim LO As ListObject
Set LO = ActiveSheet.ListObjects(1)
LO.ListColumns("Id").DataBodyRange.NumberFormat = "#,##0"
End Sub

Bonjour @Staple1600 ,

C'est parfait. C'était assez simple. Je faisais du n'importe quoi.

Merci beaucoup.

Excellente journée.

 

[Cousinhub]

Bonjour,
(Hello Stapple)
Pour répondre à ta dernière

Je voudrais apprendre et comprends l’utilisation du ListObject.

Tu peux commencer par ceci
Bonne lecture

 

[Staple1600]

Re, Bonjour @Cousinhub

@cathodique
Cette syntaxe aussi fonctionne
LO.ListColumns("Id").Range.NumberFormat= = "#,##0"

 

[job75]

Bonjour à tous,

Oui il vaut mieux utiliser Range car DataBodyRange peut être Nothing...

A+

 

[job75]

On peut tout bêtement repérer la colonne par son numéro :

LO.Range.Columns(2).NumberFormat = "#,##0"

 

[Staple1600]

Bonjour @job75

Oui mais si on insère une colonne dans le tableau, ce sera toujours la 2ième qui recevra le format
Alors qu'en nommant la colonne, le format s'appliquera sur la colonne voulue.

Sub test_OK()
Dim LO As ListObject
Set LO = ActiveSheet.ListObjects(1)
LO.ListColumns("Id").Range.NumberFormat = "#,##0"
End Sub

Sub test_PasOK()
Dim LO As ListObject
Set LO = ActiveSheet.ListObjects(1)
'OK si N° colonne mais problème si insertion colonne
LO.Range.Columns("Id").NumberFormat = "#,##0"
End Sub

 

[TooFatBoy]

Bonjour,

Oui mais si on insère une colonne dans le tableau, ce sera toujours la 2ième qui recevra le format
Alors qu'en nommant la colonne, le format s'appliquera sur la colonne voulue.

Oui mais si on change l'en-tête de la colonne, ça plantera
Alors qu'en utilisant la colonne ça continuera de fonctionner.

 

[Staple1600]

Re

@TooFatBoy
Si on insère une nouvelle colonne, il n'y a pas de raison de renommer la nouvelle colonne Id, non ?
Puisqu'il existe déjà une colonne Id dans le tableau.
Le message#8 est juste le retour d'expérience de mon dernier test.
(avec toutes les syntaxes présentes dans le fil)
Ni plus, ni moins.

 

[TooFatBoy]

Si on insère une nouvelle colonne, il n'y a pas de raison de renommer la nouvelle colonne Id, non ?

Il n'y a aucune raison d'insérer une colonne !
En revanche il est évident que si le chef de service veut un autre nom pour l'en-tête il faut obligatoirement le modifier. C'est pourtant évident. Non ?


Les messages #9 et #10 ne sont que des blagues
Ni plus, ni moins.

 

[Staple1600]

Re

@TooFatBoy
Il y a la raison et il y a l'ICC
Et ce sera toujours l'ICC qui malencontreusement insérera une colonne parce ce que c'est dans sa nature.
PS: le message#10 n'est pas une blague.
C'est parce que j'ai fait le test en insérant une colonne, que j'ai posté le message#8.
J'évoque juste ce que j'ai constaté.

 

[TooFatBoy]

PS: le message#10 n'est pas une blague.

Eh oui, hélas. Et je l'avais bien compris.

@TooFatBoy
Il y a ...

Pour stopper là je déclare officiellement que tu as raison sur tous les points.



Bon après-midi férié et ensoleillé

 

[Staple1600]

Re

Spoiler: aparté autour du formatage d'un ListObject

C'est dommage que la création d'un Style n'offre pas la possibilité de modifier le format numérique des cellules.

D'autant plus, que c'est accessible avec l'enregistreur de macros

Sub Macro()
ActiveWorkbook.TableStyles.Add ("Test")
    With ActiveWorkbook.TableStyles("Test")
        .ShowAsAvailablePivotTableStyle = False
        .ShowAsAvailableTableStyle = True
        .ShowAsAvailableSlicerStyle = False
        .ShowAsAvailableTimelineStyle = False
    End With
    With ActiveWorkbook.TableStyles("Test").TableStyleElements(xlFirstColumn). _
        Interior
        .Color = 255
        .TintAndShade = 0
    End With
End Sub