Selectionner plusieurs feuilles

[Francois73]

Bonjour

je ne comprends pas pourquoi mon message disparaît du forum a chaque fois, je recommence donc

je souhaite au travers d'une macro sélectionner toutes les feuilles d'un classeur pour pouvoir appliquer en colonne D E F, un format nombre aux cellules.

pour info les feuilles de mon classeur sont crées via une première macro, le nombre de feuilles est donc variable ainsi que leurs noms

la macro que j'applique pour passer les colonnes D à F en format nombre ne fonctionne que sur la feuille active

merci de votre aide

ma macro

Sub centrer()
'

For Each ws In Worksheets
Columns("D:F").Select
Selection.NumberFormat = "0.0"
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("A1").Select
Next
End Sub

 

[Robert]

Re : Selectionner plusieurs feuilles

Bonjour François, bonjour le forum,

Peut-être comme ça :

Sub Macro1()
Dim ws As Object
For Each ws In Worksheets
    With ws.Columns("D:F")
        .NumberFormat = "0.0"
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Range("A1").Select
Next ws
End Sub

 

[Pierrot93]

Re : Selectionner plusieurs feuilles

Bonjour François, Robert🙂

je ne comprends pas pourquoi mon message disparaît du forum a chaque fois, je recommence donc

pas de disparition mystérieuse, il est ici....
https://www.excel-downloads.com/threads/selectionner-toutes-les-feuilles-dun-classeur.185555/

bonne journée
@+

 

[Francois73]

Re : Selectionner plusieurs feuilles

bonjour

merci de votre contribution, effectivement cela fonctionne et en plus j'ai compris pourquoi, j'ai oublié le dim ...

bonne journée