Discussion :

[oliver75]

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 :

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

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

[ouskel'n'or]

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 :

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

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

[oliver75]

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

[ouskel'n'or]

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 :

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

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