selection de feuilles avec array

Pierrot93

XLDnaute Barbatruc

• 11 Août 2015

• #2

Re : selection de feuilles avec array

Bonjour,

essaye ceci, enfin si j'ai bien compris :

Code:

Option Explicit
Sub test()
Dim i As Integer
For i = 8 To Worksheets.Count
    Worksheets(i).Select i = 8
Next
End Sub

bonne journée
@+

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 11 Août 2015

• #3

Re : selection de feuilles avec array

Bonjour a26, Pierrot93,

une autre solution ( moins simple)

Code:

Sub SelectSheetArray()
 ReDim TabSheet(Worksheets.Count - 8)
 For i = 8 To Worksheets.Count
    TabSheet(i - 8) = i
 Next
 Sheets(TabSheet).Select
End Sub

A+

 

Vote positif 0 Vote négatif

A

a26

XLDnaute Occasionnel

• 11 Août 2015

• #4

Re : selection de feuilles avec array

J'ai essayé vos propositions mais sans resultats. Je vous joins la macro cela sera plus parlant
Sub margesetzone()
Dim S As Worksheet
'---
Application.ScreenUpdating = False
For Each S In Worksheets(Array(8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25))
With S.PageSetup
.Orientation = xlPortrait
.CenterHorizontally = True
.LeftMargin = "0"
.RightMargin = "0"
.TopMargin = "30"
.BottomMargin = "0"
zoneimpression S
largeurco S
hauteurco S
End With
Next S
Sheets("BD").Select
Application.ScreenUpdating = True
End Sub
trois macro sont liées mais n'ont pas d'incidence sur son fonctionnement.
Message d'erreur : Erreur de compilation Next sans For

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Août 2015

• #5

Re : selection de feuilles avec array

Re,

Avec le code que je te proposais il faut ensuite boucler sur la collection "SelectedSheets", boucle "for each"... à toi d'adapter

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 11 Août 2015

• #6

Re : selection de feuilles avec array

Re,

avec le code proposé au post #3, on obtient un tableau contenant les index de feuilles souhaitées. Il n'y a plus qu'a l'intégrer à votre macro:

Code:

...
ReDim TabSheet(Worksheets.Count - 8)
 For i = 8 To Worksheets.Count
    TabSheet(i - 8) = i
 Next
 'Sheets(TabSheet).Select  ' ligne devenue inutile

For Each S In Worksheets(TabSheet)
...

A+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Août 2015

• #7

Re : selection de feuilles avec array

Re,

oups... t'avais point vu Paf🙂, bonjour

 

Vote positif 0 Vote négatif

A

a26

XLDnaute Occasionnel

• 11 Août 2015

• #8

Re : selection de feuilles avec array

Merci à vous deux cela fonctionne.
Une question encore si je peux. Est-il normal que cette macro soit si lente ?
Bon après-midi.
Cordialement,
a26

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 11 Août 2015

• #9

Re : selection de feuilles avec array

Bonjour a26, Pierrot, Paf, 🙂

Est-il normal que cette macro soit si lente ?

Cliquez pour agrandir...

Les macros de mise en page le sont toujours (je suppose que l'ordinateur converse avec l'imprimante par défaut, et pendant qu'ils papotent...)
Il y a des moyens de raccourcir le temps en faisant la mise en page avec une macro XL4
voir par là : McGimpsey & Associates : Excel : Bypassing Slow VBA PageSetup

 

Vote positif 0 Vote négatif

A

a26

XLDnaute Occasionnel

• 11 Août 2015

• #10

Re : selection de feuilles avec array

Merci, je vais essayer.
Grâce à vous tous on arrive toujours à une solution.

 

Vote positif 0 Vote négatif