Problème avec select

Résolu
viret1290 Messages postés 141 Date d'inscription   Statut Membre Dernière intervention   -  
viret1290 Messages postés 141 Date d'inscription   Statut Membre Dernière intervention   -
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

1 réponse

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
0
viret1290 Messages postés 141 Date d'inscription   Statut Membre Dernière intervention   2
 
Merci beaucoup
0