[VBA-E] Mise en page d'une feuille

Bonjour,

J'ai besoin de votre aide pour finir mon application, je n'arrive pas à mettre en page ma feuille excel, a la fin de ma procédure j'arrive sur la feuile nommé "trucmuche" et je souhaiterai (j'ai commencé mon tableau a la ligne 2) ecrire les titres des colonnes (Désignation,Catégorie....)?

J'ai fait ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

ActiveCell.Range("A1").Select ActiveCell.FormulaR1C1 = "Désignation" ActiveCell.Range("B1").Select ActiveCell.FormulaR1C1 = "Catégorie" ActiveCell.Range("C1").Select ActiveCell.FormulaR1C1 = "Localisation" ActiveCell.Range("D1").Select ActiveCell.FormulaR1C1 = "Montant" ActiveCell.Range("E1").Select ActiveCell.FormulaR1C1 = "Qté Réel" ActiveCell.Range("F1").Select ActiveCell.FormulaR1C1 = "Qté en Stock" ActiveCell.Columns("B:B").Select ActiveCell.FormulaR1C1 = "Catégorie" ActiveCell.Columns("B:B").Select

---

Mais c'est le bordel, suivant ou est placé le curseur j'ai les rubriques qui se créée n'importe ou, de façon un peu chaotique, comment faire ?

merci d'avance

ps : je voudrais ensuite colorier...

Code:

---

1 2 3 4 5 6

With Worksheets("trucmuche") .Range("A1").Value = "Désignation" .Range("B1").Value = "Catégorie" .Range("C1").Value = "Localisation" ..... End With

---

etc...

Oky ça marche bien

Code:

---

1 2 3 4 5 6 7 8 9

With Worksheets(Mois) .Range("A1").Value = "Désignation" .Range("B1").Value = "Catégorie" .Range("C1").Value = "Localisation" .Range("D1").Value = "Montant" .Range("E1").Value = "Qté Réel" .Range("F1").Value = "Qté en Stock" .Range("B:B").EntireColumn.AutoFit End With

---

Par contre comment ça marche les ColorIndex = 15/Pattern sur la premiere ligne de A1 à F1 ?
Pareil pour les Borders...

Merci en tout ca ;)