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

libellule85 · 11 Décembre 2011

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

Code:

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 · 11 Décembre 2011

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

Bonsoir Libellule 85,

Voici comment j'écrirais la macro test :

Code:

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 · 11 Décembre 2011

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

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

libellule85

XLDnaute Accro

Pièces jointes

Papou-net

XLDnaute Barbatruc

libellule85

XLDnaute Accro

Discussions similaires

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

libellule85

XLDnaute Accro

Pièces jointes

Papou-net

XLDnaute Barbatruc

libellule85

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency