Discussion :

[Myogtha]

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 :

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

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...

[bidou]

Code :

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

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...

[Myogtha]

Oky ça marche bien

Code :

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

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