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