Problème avec select [Résolu]

viret1290 109 Messages postés samedi 17 août 2013Date d'inscription 14 juin 2017 Dernière intervention - 10 mai 2017 à 12:07 - Dernière réponse : viret1290 109 Messages postés samedi 17 août 2013Date d'inscription 14 juin 2017 Dernière intervention
- 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
Afficher la suite 

2 réponses

Répondre au sujet
f894009 12542 Messages postés dimanche 25 novembre 2007Date d'inscription 16 décembre 2017 Dernière intervention - 10 mai 2017 à 13:23
0
Utile
1
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
viret1290 109 Messages postés samedi 17 août 2013Date d'inscription 14 juin 2017 Dernière intervention - 10 mai 2017 à 13:31
Merci beaucoup
Commenter la réponse de f894009