problème avec select Résolu/Fermé

Question

Bonjour, j'aimerai depuis une feuille X et par macro sélectionner une partie de colonne puis la mettre en forme.
voilà mon code pour sélectionner les cellules, mais cela ne fonctionne pas ??
quelqu'un peut me donner mon erreur.

    FImpression.Range(FImpression.Cells(5, 3), FImpression.Cells(800, 3)).Select
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With


merci

FImpression la feuille ou j'aimerai mettre mon format de cellules

f894009 · Answer

Bonjour,

1 FImpression est un nom de feuille donc: Worksheets("FImpression")
2 pas besoin de select

et au plus court:

        With Worksheets("FImpression").Range(Cells(5, 3), Cells(800, 3))
        'ou vu que la plage n'est pas dynamique
        'With Worksheets("FImpression").Range("C5:C800")
            .HorizontalAlignment = xlLeft
            .VerticalAlignment = xlBottom
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With

Problème avec select

1 réponse

Discussions similaires