Application d'un style sur ListObject

**siuol** · 16/10/2009, 13h52

Bonjour

soit un ListObjet de 100 lignes

dont 10 de "remplies"

si à la main je choisi de changer le style en écrasant l'ancienne mise en forme.

les 100 lignes sont bien affectées.

Si je le fait en Vba, seules les ligne non vides sont affectées !!!

Ou est l'erreur ?

Code :

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

1
2
Range("Table1[#All]").Select
ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleLight7"

merci

Oups ...

je n'ai pas tout dit...

ce n'est pas le style "TableStyleLight7" que je veux appliquer mais un style perso... "MonStyle" créé par duplication/modification

mais çà ne change pas grans chose au problème...

En gros je veux faire en vba l'équivalent de:

"Metre sous forme de tableau" + "Appliquer et supprimer la mise en forme "

merci d'avance

**Pierre Fauconnier** · 16/10/2009, 15h29

Re...

Pourquoi sélectionnes-tu la plage avant? Ce n'est pas nécessaire.

**siuol** · 16/10/2009, 16h04

...C'est un reste de l'enregistreur de macro...

toujours est-t-il que cela ne suffit pas pour faire l'équivalent de:

"Metre sous forme de tableau" + "Appliquer et supprimer la mise en forme "

il semble qu'il faille suprimer la mise en forme avant...

mais que les parties Police,bordure et remplissage...

et je ne sais pas faire simplement

merci
Louis

**Pierre Fauconnier** · 16/10/2009, 16h15

Code :

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

Activesheet.ListObjects("Tableau1").TableStyle="tablestylemedium14"

fonctionne très bien. Attention que pour les styles préétablis, tu dois utiliser le nom anglais du style

Es-tu sûr de la taille de ton tableau? Lorsque tu fais la modif à la main, cela fonctionne?

Il faut évidemment que les couleurs et polices des cellules de ton tableau soient des couleurs et police de thème, car changer de thème n'affecte que les couleurs et polices de thème...

Donc, avant de réaliser la modif, tu dois mettre le fond de ton tableau à "aucun remplissage", tu dois choisir une police et une couleur de thème. Après, tu peux alors modifier le thème à ta guise, manuellement ou par macro.

Note également que les formats conditionnels sont prioritaires aux formats de thème...

**siuol** · 16/10/2009, 16h44

J'ai supprimé toute notion de style perso

J'utilise bien les noms anglais des styles

Je redimentionne mon tableau avant d'appliquer le style

Lorsque je fais la manip à la main, cela fonctionne

Voici mon code actuel : le but est d'appliquer un format de "lignes à bandes" aux lignes 3 à 100 des colonne A à N (puisque les formats automatique n'existent plus en 2007...)

j'applique intentionnellement 2 styles de suite avec un stop entre les 2 pour le déboguage...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Zonage()
    If ActiveSheet.ListObjects.Count = 0 Then
        ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$3:$N$500"), "Tablestyledark4", xlYes).Name = "Table1"
    Else
        ActiveSheet.ListObjects(1).Name = "Table1"
        ActiveSheet.ListObjects(1).Resize Range("A3:N400")
    End If
    ActiveSheet.ListObjects("Table1").TableStyle = "Tablestylemedium2"
    Stop
    ActiveSheet.ListObjects("Table1").TableStyle = "Tablestyledark4"
 
 
    ActiveSheet.ListObjects("table1").Unlist
    Range("a1").Select
End Sub

merci

merci j'ai ajouté :

Code :

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

1
2
3
4
5
6
7
8
9
10
Range("a3:n500").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    With Selection.Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With

la notion de thème ..etc. n'était pas Evidente pour moi...

merci encore

**Pierre Fauconnier** · 16/10/2009, 17h00

Si c'est uniquement pour appliquer des couleurs alternées, tu n'es pas obligé de passer par une mise en tableau. Tu peux utiliser un format conditionnel, manuel ou via VBA, pour alterner tes couleurs de ligne

**siuol** · 16/10/2009, 17h33

J'ai bien regardé du côté des formats conditionnels mais je n'ai rien trouvé en rapport avec les lignes alternées

et comme l'aide dit :

Vous pouvez rapidement ajouter un ombrage aux lignes paires et impaires en appliquant un style de tableau Excel prédéfini, puis en reconvertissant le tableau créé en plage standard. La mise en forme du style de tableau que vous avez appliqué est conservée.
.... je voulais juste automatiser cela...

**Pierre Fauconnier** · 16/10/2009, 17h36

C'est une bonne technique aussi, mais il ne faut pas devoir insérer des lignes par la suite, sinon, il faudra refaire la manip.

Lignes alternées en format conditionnel

Sélectionne la zone sur laquelle tu veux placer l'alternance de couleur
Dans Format Conditionnel, choisis "Nouvelle règle" puis "Utiliser une formule..."
et saisis ceci

Code :

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