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.
Voici les quelques lignes de code qui devraient te convenir:
Code:
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
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