[VBA-E]modifier police et couleur dans un tableau

Bonjour,

Je cherche à mettre dans mon tableau "en gras et de couleur bleu" les portefeuille 1/2/3/4 ci dessous.

Mon code est le suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub construction_1erecol() Dim Col, J   Col = Array("portefeuille 1", "portefeuille 2", "portefeuille 3", "portefeuille 4") J = 2 For Each Value In Col Cells(J, 1).FormulaR1C1 = Col(J - 2) J = J + 1 Next   End Sub

---

Quelqu'un a t-il un code sous le coude pour permettre cela?

Par avance merci pour votre aide.

Olivier

As-tu essayé d'enregistrer une macro en faisant ? Ça te donnerait le code pour gras et pour la couleur. Tu n'aurais plus qu'à l'appliquer à ta cellule ;)
A+

Tiens, pour connaître l'index des couleurs disponibles, j'ai ça qui te donnera la syntaxe en même temps

Code:

---

1 2 3 4 5 6 7 8

Sub CouleursIndex() Cells(1, 1).Value = "ColorIndex" Cells(1, 2).Value = "Couleur" For i = 2 To 57 Cells(i, 2).Interior.ColorIndex = i - 1 Cells(i, 1).Value = i - 1 Next End Sub

---

Merci. c'est ok pour la couleur par contre je n'arrive pas à mettre les lignes en gras.
:roll:

Même en enregistrant la macro en faisant ? Propriété Font.Bold = True, ça ne te dit rien ? Tu n'as pas bien cherché.

Code:

---

Cells(10, 5).Font.Bold = True

---