XL 2010 Formater Colonne d'un Listobject

cathodique · 1 Mai 2024

Bonjour,

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

VB:

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 · 1 Mai 2024

Bonjour @cathodique

Test OK chez moi avec cette syntaxe

VB:

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

Staple1600 · 1 Mai 2024

Bonjour @cathodique

Test OK chez moi avec cette syntaxe

VB:

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

cathodique · 1 Mai 2024

Staple1600 à dit:
Bonjour @cathodique

Test OK chez moi avec cette syntaxe

VB:

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 · 1 Mai 2024

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

cathodique à dit:
Je voudrais apprendre et comprends l’utilisation du ListObject.

Tu peux commencer par ceci
Bonne lecture

Staple1600 · 1 Mai 2024

Re, Bonjour @Cousinhub

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

job75 · 1 Mai 2024

Bonjour à tous,

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

A+

job75 · 1 Mai 2024

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

VB:

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

Staple1600 · 1 Mai 2024

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.

VB:

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

Code:

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 · 1 Mai 2024

Bonjour,

Staple1600 à dit:
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 · 1 Mai 2024

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 · 1 Mai 2024

Staple1600 à dit:
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 · 1 Mai 2024

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 · 1 Mai 2024

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

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

Staple1600 à dit:
@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 · 1 Mai 2024

Re

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

Code:

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

XL 2010 Formater Colonne d'un Listobject

cathodique

XLDnaute Barbatruc

Staple1600

Staple1600

XLDnaute Barbatruc

cathodique

XLDnaute Barbatruc

Cousinhub

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Discussions similaires