macro mise en page

[KM29]

Bonjour,
j'ai cette macro là ! et j'aimerai qu'elle s'applique sur toutes les feuille active ! ( elles peuvent etre differente (les feuilles) car j'obtient ce fichier grace a des importations !!

ici on peut voir qu elle s'applique sur les feuille "Feuil1" " feuil2" "PRODUCTION" ... mais moi je voudrai qu elle s'applique sur toutes les feuille active ( car aussi bien a la prochaine ouverture du fichier la feuille " PRODUCTION" n'existera plus et alors il y aura un message d'erreur !!
jai essayer avec activesheet.select mais çela n 'agit que sur la premiere feuille
Merci
Cordialement


Sheets("Feuil1").Visible = False
Sheets("Feuil2").Visible = False
'Sheets(Array("Feuil1", "Feuil2", "PRODUCTION", "RAF", "CONTRÔLE", "FOODS")).Select
ActiveSheet.Select
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
End Sub

 

[KM29]

Re : macro mise en page

quelqu un a une idée ?

 

[azerty29]

Re : macro mise en page

il faut le mettre dans thisWorkbook non ?

 

[DoubleZero]

Re : macro mise en page

Bonjour à toutes et à tous,

Une réponse, pour la même question, ici ...