Manipuler tableau structuré autre feuille non active

Bonjour,

Je génère un tableau structuré sur une feuille non active sans problème.

Code:

---

1 2 3 4 5 6 7

'Creation du tableau OK With Sheets("Resultat") .ListObjects.Add(xlSrcRange, .Range("$A" & Ma_Ligne + 1 & ":$U" & .Range("A1048576").End(xlUp).Row), , xlYes).Name = _ "Tab_R5" .ListObjects("Tab_R5").TableStyle = "TableStyleMedium2" End With

---

Par contre je n'arrive pas à en modifier la mise en forme il me faut activer la feuille.

J'ai essayé par le with comme pour la creation, mais cela ne fonctionne pas.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

With Sheets("Resultat") Range("Tab_R5[Mach],Tab_R1[Bob],Tab_R5[Dec],Tab_R5[Motif]").Select With Selection.Font .Color = -16776961 .TintAndShade = 0 End With End With   'J'ai bien essayé en vain   ' .ListObjects.Range("Tab_R5[Mach],Tab_R1[Bob],Tab_R5[Dec],Tab_R5[Motif]").Select

---

C'est pour comprendre car en activant la feuille ça passe.

Merci pour vos conseils
Denis

Bonjour,
Il n'y a aucune raison de sélectionner la feuille où se trouve un objet pour en modifier une ou plusieurs de ses propriétés

Exemple

Code:

---

1 2 3

Sub t() Range("t_client[Nom]").Font.Color = vbRed End Sub

---

ou encore

Code:

---

Range("t_client").ListObject.ListColumns("Nom").DataBodyRange.Font.Color = vbRed

---

Attention : En revanche dans ces deux exemples, le classeur où se trouve l'objet doit être actif

Merci Philippe !

En effet c'est logique, c'est le select hérité de l'enregistreur (comme souvent) qui me génèrait mon problème, et c'est logique avec le sélect je pense.
en appliquant directement le format cela fonctionne.

Denis

Bonjour Denis,

Citation:

---

c'est logique avec le sélect je pense

---

Exactement. L'enregistreur peut servir à connaître les méthodes et propriétés des objets que nous manipulons rarement mais il ne faut en aucun cas le suivre dans ce qu'il produit tant il est "bavard".

Les méthodes Activate, Select et la propriété Selection sont à proscrire de nos codes, sauf cas exceptionnel.