format de cellules en VBA

[sonskriverez]

Bonjour le forum,

J'ai une feuille avec un nombre X de colonnes, je voudrais que chaque 1 ere cellule de chaque colonne soit an Arial, 12, couleur de Texte Bleu, Couleur du fond gris clair.

merci de votre aide

 

[JYLL]

Bonjour sonskriverez,

Voici les quelques lignes de code qui devraient te convenir:

Sub Mise_en_Forme()
For i = 1 To Sheets.Count
    Sheets(i).Activate
    Cells(1, 1).Select
    Selection.Font.ColorIndex = 41
    With Selection.Interior
        .ColorIndex = 15
        .Pattern = xlSolid
    End With
    Sheets('Feuil1').Select
    Next
End Sub

Bon test et bonnes fêtes.

Jean-Yves

 

[excalibur]

bonjour visiteur jyll le forum tu fais simplement tu clic sur le 1 pour selectionner la premiere ligne puis clic droit de ta souris format de cellule & la du defini la police le fond ect.. ou par macro Sub Macro1()
Rows('1:1').Select
With Selection.Font
.Name = 'Arial'
.FontStyle = 'Normal'
.Size = 12
.ColorIndex = 5
End With
With Selection.Interior
.ColorIndex = 15
End With
End Sub'salutations

 

[sonskriverez]

Ca marche bien, merci et bonne Fêtes 😉