Mettre en forme n'importe quelle colonne sélectionnée

[libellule85]

Bonsoir le forum,

Avec l'enregistreur de macro j'ai fait la macro suivante pour mettre en forme une colonne.
Ce que j'aimerais c'est que cette mise en forme s'applique sur n'importe quelle colonne sélectionnée mais je n'y arrive pas.
Détail :
largeur de la colonne : 7.11
Format des cellules en monétaire de la cellule 3 à la cellule 500
dans la cellule 2 : gras et centrée

Sub test()
Range("F3").Select
    Selection.ColumnWidth = 7.11
    Range("F3:F500").Select
    Selection.NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Range("F2").Select
    Selection.Font.Bold = True
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
End Sub

Ci-joint fichier
D'avance merci beaucoup pour votre aide

 

[Papou-net]

Re : Mettre en forme n'importe quelle colonne sélectionnée

Bonsoir Libellule 85,

Voici comment j'écrirais la macro test :

Sub test()
ActiveCell.ColumnWidth = 7.11
With Range(Cells(3, ActiveCell.Column), Cells(500, ActiveCell.Column))
    .NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlBottom
    .WrapText = False
    .Orientation = 0
    .AddIndent = False
    .IndentLevel = 0
    .ShrinkToFit = False
    .ReadingOrder = xlContext
    .MergeCells = False
End With
With Cells(2, ActiveCell.Column)
    .Font.Bold = True
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlBottom
    .WrapText = False
    .Orientation = 0
    .AddIndent = False
    .IndentLevel = 0
    .ShrinkToFit = False
    .ReadingOrder = xlContext
    .MergeCells = False
End With
End Sub

Tu sélectionnes une cellule dans la colonne que tu veux mettre en forme et tu cliques sur Label1.

Espérant avoir répondu.

Cordialement.

 

[libellule85]

Re : Mettre en forme n'importe quelle colonne sélectionnée

Bonsoir Papou-net,

Merci beaucoup pour ta réponse, c'est exactement ce que je cherchais,
Bonne soirée