Discussion :

[Denis_67]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ou encore

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  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

[Denis_67]

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

[Philippe Tulliez]

Bonjour Denis,

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.