XL 2016 Selection Plusieurs feuilles

[KTM]

Bonjour chers tous
Je voudrais par macro sélectionner mes feuilles numérotées de 1 à 50
Du genre :
T = Array(1, 2, ...,50)

Merci

 

[jmfmarques]

Bonjour
ton "du genre" montrant une initialisation d'array (sans être suivi de sélection), précise stp :
Toutes à la fois ou toutes, une après l'autre ?

 

[KTM]

Bonjour
ton "du genre" montrant une initialisation d'array (sans être suivi de sélection), précise stp :
Toutes à la fois ou toutes, une après l'autre ?

Merci en fait je voudrais sélectionner ces 50 feuilles contiguës afin de faire exécuter ma macro M1

J'ai pensé à quelque chose comme:

T = Array(1, 2, ...,50)
For i = LBound(T) To UBound(T)
With Worksheets(T(i))
call M1
End With
Next i

 

[jmfmarques]

Le code auquel tu as pensé convient si, comme tu le laisses penser, tu dois traiter ces feuilles une après l'autre.


Tu pourrais d'ailleurs l'écrire également ainsi :

For Each sh In Worksheets(Array(1, 2, 3))

' tes instructions

Next

 

[KTM]

Le code auquel tu as pensé convient si, comme tu le laisses penser, tu dois traiter ces feuilles une après l'autre.


Tu pourrais d'ailleurs l'écrire également ainsi :

For Each sh In Worksheets(Array(1, 2, 3))

' tes instructions

Next

Ok Merci

 

[Staple1600]

Bonjour le fil, KTM, jmfmarques

Testé sur Excel2K13
(sur un classeur avec 8 feuilles nommées : 1,2,3,4,5,A,B,C)
Le code ci-dessous rempli un Array (avec uniquement les feuilles 1 à 5) et ne sélectionne que celles-ci
A adapter selon usage (voir commentaires en vert)

Sub Exemple_5_Feuilles()
Dim ws As Worksheet, i%, tabF(4) '-> tabF(49) pour 50 feuilles
i = 0
For Each ws In ActiveWorkbook.Worksheets
Select Case ws.Name
Case 1 To 5 '-> Case 1 to 50 pour 50 feuilles
tabF(i) = ws.Name
i = i + 1
End Select
Next ws
Sheets(tabF).Select False
End Sub

 

[job75]

Bonjour KTM, jmfmarques, JM, le forum,

Pourquoi utiliser un Array puisqu'il y a la collection Worksheets ?

Dim w As Worksheet
For Each w In Worksheets
    Call M1(w)
Next

M1 étant paramétrée avec l'argument w As Worksheet

Et si l'on veut se limiter aux 50 1ères feuilles :

Dim i%
For i = 1 To IIf(Worksheets.Count > 50, 50, Worksheets.Count)
    Call M1(Worksheets(i))
Next

A+

 

[Staple1600]

Re, Bonjour job75

Le message#1 parlait d'Array et Selection de plusieurs feuilles
J'ai donc posté une macro avec un Array et qui sélectionne plusieurs feuilles.
Tu postes une macro sans Array et paramétrée.
Le demandeur choisira ce qu'il veut.