XL 2010 Table Structurée - Couleur style

[vgendron]

Hello

Sauriez vous me dire s'il est possible (et comment) de recupérer la couleur d'un style de table structurée
dans l'exemple ci joint, j'ai créé une table (t_Vierge) avec le style "Bleu style de tableau moyen 2"
j'aimerai pouvoir récupérer l'indice couleur de la ligne d'entete. afin de le réutiliser sur des cellules "Hors table"
dans l'exemple: colorer A7:B7 comme A17:B17

si je fais range("A8").interior.color: il ne voit pas de couleur...

il y a surement un moyen d'aller voir les propriétés d'un style prédéfini....

 

[TooFatBoy]

Bonjour,

Est-ce qu'il n'y a pas une histoire de DISPLAY ?

 

[vgendron]

Hello @TooFatBoy

Display?

je ne connais pas ca... qu'entends tu par ca?

 

[TooFatBoy]

Range("A8").DisplayFormat.Interior.Color peut-être ???

Désolé, je ne peux pas tester actuellement. 🙁

 

[vgendron]

DisplayFormat.Interior.Color peut-être ???

Désolé, je ne peux pas tester actuellement. 🙁

Exactement ca !!
Merci
bon bah. je vais pouvoir me coucher serein 🙂

 

[TooFatBoy]

Content pour toi si ton problème est résolu, camarade. 😉

Bonne nuit

 

[Dranreb]

Bonsoir.
Il est quand même possible de récupérer ces infos de la propriété TableStyle du ListObject.
Partez en liaisons anticipées sinon c'est imbitable.

Retrouvé ça :

[RESOLU] Obtenir code couleur RGB ou Hexadecimal

Bonjour,:) J'ai mis en forme une plage de données en un tableau structuré excel. J'ai voulu utiliser la couleur de ce tableau sur une autre feuille sans utiliser le copier coller la mise en forme, mais plutôt par un code couleur. La fonction ci-dessous me donne le code de la couleur de l'une...

excel-downloads.com

 

[vgendron]

Hello @Dranreb

merci, effectivement, c'est plus "long" quie de passer par le display, mais sans doute plus "précis"
par liaison anticipée. tu entends "faire un set = ....tablestyle?

j'ai remarqué justement que la saisie semi automatique atteint un niveau qui dépend de la déclaration

si je fais juste

Dim t As ListObject
Set t = ActiveSheet.ListObjects("t_vierge")

==>la saisie semi auto propose bien .tablestyle mais plus rien après

alors que si je déclare

Dim Tse As TableStyle
Set Tse = ActiveSheet.ListObjects("t_Vierge").TableStyle

==>la saisie semi propose jusqu'au niveau interior.color

étonnant..