Discussion :

[jackall]

Bonjour à tous

Aprés une bonne demi journée de recherche, j'aimerai savoir si il est possible de donner des options lors de l'ouverture d'un nouveau classeur.

Voici le code que j'utilise pour ouvrir un nouveau classeur:

Code :

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

1
2
3
4
5
6
Set NewWorkbook = Workbooks.Add
Application.SheetsInNewWorkbook = 1
With newbook
   NewWorkbook.Title = "Pièces Manquantes"
   ActiveWorkbook.SaveAs Filename:=NewWorkbook.Title & ".xls"
End With

Serait il possible de dire en vba que je veu que toute les colonnes aient la même largeur, ( de 20 par exemple ) que l'écriture soit de la taille 8 et qu'elle soit centré ?

Voila en espérant que mon explication soit la plus complète possible.

Cordialement

[DeaD78]

Salut,

L'enregistreur de macros est ton ami !

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
16
17
18
19
20
21
22
23
24
25
 
Cells.Select
    With Selection.Font
        .Name = "Arial"
        .Size = 8
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.ColumnWidth = 20

A toi de simplifier comme tu le souhaites (et virer les Select pas beaux par la même occasion )

A+

[jackall]

Merci bien à toi, je pense pouvoir me débrouiller maintenant
En fait pour l'enregistreur de macro, j'essaye de décrocher , et j'arrive même à l'oubier maintenant XD.
Encore merci à toi

Cordialement