Francois73
XLDnaute Occasionnel
Bonjour
mon message à visiblement disparu, je le remet donc
je souhaite sélectionner toutes les feuilles d'un classeur dans une macro .
les feuilles de mon classeur sont crées par une première macro en fonction de différentes données, ce qui signifie, que le nombre de feuille peut varier ainsi que leurs noms.
une fois mes feuilles crées je souhaite mettre les colonnes D à F de toutes les feuilles en format numérique.
j'ai fait une macro pour cela , mais elle ne fonctionne que sur la feuille active
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
merci de votre aide
mon message à visiblement disparu, je le remet donc
je souhaite sélectionner toutes les feuilles d'un classeur dans une macro .
les feuilles de mon classeur sont crées par une première macro en fonction de différentes données, ce qui signifie, que le nombre de feuille peut varier ainsi que leurs noms.
une fois mes feuilles crées je souhaite mettre les colonnes D à F de toutes les feuilles en format numérique.
j'ai fait une macro pour cela , mais elle ne fonctionne que sur la feuille active
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
merci de votre aide