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