Application d'un style sur ListObject

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:

---

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

Re...

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

...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

Code:

---

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...

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:

---

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:

---

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

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

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...

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:

---

=(MOD(LIGNE();2)=0)

---

puis détermine le format à appliquer...

Bien vu ;)

merci encore