Francois73
XLDnaute Occasionnel
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
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