Problème avec select

Résolu/Fermé
viret1290 Messages postés 137 Date d'inscription samedi 17 août 2013 Statut Membre Dernière intervention 12 octobre 2022 - 10 mai 2017 à 12:07
viret1290 Messages postés 137 Date d'inscription samedi 17 août 2013 Statut Membre Dernière intervention 12 octobre 2022 - 10 mai 2017 à 13:31
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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
10 mai 2017 à 13:23
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 137 Date d'inscription samedi 17 août 2013 Statut Membre Dernière intervention 12 octobre 2022 2
10 mai 2017 à 13:31
Merci beaucoup
0