Macro pour tous mon classeur EXCEL..???

[akramenergie]

Voilà, je voudrais savoir comment on lance une macro de telle sorte qu'elle puisse s'appliquer sur toutes les feuilles d'un classeur. C'est pour éviter d'appliquer la macro feuille par feuille.(Mon classeur contient 140 feuilles!).


Je voudrais appliquer cette ligne de code sur tous mon classeur mais ca marche pas 😕

ActiveSheet.PageSetup.PrintArea = "$A$1:$J$68"

j'ai panssé à ajouter;

for each ws in worksheets

ActiveSheet.PageSetup.PrintArea = "$A$1:$J$68"

Next

mais pas de résultat

 

[Compte Supprimé 979]

Re : Macro pour tous mon classeur EXCEL..???

Salut Akramenergie 😉

Ce serait mieux comme ça

For Each Sht in ThisWorkbook.Sheets 
  Sht.PageSetup.PrintArea = "$A$1:$J$68"
Next

A+

 

[Staple1600]

Re : Macro pour tous mon classeur EXCEL..???

Bonsoir


for each ws in worksheets

ws.PageSetup.PrintArea = "$A$1:$J$68"

Next


EDITION: Bonsoir BrunoM45, oui ce serait mieux en effet
(mais ces temps-ci sur XLD, cela va de mal en pis plutôt .... 😉 )


EDITION II: Bonsoir Victor21 😉

 

[Victor21]

Re : Macro pour tous mon classeur EXCEL..???

Bonjour.

Essayez plutôt :

Sub mep()
    For Each ws In Worksheets
        ws.PageSetup.PrintArea = "$A$1:$J$68"
    Next ws
End Sub

Edit : Bonjour, Bruno, Jean-Marie . Un peu en retard...

 

[akramenergie]

Re : Macro pour tous mon classeur EXCEL..???

Merci les gars pour vos proposition. la je suis pas au bureau mais demain premier heures je test ça et je vous tiendrais au courant merci pour votre aide

 

[akramenergie]

Re : Macro pour tous mon classeur EXCEL..???

Bonjour les gars,

quand j'utilise la méme logique pour cette ligne de code aussi sa bug😕 quelqu'un peux me dir pourquoi svp.

For Each Sht In ThisWorkbook.Sheets
WS.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
Next

 

[Pierrot93]

Re : Macro pour tous mon classeur EXCEL..???

Bonjour,

dans ta boucle ton élément est déclaré comme Sht, mais tu utilises ensuite WS.... A noter, pour des sauts de page, plutôt boucler sur la collection "worksheets" que "sheets", voir l'aide vba pour ce qu'elles contiennent (les collections)...

bonne journée
@+