Comment faire pour que cette macro s'execute sur toutes les feuille active ??
Merci
Sub Workbook_Open()
Dim C As Worksheet
For Each C In Sheets
Range("V5:AR5,V8:AR8,V11:AR11,V14:AR14,V17:AR17,V20:AR20,V23:AR23").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Columns("V:V").EntireColumn.AutoFit
Columns("X:X").EntireColumn.AutoFit
Columns("Z:Z").EntireColumn.AutoFit
Columns("AB:AB").EntireColumn.AutoFit
Columns("AD:AD").EntireColumn.AutoFit
Columns("AF:AF").EntireColumn.AutoFit
Columns("AH:AH").EntireColumn.AutoFit
Columns("AJ:AJ").EntireColumn.AutoFit
Columns("AL:AL").EntireColumn.AutoFit
Columns("AN:AN").EntireColumn.AutoFit
Columns("AP:AP").EntireColumn.AutoFit
Columns("AR:AR").EntireColumn.AutoFit
Rows("8:8").EntireRow.AutoFit
Rows("11:11").EntireRow.AutoFit
Rows("14:14").EntireRow.AutoFit
Rows("17:17").EntireRow.AutoFit
Rows("20:20").EntireRow.AutoFit
Rows("23:23").EntireRow.AutoFit
Next C
End Sub
Merci
Sub Workbook_Open()
Dim C As Worksheet
For Each C In Sheets
Range("V5:AR5,V8:AR8,V11:AR11,V14:AR14,V17:AR17,V20:AR20,V23:AR23").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Columns("V:V").EntireColumn.AutoFit
Columns("X:X").EntireColumn.AutoFit
Columns("Z:Z").EntireColumn.AutoFit
Columns("AB:AB").EntireColumn.AutoFit
Columns("AD:AD").EntireColumn.AutoFit
Columns("AF:AF").EntireColumn.AutoFit
Columns("AH:AH").EntireColumn.AutoFit
Columns("AJ:AJ").EntireColumn.AutoFit
Columns("AL:AL").EntireColumn.AutoFit
Columns("AN:AN").EntireColumn.AutoFit
Columns("AP:AP").EntireColumn.AutoFit
Columns("AR:AR").EntireColumn.AutoFit
Rows("8:8").EntireRow.AutoFit
Rows("11:11").EntireRow.AutoFit
Rows("14:14").EntireRow.AutoFit
Rows("17:17").EntireRow.AutoFit
Rows("20:20").EntireRow.AutoFit
Rows("23:23").EntireRow.AutoFit
Next C
End Sub